Написать программу.вычисляющую х^n, где n-любое число - Pascal
Формулировка задачи:
Здраствуйте.
Помогите пожалуйста решить задачу через PASCAL 7.0
Условие задачи: Написать программу.вычисляющую х ("икс") в степени n ("эн"), где n-любое число
Решение задачи: «Написать программу.вычисляющую х^n, где n-любое число»
textual
Листинг программы
var a,n,k:byte; y:integer; begin Writeln('Vvedite cislo'); readln (a); writeln('Vvesti stepeni'); readln(n); k:=n; y:=1; while k<>0 do begin k:=k-1; y:=y*a; end; writeln('Rezulitat - ',y); readln; end.
Объяснение кода листинга программы
- Создается переменная
a
типаbyte
, которая будет использоваться для хранения введенного пользователем числа. - Создается переменная
n
типаbyte
, которая будет использоваться для хранения введенного пользователем числа. - Создается переменная
k
типаbyte
, которая будет использоваться для хранения текущего значения переменнойn
. - Создается переменная
y
типаinteger
, которая будет использоваться для хранения результата вычисления значенияx^n
. - Выводится сообщение «Введите число» с помощью функции
Writeln()
. - Считывается введенное пользователем число с помощью функции
readln()
. Значение этого числа сохраняется в переменнойa
. - Выводится сообщение «Введите степень» с помощью функции
Writeln()
. - Считывается введенное пользователем число с помощью функции
readln()
. Значение этого числа сохраняется в переменнойn
. - Инициализируется переменная
k
значениемn
. - Инициализируется переменная
y
значением 1. - Запускается цикл
while
, который будет выполняться до тех пор, пока значение переменнойk
не станет равным 0. - Внутри цикла переменная
k
уменьшается на 1. - Переменная
y
умножается на значение переменнойa
. - После выхода из цикла значение переменной
y
выводится на экран с помощью функцииwriteln()
. - Выводится сообщение «Результат — », чтобы указать, что результат вычисления будет следующим.
- Выводится введенное пользователем число с помощью функции
readln()
. - Программа завершается.