Процедура: нахождение целой положительной степени числа 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.
Объяснение кода листинга программы
- uses crt; - подключает модуль для работы с консолью
- procedure Power10(k:byte; var z:comp); - объявляет процедуру с именем Power10, которая принимает два аргумента типа byte (k) и comp (z), и возвращает nothing
- var i:byte; - объявляет переменную i типа byte
- z:=1; - инициализирует переменную z значением 1
- if k>0 then - условие, которое проверяет, больше ли k нуля
- for i:=1 to k do - начинает цикл, который выполняется k раз
- *z:=z10;** - умножает значение z на 10
- writeln('10^',k,'=',z:0:0); - выводит на экран строку '10^' и значение k, затем '=', и значение z, предварительно отформатированное до 0 знаков после запятой
- var p:comp; - объявляет переменную p типа comp
- begin - начало блока процедур
- clrscr; - очищает экран
- Power10(2,p); - вызывает процедуру Power10 с аргументами 2 и p
- Power10(8,p); - вызывает процедуру Power10 с аргументами 8 и p
- Power10(18,p); - вызывает процедуру Power10 с аргументами 18 и p
- readln - ожидает ввода с клавиатуры
- end. - конец блока процедур и программы в целом
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д