Процедура: нахождение целой положительной степени числа 10 - Free Pascal

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

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

Помогите доработать программу { Напишите процедуру Power10(k:byte; var z:comp), в которой находится целая положительная степень числа 10. }
Program Prog_sam_13_04;

Var
    p:comp;
Begin
    Power10(2,p);
    Writeln('1E02 = ', p:1:0);
 
    Power10(8,p);
    Writeln('1E08 = ', p:1:0);
 
    Power10(18,p);
    Writeln('1E18 = ', p:1:0);
End.

Решение задачи: «Процедура: нахождение целой положительной степени числа 10»

textual
Листинг программы
uses crt;
procedure Power10(k:byte; var z:comp);
var i:byte;
begin
z:=1;
if k>0 then
for i:=1 to k do
z:=z*10;
writeln('10^',k,'=',z:0:0);
end;
var p:comp;
begin
clrscr;
Power10(2,p);
Power10(8,p);
Power10(18,p);
readln
end.

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

  1. uses crt; - подключает модуль для работы с консолью
  2. procedure Power10(k:byte; var z:comp); - объявляет процедуру с именем Power10, которая принимает два аргумента типа byte (k) и comp (z), и возвращает nothing
  3. var i:byte; - объявляет переменную i типа byte
  4. z:=1; - инициализирует переменную z значением 1
  5. if k>0 then - условие, которое проверяет, больше ли k нуля
  6. for i:=1 to k do - начинает цикл, который выполняется k раз
  7. *z:=z10;** - умножает значение z на 10
  8. writeln('10^',k,'=',z:0:0); - выводит на экран строку '10^' и значение k, затем '=', и значение z, предварительно отформатированное до 0 знаков после запятой
  9. var p:comp; - объявляет переменную p типа comp
  10. begin - начало блока процедур
  11. clrscr; - очищает экран
  12. Power10(2,p); - вызывает процедуру Power10 с аргументами 2 и p
  13. Power10(8,p); - вызывает процедуру Power10 с аргументами 8 и p
  14. Power10(18,p); - вызывает процедуру Power10 с аргументами 18 и p
  15. readln - ожидает ввода с клавиатуры
  16. end. - конец блока процедур и программы в целом

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


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

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

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