Паскаль. Программа выводящая в перевернутом виде каждое слово
Есть программа, выводящая в перевернутом виде каждое слово. Помогите под нее сделать блок-схему
Код:
program words_revers_simp;
var
S: string;
nach_slova, i,j: integer;
begin //ввод строки
write('enter a line of text > ');
readln(S); //обработка
nach_slova:= 1; //первое слово начинается с 1-го символа строки
//ищем конец слова = начало следующего слова
for i:=1 to Length(S) do
begin //если это конец строки то пишеи слово и выходим из цикла
if i = Length(S) then
begin
for j:= i downto nach_slova do write (S[j]);
break;
end; //если нашли пробел - значит у нас есть конец слова
//пишем его и ищем конец следующего
if S[i] = ' ' then
begin
for j:= i -1 downto nach_slova do write(S[j]);
write(' ');
nach_slova:= i + 1; //теперь начало слова - след. символ после пробела
end;
end;
writeln;
end.
|
