IPB
ЛогинПароль:

> обратный порядок слов
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


Преобразовать строку, изменив порядок следования слов на обратный.

А каков алгоритм такого преобразования?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Всем кому нужно:

program slova;
uses crt;
var
x,k,len : byte;
str,buf : string;
procedure PrintString(var buf : string ; var k : byte);
var
i : byte;
begin
if k=1 then begin
write(' ');
buf:='';
end
else
begin
i:=k;
while i>=1 do begin
write(buf[i]);
i:=i-1;
end;
write(' ');
buf:='';
end;
end;
begin
clrscr;
writeln('Vvedite slova:');
readln(str);
writeln;
writeln('Resultat:');
k := 1;
x := length(str);
if length(str)=1 then writeln(str);
while x>=1 do begin
if (str[x]=' ') or (x=1) then
begin
if x=1 then else k:=k-1;
PrintString(buf,k);
k:=1;
end
else
begin
buf[k]:=str[x];
if x=2 then buf[k+1]:=str[x-1];
k:=k+1;
end;
x:=x-1;
end;
writeln;writeln;
write('Press any key to quit...');
readkey;
end.


М
Теги, господа, теги!! Это требование правил! И здравого смысла.. Lapp

 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   обратный порядок слов   6.01.2007 17:07
arhimag   пункт 1. бьешь на массив слов и пробегаешь в обрат…   6.01.2007 17:13
Lapp   В цикле находишь следующее слово в строке s1 и вст…   6.01.2007 17:13
klem4   Ну во первых наверняка тебе опять ничем нельзя пол…   6.01.2007 18:02
18192123   Ну во первых наверняка тебе опять ничем нельзя по…   6.01.2007 18:29
Lapp   Прощу прощения, ты абсолютно прав. Ха. А чем мож…   6.01.2007 18:30
arhimag   А чем не устраивает мой способ с помощью массива?   6.01.2007 18:31
volvo   18192123, давай ты будешь определять задания ПОЛНО…   6.01.2007 19:08
18192123   18192123, давай ты будешь определять задания ПОЛН…   6.01.2007 19:30
arhimag   делая аналогию с предыдущими заданиями 18192123, т…   6.01.2007 19:22
Lapp   18192123 (и все уважаемые участники беседы), я нес…   6.01.2007 19:42
steet   Не хочется создавать новую тему, но можно увидеть …   17.02.2007 23:34
мисс_граффити   Безусловно, можно. Для этого (если Вас не затрудни…   17.02.2007 23:42
-steet-   Всем кому нужно: program slova; uses crt; var …   18.03.2007 20:19


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 25.06.2022 20:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name