Расписать значение строк в коде

@Panda_Boom · Регистрация: 10.01.2014

Студворк — интернет-сервис помощи студентам

Pascal

uses crt;
Var s,s1,p:string;
 
    i:byte;
    t:char;
Begin
    write('Введите строку: ');readln(s);
    Delete(s,Pos('.',s),1);p:='';
    While s[Length(s)]=' ' do Delete(s,Length(s),1);
    For i:=Length(s) downto 1 do
     if s[i]<>' ' then p:=s[i]+p
      else break;
    Delete(s,Length(s)-Length(p)+1,Length(p));
    s:=s+' ';
    While Pos(' ',s)<>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1='')or(s1=p) then Continue;
      t:=s1[1];
      Delete(s1,1,1);
      s1:=s1+t;
      writeln(s1);
    End;
    readln;
End.

Основную проблему составляет удаление... ЧТО ОН ТАМ УДАЛЯЕТ?!!!

@bormant · 19.06.2014, 13:08

7 - вывод приглашения, ввод строки в s
8 - из s удаляется первая слева точка (логичнее было бы удалять до конца строки)
9 - из s удаляются хвостовые пробелы
10-12 - в p собирается последнее слово (разделитель -- пробел)
13 - из s удаляется последнее слово
14 - гарантия наличия пробела на конце s
15-24 пока в s есть хоть один пробел
17 - в s1 скопировать первое слово (разделитель -- пробел)
18 - из s удалить первое слово вместе с пробелом (разделитель -- пробел)
19 - если в s1 пусто или p (последнее слово, см. 10-12), вернуться в начало цикла (15)
20-22 - перенести первый символ s1 в конец
23 - вывести полученное
возврат к строке 15
25 - ожидать нажатия Enter

Добавлено через 3 минуты
19-23 можно было написать проще:

Pascal

1 2	if (s1<>'') and (s1<>p) then WriteLn(Copy(s1,2,Length(s1)-1),s1[1]);

Опции темы