Рекурсивная функция Digits без параметров, Задача на паскале (1-й курс) Опции

[Andrey-irk]

Здравствуйте. Помогите пожалуйста решить задачу. Попалась на экзамене, я не сделал! Надо сделать до завтра или ...(((

Задача Рекурсия.
Описать рекурсивную функцию Digits без параметров, которая подсчитывает количество четных цифр в тексте и выводит на экран латинские буквы из текста в порядке, обратном порядку ввода. Длина текста не известна, за текстом следует символ &-признак конца.

И ещё одна, ОЧЕНЬ простая задача. Решить не могу по глупости своей)))

Задача.
В текстовом файле хранятся строки. Найти самую длинную и самую короткую строку.

Заранее спасибо! Андрей.
ЗЫ: Если можно, то, пожалуйста, добавьте комментарии!)))

[volvo]

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

Если функция без параметров, то как она получает введенный текст? Через глобальную переменную? Или ввод происходит внутри самой функции?

[Гость]

Если честно, то я этого не знаю))) Вообще я рекурсию как-то не особо понимаю! Я написал задание, которое написано в билете слово в слово! Текст скорее всего должен содержаться в отдельном файле .txt

[volvo]

Ну, я тебе уже написал, вообще-то... Ну ладно, пускай здесь тоже будет:

var
  f: text;

function Digits: integer;
var ch: char;
begin
  read(f, ch);
  if ch <> '$' then
    digits := digits + byte(ch in ['1', '3', '5', '7', '9'])
  else begin
    digits := 0; exit
  end;

  if upcase(ch) in ['A' .. 'Z'] then write(ch);
end;

var n: integer;
begin
  assign(f, 'in.txt'); reset(f);
  n := Digits;
  writeln;
  writeln('count = ', n);
  close(f);
end.

Ну, да... Я просто автоматически поставил НЕчетные числа, измени их на четные, будет работать правильно... И символ, завершающий текст тоже поменяй на '&'

Сообщение отредактировано: volvo - 4.11.2006 0:32

[Andrey-irk]

Я что-то не понял, что эта программа выводит на печать?
count = 1 ???
Как должен выглядеть текстовый файл? Я набрал так: 1 4 5 2 A S 5 G 6 &

[Гость]

ок. Спасибо! С этой задачей решено))) СПАСИБО!!!
А вторую не поможете сделать? Она простая, я это знаю, но сделать не получается))!

В текстовом файле хранятся строки:
Зима
Крестьянин
Торжествуя
...
...
Найти самую короткую и самую длинную строки.

[Andrey-irk]

Спасибо, эту тему можно закрывать!