Показать сообщение отдельно
Старый 18.03.2013, 14:37   #1 (permalink)
Rival
Member
 
Регистрация: 16.02.2013
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль. Программа выводящая в перевернутом виде каждое слово

Есть программа, выводящая в перевернутом виде каждое слово. Помогите под нее сделать блок-схему

Код:
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.
Rival вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070