написать слово наоборот Опции

[maksimla]

Напишите програму которая печатало каждое слово (слово небольше 20 симболов между словом нету симболов пробела) с разу чтобы печатало это слово наоборот (наоборот слово печатается во время ввода слова). Слова один от другого отделяются пробелом, читка слова завершается нажав клавешу вход.

ТРЕБОВАНИЕ Чтобы написать програму в ней должно напишить рекурсивную процедуру. Нельзя использовать структурных и динамических типов данных.

пример
As sA rasau uasar programa. .amargorp :) ):

Я даже сперва незнаю как так чтобы ввести букву и ненажимать enter напичаталась бы буква сразу.Как это?

Сообщение отредактировано: maksimla - 25.01.2009 13:50

[maksimla]

можете обеснение написать мне как это работает все то кажется неразберусь я сам

uses crt;

function print_reverse: char;
var ch: char;
begin
  ch := readkey;
  if ch in [#32, #13] then print_reverse := ch
  else begin
    write(ch);
    print_reverse := print_reverse;
  end;

  if ch <> #13 then write(ch);
end;

var symbol: char;
begin
  repeat
    symbol := print_reverse; write(symbol)
  until symbol = #13;
  writeln;
end.

для чего символы #32, #13 и еще когда ввожу первую букву то правильно выводит потом другую букву ввожу и тогда выводит ту букву которую ввел плюс улывку зачем и почему?

Сообщение отредактировано: maksimla - 25.01.2009 14:30