Написать программу.вычисляющую х^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.

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

  1. Создается переменная a типа byte, которая будет использоваться для хранения введенного пользователем числа.
  2. Создается переменная n типа byte, которая будет использоваться для хранения введенного пользователем числа.
  3. Создается переменная k типа byte, которая будет использоваться для хранения текущего значения переменной n.
  4. Создается переменная y типа integer, которая будет использоваться для хранения результата вычисления значения x^n.
  5. Выводится сообщение «Введите число» с помощью функции Writeln().
  6. Считывается введенное пользователем число с помощью функции readln(). Значение этого числа сохраняется в переменной a.
  7. Выводится сообщение «Введите степень» с помощью функции Writeln().
  8. Считывается введенное пользователем число с помощью функции readln(). Значение этого числа сохраняется в переменной n.
  9. Инициализируется переменная k значением n.
  10. Инициализируется переменная y значением 1.
  11. Запускается цикл while, который будет выполняться до тех пор, пока значение переменной k не станет равным 0.
  12. Внутри цикла переменная k уменьшается на 1.
  13. Переменная y умножается на значение переменной a.
  14. После выхода из цикла значение переменной y выводится на экран с помощью функции writeln().
  15. Выводится сообщение «Результат — », чтобы указать, что результат вычисления будет следующим.
  16. Выводится введенное пользователем число с помощью функции readln().
  17. Программа завершается.

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

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