Вывести максимальную цифру заданного числа - Turbo Pascal
Формулировка задачи:
Вводится 6-значное число.Вывести его максимальную цифру/
Не массивом
Решение задачи: «Вывести максимальную цифру заданного числа»
textual
Листинг программы
var n:longint;m:byte; procedure max(x:longint;var k:byte); begin if x>0 then if k<(x mod 10) then begin k:=x mod 10;max(x div 10,k) end else max(x div 10,k) end; begin write('n = ');readln(n);m:=0; max(n,m);writeln(m) end.
Объяснение кода листинга программы
- Объявляются две переменные типа longint: n и m.
- Создается процедура max с двумя переменными типа longint: x и k, и одной переменной типа byte: m.
- В процедуре max проверяется, больше ли значение x нуля. Если это так, то выполняется следующая проверка: если значение k меньше, чем остаток от деления x на 10, то значение k присваивается остаток от деления x на 10, и вызывается рекурсивно процедура max для x/10 и k.
- Если значение k больше или равно остатку от деления x на 10, то значение k остается без изменений, и вызывается рекурсивно процедура max для x/10 и k.
- В основной части программы считывается число n и сохраняется в переменной n. Затем вызывается процедура max с аргументами n и 0 (по умолчанию значение k равно 0). Результат сохраняется в переменной m, которая затем выводится на экран.
- Код завершается после вывода значения m.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д