Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ программа "перевертыш"

Автор: STIFLER 23.02.2009 17:04

Написать программу, которая запрашивает строку, затем сначала выводит строку в "перевернутом" виде (например, вводим РОЗА). Затем та же строка выводится в прямом виде (выводится АЗОР).

Автор: volvo 23.02.2009 17:40

М
 STIFLER, заголовок поменяй, "help" никак не может быть информативным...
(http://forum.pascal.net.ru/rules.html, п. 4)


Автор: Ozzя 24.02.2009 12:57

http://forum.pascal.net.ru/index.php?showtopic=1636&st=0&p=13297&#entry13297

Автор: Lapp 24.02.2009 17:13

Ozzя, при чем тут палиндромы? blink.gif

Напечатать строку наоборот можно так, например:

for i:=Length(s) downto 1 do Write(s[i]);

Автор: Ozzя 25.02.2009 14:48

Цитата
Ozzя, при чем тут палиндромы?

Там по ссылке:
{Этой функции присваевается значение перевернутого слова}
function palindrom(x:string):string;
var
  str:string;
  j:integer;
begin
  str:='';
  for j:=length(x) downto 1 do str:=str+x[j];
  palindrom:=str;
end;