Таблица степеней - Pascal ABC
Формулировка задачи:
Составить таблицу степеней числа 3:
3n, n=1, 2, 3...i
Прекращать печатать таблицу, когда 3n превысит заданное число D. Вычисления проводить не используя операцию возведения в степень
Решение задачи: «Таблица степеней»
textual
Листинг программы
var d,i,s:integer;
begin
write('Введите число, максимум для 3^n d=');
readln(d);
s:=1;
i:=0;
while s<=d do
begin
s:=s*3;
writeln('3^',i,'=',s);
i:=i+1;
end;
end.
Объяснение кода листинга программы
- Создаются три переменные: d, i и s, которые имеют тип integer (целое число).
- Выводится сообщение «Введите число, максимум для 3^n d=», где n - это предполагаемый максимум степени, которую пользователь будет вводить.
- Считывается значение переменной d с помощью функции readln.
- Инициализируются переменные s и i нулевыми значениями.
- Запускается цикл while, который будет выполняться до тех пор, пока значение переменной s не превысит значение переменной d.
- Внутри цикла переменная s умножается на 3, что представляет собой возведение в степень.
- Выводится сообщение, содержащее степень 3, значение переменной i и значение переменной s.
- Переменная i увеличивается на единицу.
- Цикл while повторяется, пока значение переменной s не превысит значение переменной d.
- Код завершается.