Определить процедуру, позволяющую распознавать степень пятерки. - Pascal ABC

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

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

Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

Решение задачи: «Определить процедуру, позволяющую распознавать степень пятерки.»

textual
Листинг программы
uses crt;
procedure stpn(x:integer; var st:real);
begin
st := ln(x)/ln(5);
end;
var n, a, i:integer;
st:real;
c:char;
begin
writeln('Введите число членов последовательности');
readln(n);
for i:=1 to  n do
    begin
    writeln('Введите член последовательности');
    readln(a);
    stpn(a,st);
    writeln('Показатель степени числа ',a,' по основанию 5 =', st);
    writeln('Для продолжения нажмите любую клавишу, для выхода нажмите Esc');
    while KeyPressed do c := ReadKey;
    c:=readkey;
    if c = #27 then exit;
    end;
end.

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

  1. В первой строке используется библиотека crt, которая является стандартной библиотекой языка Pascal ABC.
  2. В следующей строке определена процедура stpn, которая принимает целочисленный аргумент x и переменную st типа real. Внутри процедуры значение переменной st устанавливается равным логарифму x по основанию 5.
  3. Далее объявлены переменные n, a и i типа integer, а также переменная st типа real.
  4. В строке считывания вводится число членов последовательности.
  5. Затем, в цикле for, считываются члены последовательности.
  6. Для каждого члена последовательности вызывается процедура stpn, передавая в нее значение переменной a и переменную st, которая изначально установлена равной 0.
  7. После вызова процедуры stpn выводится значение переменной st, которое представляет собой показатель степени числа a по основанию 5.
  8. Затем выводится сообщение для продолжения или выхода из программы.
  9. Цикл for продолжается до тех пор, пока пользователь не нажмет любую клавишу.
  10. Если пользователь нажимает клавишу с кодом #27, то программа завершается.
  11. В конце программы считывается символ, введенный пользователем, и если он равен #27, то программа завершается.

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

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