Процедуры и функции. Число наоборот - Pascal ABC

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

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

Добрый вечер! Помогите, пожалуйста! Заменить данные n натуральных чисел на числа, которые получаются из исходных записью его цифр в обратном порядке (например, дано число 156, нужно получить 651). Определить функцию, которая записывает числа в обратном порядке.

Решение задачи: «Процедуры и функции. Число наоборот»

textual
Листинг программы
function revers(n:integer):integer;
var m,s:longint;
    i:byte;
begin
if n<10 then s:=n
else
 begin
  s:=0;
  while n>0 do
   begin
    i:=n mod 10;
    s:=s*10+i;
    n:=n div 10;
  end;
 end;
revers:=s;
end;
var n,i,a:integer;
begin
write('Сколько чисел вести n=');
readln(n);
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
 begin
  readln(n);
  writeln('Число наоборот=',revers(n));
 end;;
end.

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

  1. Создаётся функция revers(n:integer), которая принимает целочисленный аргумент n и возвращает целое число.
  2. В переменной m и s инициализируется значение 0.
  3. В переменной i инициализируется значение 1.
  4. Выполняется цикл while n>0 do, который будет выполняться до тех пор, пока n больше нуля.
  5. Внутри цикла выполняется операция n mod 10, которая возвращает последнюю цифру числа n.
  6. Полученное значение последней цифры добавляется к переменной s с множителем 10.
  7. Значение n делится на 10, и результат сохраняется в переменной n.
  8. После завершения внутреннего цикла, значение переменной s будет содержать число, полученное путем обратной записи цифр числа n.
  9. Значение переменной s присваивается переменной revers.
  10. Конец функции.
  11. Выводится приглашение для ввода количества чисел n.
  12. Выводится приглашение для ввода n натуральных чисел.
  13. Для каждого числа n из диапазона от 1 до n выполняется цикл for i:=1 to n do.
  14. Внутри цикла выполняется чтение числа n с помощью функции readln().
  15. Выводится сообщение Число наоборот=, за которым следует вызов функции revers(n).
  16. После завершения внешнего цикла, выводится итоговое сообщение.
  17. Конец программы.

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

10   голосов , оценка 4 из 5
Похожие ответы