Question

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

Answer 1

var

   x, y, result:real;

begin

   readln(x, y);

   result := 1;

   if y > 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y - 1;

       end;

   end

   else if y < 0 then

   begin

       while y <> 0 do

       begin

           result := result * x;

           y := y + 1;

       end;

       result := 1 / result;

   end

   else result := 1;

       

   writeln('x^y = ', result);

end.

Answer 2

In Pascal, you can create a program to calculate the exponentiation of a number x to the power of y. Here's a sample program:

pascalCopy code
program Exponentiation;

var
  x, y, result: real;

function Power(base, exponent: real): real;
var
  i: integer;
begin
  result := 1;
  for i := 1 to trunc(exponent) do
    result := result * base;
end;

begin
  // Clear the screen (optional)
  ClrScr;

  // Input the values of x and y
  writeln('Enter the value of x: ');
  readln(x);
  writeln('Enter the value of y: ');
  readln(y);

  // Calculate the result using the Power function
  result := Power(x, y);

  // Display the result
  writeln(x, ' raised to the power of ', y, ' is: ', result);

  // Wait for user input before closing the program (optional)
  readln;
end.

Explanation:

1. The Power function calculates the exponentiation using a simple for loop.
2. The program asks the user to input the values of x and y.
3. It then calls the Power function and stores the result in the result variable.
4. Finally, it displays the result of x raised to the power of y.

Please note that in Pascal, ^ is the exponentiation operator, so you could use x := x^y; instead of defining a separate Power function. However, I've used a custom function to demonstrate the concept of exponentiation.