Сообщения

1

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 15 Июнь 2010, 06:24:58 »

Следующая задача на расмотрение: "Написать процедуры, реализующие операции вставки, удалния и поиска элемента для динамического двунаправленного списка (списка со ссылками на следующий и предыдущий элементы)".

2

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 09 Июнь 2010, 18:52:43 »

gepar,
Хосссподи, это же пример.

3

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 09 Июнь 2010, 16:51:14 »

И она работает?

Еще как! Можешь сам проверить.

4

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 09 Июнь 2010, 13:00:42 »

Вот нашел:

program string;
uses crt;

var
  i, j, k: integer;
  p, q, s: string;
begin
  write('Enter string: '); readln(s);
  i:=1;
  while i<Length(s) do begin
    while (i<Length(s)) and (s=' ') do Inc(i);
    j:=i;
    while (i<Length(s)) and (s<>' ') do Inc(i);
    q:=Copy(s,j,i-j);
    repeat
      p:=Copy(s,i,Length(s)-i+1);
      k:=Pos(q,p);
      if k>0 then Delete(s,i+k-1,i-j)
    until k=0
  end;
  WriteLn('Result: ' , s);
  Readkey;
end.

Кажись, работает правильно. 

5

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 08 Июнь 2010, 14:38:25 »

Код в студию !

6

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 08 Июнь 2010, 12:49:24 »

HardWareMan,
Можно код?

7

Hard'n'Soft / Re: Вспоминаем Turbo Pascal и решаем задачи на нём

« : 08 Июнь 2010, 08:34:13 »

Люди, помогите. Очень нужна программа на Паскале, которая бы удалила повторы слов в строке, а затем выводила результат. Например:
rabbit wolf wolf
Должно получиться “rabbit wolf”.
wolf rabbit wolf
Должно получиться “wolf rabbit” или “rabbit wolft”.
bat bat
Должно получиться “bat”.
pig pig cat
Должно получиться “pig cat”.

В качестве разделителя слов - пробелю.

Желательно код с комментариями.