Верно ли, что данное число заканчивается на свою максимальную цифру? - Turbo Pascal
Формулировка задачи:
Найти максимальную цифру числа. Верно ли, что данное число заканчивается на эту цифру?
Решение задачи: «Верно ли, что данное число заканчивается на свою максимальную цифру?»
textual
Листинг программы
- uses crt;
- var number, ost, temp, len, i, index, max:integer;
- begin
- clrscr;
- write('Enter a number: ');
- readln(number);
- len:=0;
- temp:=number;
- max:=-MAXINT;
- repeat
- number:=number div 10;
- len:=len+1;
- until(number=0);
- number:=temp;
- for i:=1 to len do
- begin
- ost:=temp mod 10;
- temp:=temp div 10;
- if ost>max then
- begin
- max:=ost;
- index:=i;
- end;
- end;
- writeln('Max digit of ', number, ' is ', max, '.');
- if index=1 then
- writeln(max, ' is the last digit.')
- else
- writeln(max, ' is not the last digit.');
- readln();
- end.
Объяснение кода листинга программы
Данный код написан на языке Turbo Pascal и решает задачу проверки того, является ли число, введенное пользователем, числом, которое заканчивается на свою максимальную цифру. В коде используются следующие переменные:
- number: переменная для хранения числа, введенного пользователем.
- ost: переменная для хранения последней цифры числа.
- temp: временная переменная для хранения частного от деления числа на 10.
- len: переменная для хранения количества цифр в числе.
- i: переменная для хранения номера текущей цифры.
- index: переменная для хранения индекса последней цифры в числе.
- max: переменная для хранения максимальной цифры числа. Код начинается с инициализации переменных и получения числа от пользователя. Затем происходит деление числа на 10, пока число не станет равным нулю. Это обеспечивает перебор всех цифр числа. Далее идет проверка: если последняя цифра (о которой мы храним информацию в переменной ost) больше максимальной цифры (которую мы храним в переменной max), то мы обновляем значение max и index. Это позволяет нам отследить максимальную цифру числа. После этого мы выводим результат на экран: максимальную цифру числа и сообщение о том, является ли она последней цифрой числа или нет. В конце кода происходит чтение следующего символа от пользователя, чтобы завершить цикл.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д