|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
18.03.2013, 14:37 | #1 (permalink) |
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. |
18.03.2013, 14:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что внутри этих ссылок вы найдете важную информацию Инвертор, что за страшное слово? Ввести строку и инвертировать каждое слово |
18.03.2013, 14:54 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|