Question

ДАЮ 30 Б Составить программу на языке Паскаль,возведения числа х в степень числа y.

Answer 1

Хорошо, если вы не используете функции и не используете библиотеки(типа crt)

var i, y, x, xy:integer;

begin

write('x=');

readln(x);

write('y=');

readln(y);

xy:=x;

for i:=1 to (y-1) do

begin

xy:=xy*x;

end;

writeln(xy);

end.

Answer 2

Для написания программы на языке Паскаль, которая осуществляет возведение числа x в степень y, можно использовать следующий код:

pascalCopy code
program Exponentiation;

var
  x, y, result: real;

function Power(base, exponent: real): real;
var
  i: integer;
begin
  if exponent = 0 then
    Power := 1
  else
  begin
    Power := 1;
    for i := 1 to abs(trunc(exponent)) do
      Power := Power * base;

    if exponent < 0 then
      Power := 1 / Power;
  end;
end;

begin
  writeln('Введите число x:');
  readln(x);

  writeln('Введите степень y:');
  readln(y);

  result := Power(x, y);

  writeln(x, ' в степени ', y, ' равно ', result:0:2);
end.

Обратите внимание, что в приведенном коде используется функция Power, которая реализует возведение числа в степень. В ней предусмотрена обработка отрицательных степеней. После ввода чисел x и y, программа вычисляет и выводит результат возведения числа x в степень y с точностью до двух знаков после запятой.