Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2013, 18:37   #1
Vladis1av
Пользователь
 
Регистрация: 25.02.2013
Сообщений: 13
По умолчанию перевести с Pascal на СИ

Код:
{Даны две послед. x и y. Найти послед. z, которую можно
 получ. вычёркиванием элм как из x, так и из y        }
uses crt;
var x,y,z:string;l,i,j:longint;
    label m1;
 begin
  clrscr;
   write('первая последовательность:');readln(x);
   write('вторая последовательность:');readln(y);
   l:=length(y);i:=1;z:='';
  m1:while i<=length(x) do
      begin
       for j:=1 to l do
        if x[i]=y[j] then begin
                           z:=z+x[i];inc(i);
                           delete(y,j,1);l:=l-1;
			   goto m1;
                          end;
       inc(i);
     end;
   if z='' then write('последовательность невозможна')
           else write('ответ:',z);
  readln;
 end.

Последний раз редактировалось Stilet; 08.04.2013 в 20:34.
Vladis1av вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести програму из Pascal на C starker Помощь студентам 1 14.12.2012 18:00
Перевести на С++ (Pascal) spinogryz_ua Помощь студентам 4 23.11.2012 12:04
Перевести код с Pascal на C++ Aaaaaa111 Помощь студентам 1 22.02.2012 14:28
перевести с++ в pascal ApXaHreL Помощь студентам 1 19.06.2011 17:41
перевести код с Pascal на C++ panic_a Помощь студентам 2 22.12.2010 00:37