Question

SOS!!! Паскаль 9 класс, integer, подпрограммы Написать программу используя процедуру, которая вычисляет a^n. Целые числа a и n вводятся с клавиатуры.

Answer 1

Ответ:

program z;

var a, n:integer;

procedure s(x,y:integer);

var i,s:integer;

begin

s:=1;

for i:= 1 to y do s:= s * x;

write('Степень числа равна: ',s)

end;

begin

write('Введите число: ');

readln (a);

write ('Введите степень числа: ');

read (n);

s(a,n)

end.

Answer 2

Программа на языке Pascal для вычисления a^n

Для написания программы на языке Pascal, которая вычисляет a^n, можно использовать процедуру. Ввод целых чисел a и n будет осуществляться с клавиатуры.

Вот пример программы, которая реализует данную задачу:

program PowerCalculation;

var
  a, n, result: integer;

procedure Power(base, exponent: integer; var res: integer);
var
  i: integer;
begin
  res := 1;
  for i := 1 to exponent do
    res := res * base;
end;

begin
  writeln('Введите число a:');
  readln(a);
  
  writeln('Введите число n:');
  readln(n);
  
  Power(a, n, result);
  
  writeln('Результат: ', result);
end.

В этой программе используется процедура `Power`, которая принимает два параметра: `base` (основание) и `exponent` (показатель степени), а также переменную `res`, которая будет содержать результат возведения в степень. Внутри процедуры происходит вычисление степени путем последовательного умножения основания на себя `exponent` раз.

Затем основная часть программы запрашивает у пользователя ввод чисел `a` и `n`, вызывает процедуру `Power` и выводит результат.

Примечание: В данном примере предполагается, что пользователь будет вводить только целые числа. Если требуется обработка ошибок ввода, необходимо добавить соответствующую проверку и обработку ошибок.

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.