Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с перестаовкой букв в обратном порядке!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Sheremeta-
Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.
Bokul
Цитата
Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.

Сначала разбиваешь строчку на слова и заносишь их в массив(Разбиение на слова. Все способы.), потом для каждого елемента массива проделаешь 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
Что то не виходит взял метод разбиения строки от Volvo тот что попроще пытаюсь совместить что то совсем не получается.Покажите как оно должно выглядеть в окончательном варианте.Заранее благодарен .
Bokul
я бы на твоем месте использовал способ klem4'a -самый простой и ты поучаеш массив слов, то что
тебе и надо.
volvo
Цитата(Sheremeta @ 17.06.2006 19:47)
Покажите как оно должно выглядеть в окончательном варианте.
А может лучше ты покажешь, КАК именно пытаешься совместить?
Гость
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
Выделяешь слово, а потом

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 - слово



обычная инверсия ...


Если не получается разбить строку на слова, смотри тут : Разбиение строки на слова, все способы
Гость
в посте #6 рабочая программа
volvo
Нет... Она модифицирует строку - добавляет разделитель, который не просили добавлять в условии. Так что рабочей программа не признается. Любой преподаватель сразу снизит оценку (я уж не говорю о работодателе...)
Гость
какая разница, главное чтоб работала
Bokul
Цитата
какая разница, главное чтоб работала

Она не будет работать, если ты ввидёшь строку длинной 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
Цитата
какая разница, главное чтоб работала


Это ты будешь объяснять кому-нибудь другому, ясно? А здесь, если уж взялся постить что-то то будь добр СНАЧАЛА прочесть пункт №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
Гость, твое бессмысленное сообщение и последовавший за ним флуд удален, еще раз повториться, будешь забанен по IP.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.