Слова могут разделяться только пробелами. Их количество в строке результате не меняется, порядок следования символов в словах остаётся неизменным ( например, исходная строка acs dfr, результат dfr acs)
Для строк использовать только length, chr, ord.
Я хочу поступить так:
строку разбить на слова, идя с конца строки получить последнее слово (оно будет записано наоборот). после в полученном слове изменить порядок слов, результат - в конечную строку, так со всеми словами.
Начала реализовывать , программа не рабатает....
uses crt;
Function slovo ( const s : string; var i : byte) : string;
var
w : string;
begin
w := '';
while ( i <= length (s) ) and ( s[i] <> ' ' ) do
begin
w := w + s[i];
i := i+1;
end;
slovo := w;
end;
VAR
s, w, srez : string;
i, j : byte;
c : char;
BEGIN
clrscr;
srez := '';
writeln ( ' vvedite stroku simvolov' );
readln ( s );
for i := length ( s ) downto 1 do
begin
w := slovo ( s, i );
for i := 1 to length ( w ) div 2 do
begin
c := w[i];
w[i] := w[length (w) - i +1];
w[length (w) - i +1] := c;
end;
srez := srez + w + ' ';
end;
writeln ( ' rezylitat rabotu' );
writeln (srez);
readkey;
end.