Помощь - Поиск - Пользователи - Календарь
Полная версия: Рекурсивная функция Digits без параметров
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.


Ну, да... Я просто автоматически поставил НЕчетные числа, измени их на четные, будет работать правильно... И символ, завершающий текст тоже поменяй на '&'
Andrey-irk
Я что-то не понял, что эта программа выводит на печать?
count = 1 ???
Как должен выглядеть текстовый файл? Я набрал так: 1 4 5 2 A S 5 G 6 &
Гость
ок. Спасибо! С этой задачей решено))) СПАСИБО!!!
А вторую не поможете сделать? Она простая, я это знаю, но сделать не получается))!

В текстовом файле хранятся строки:
Зима
Крестьянин
Торжествуя
...
...
Найти самую короткую и самую длинную строки.
Andrey-irk
Спасибо, эту тему можно закрывать!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.