Верно ли, что данное число заканчивается на свою максимальную цифру? - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Найти максимальную цифру числа. Верно ли, что данное число заканчивается на эту цифру?

Решение задачи: «Верно ли, что данное число заканчивается на свою максимальную цифру?»

textual
Листинг программы
  1. uses crt;
  2.  
  3. var number, ost, temp, len, i, index, max:integer;
  4.  
  5. begin
  6.   clrscr;
  7.  
  8.   write('Enter a number: ');
  9.   readln(number);
  10.  
  11.   len:=0;
  12.   temp:=number;
  13.   max:=-MAXINT;
  14.  
  15.   repeat
  16.     number:=number div 10;
  17.     len:=len+1;
  18.   until(number=0);
  19.  
  20.   number:=temp;
  21.  
  22.   for i:=1 to len do
  23.     begin
  24.       ost:=temp mod 10;
  25.       temp:=temp div 10;
  26.      
  27.       if ost>max then
  28.         begin
  29.           max:=ost;
  30.           index:=i;
  31.         end;
  32.     end;
  33.    
  34.   writeln('Max digit of ', number, ' is ', max, '.');
  35.  
  36.   if index=1 then
  37.     writeln(max, ' is the last digit.')
  38.   else
  39.     writeln(max, ' is not the last digit.');
  40.    
  41.   readln();
  42. end.

Объяснение кода листинга программы

Данный код написан на языке Turbo Pascal и решает задачу проверки того, является ли число, введенное пользователем, числом, которое заканчивается на свою максимальную цифру. В коде используются следующие переменные:

  • number: переменная для хранения числа, введенного пользователем.
  • ost: переменная для хранения последней цифры числа.
  • temp: временная переменная для хранения частного от деления числа на 10.
  • len: переменная для хранения количества цифр в числе.
  • i: переменная для хранения номера текущей цифры.
  • index: переменная для хранения индекса последней цифры в числе.
  • max: переменная для хранения максимальной цифры числа. Код начинается с инициализации переменных и получения числа от пользователя. Затем происходит деление числа на 10, пока число не станет равным нулю. Это обеспечивает перебор всех цифр числа. Далее идет проверка: если последняя цифра (о которой мы храним информацию в переменной ost) больше максимальной цифры (которую мы храним в переменной max), то мы обновляем значение max и index. Это позволяет нам отследить максимальную цифру числа. После этого мы выводим результат на экран: максимальную цифру числа и сообщение о том, является ли она последней цифрой числа или нет. В конце кода происходит чтение следующего символа от пользователя, чтобы завершить цикл.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы