Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 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 вне форума   Ответить с цитированием

Старый 18.03.2013, 14:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что внутри этих ссылок вы найдете важную информацию

Инвертор, что за страшное слово?
Ввести строку и инвертировать каждое слово

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

Извините, но не могу расположить нормально код. Да еще и во втором сообщении не тот пихнул.
Rival вне форума   Ответить с цитированием
Старый 18.03.2013, 14:54   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,228
Сказал(а) спасибо: 286
Поблагодарили 505 раз(а) в 163 сообщениях
Репутация: 91625
По умолчанию

Цитата:
Сообщение от Rival Посмотреть сообщение
Извините, но не могу расположить нормально код.
Поправил.
Цитата:
Сообщение от Rival Посмотреть сообщение
Да еще и во втором сообщении не тот пихнул.
Убрал.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:30.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.