Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.
Bokul
17.06.2006 23:02
Цитата
Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.
Сначала разбиваешь строчку на слова и заносишь их в массив(Разбиение на слова. Все способы.), потом для каждого елемента массива проделаешь procedure inverse и распечатаешь массив.
procedure inverse(var s:string); var buf:string; i:byte; begin buf:=''; for i:=length(s) downto 1 do buf:=buf+s[i]; s:=buf; end;
Sheremeta
17.06.2006 23:47
Что то не виходит взял метод разбиения строки от Volvo тот что попроще пытаюсь совместить что то совсем не получается.Покажите как оно должно выглядеть в окончательном варианте.Заранее благодарен .
Bokul
18.06.2006 0:00
я бы на твоем месте использовал способ klem4'a -самый простой и ты поучаеш массив слов, то что тебе и надо.
volvo
18.06.2006 0:05
Цитата(Sheremeta @ 17.06.2006 19:47)
Покажите как оно должно выглядеть в окончательном варианте.
А может лучше ты покажешь, КАК именно пытаешься совместить?
Гость
18.06.2006 0:43
uses CRT; var I, J: integer; S, S1, S2: string; begin ClrScr; write('S='); read(S); S:=S+' '; I:=1; while I<=length(S) do begin if S[I]=' ' then begin S1:=Copy(S, 1, I); delete(S, 1, I); for J:=length(S1) downto 1 do S2:=S2+S1[J]; I:=1; S2:=S2+' '; end; I:=I+1; end; writeln(S2); readkey; end.
klem4
18.06.2006 0:46
Выделяешь слово, а потом
n := length(s); for i := 1 to n div 2 do begin temp := s[i]; s[i] := s[n - i + 1]; s[n - i + 1] := temp; end; // где s - слово
Нет... Она модифицирует строку - добавляет разделитель, который не просили добавлять в условии. Так что рабочей программа не признается. Любой преподаватель сразу снизит оценку (я уж не говорю о работодателе...)
Гость
18.06.2006 1:09
какая разница, главное чтоб работала
Bokul
18.06.2006 1:11
Цитата
какая разница, главное чтоб работала
Она не будет работать, если ты ввидёшь строку длинной 255 символов.
Вот мой вариант:
type main=array[1..40] of string[50];
procedure take_words(s:string; var mas:main; var n:integer); var i:byte; begin n:=1; for i:=1 to length(s) do if (s[i]=' ') and (i<>length(s)) then inc(n) else mas[n]:=mas[n]+s[i]; end;
procedure inverse(var s:string); var buf:string; i:byte; begin buf:=''; for i:=length(s) downto 1 do buf:=buf+s[i]; s:=buf; end;
var s:string; mas:main; n,i:integer; begin writeln('Enter string'); readln(s); take_words(s,mas,n); for i:=1 to n do begin inverse(mas[i]); write(mas[i],' '); end; readln; end.
volvo
18.06.2006 1:12
Цитата
какая разница, главное чтоб работала
Это ты будешь объяснять кому-нибудь другому, ясно? А здесь, если уж взялся постить что-то то будь добр СНАЧАЛА прочесть пункт №7 Правил в рамочке, и выполнять его.
Когда ТЕБЕ нужна будет помощь, тебе почему-то (интересно, почему?) нужно будет ИДЕАЛЬНОЕ выполнение условий. Так вот и относись к другим так же.
Bokul, можно проще:
var ch: char; s: string; start, finish, i: integer;
begin write('s = '); readln(s); start := 1; while start <= length(s) do begin
while (start <= length(s)) and (s[start] = ' ') do inc(start); finish := start; while (finish <= length(s)) and (s[finish] <> ' ') do inc(finish);
for i := 1 to (finish - start) div 2 do begin ch := s[start + i - 1]; s[start + i - 1] := s[finish - i]; s[finish - i] := ch; end; start := finish;
end; writeln(s); end.
klem4
18.06.2006 1:53
Гость, твое бессмысленное сообщение и последовавший за ним флуд удален, еще раз повториться, будешь забанен по IP.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.