Question

Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования Паскаль для решения следующей задачи: возвести число Х в степень У. Функцию POWER использовать нельзя!!! НЕЛЬЗЯ использовать POWER(X,Y)!!! Нужно составить ДВЕ программы для возведения заданного пользователем целого числа в заданную пользователем целую степень (это задание 8 к пар. 39). Каждая из ДВУХ программ должна иллюстрировать ЛЮБЫЕ ДВА из ТРЁХ СУЩЕСТВУЮЩИХ ВИДОВ ЦИКЛОВ (с предусловием, с постусловием и с параметром). То есть следует выбрать два из трёх видов циклов и в Паскале создать к ним две программы. Тип данных для вывода результата лучше использовать LONGINT (т.к. пределы вычислений будут в пределах от -2 147 483 648… до … 2 147 483 647). Прошу помогите срочно не понимаю тему (((

Answer 1

Цикл с параметром:
program prost;
uses crt;
var y, i: word;
x: LongInt;
begin
readln(x);
readln(y);
for i := 2 to y do
x:=x*x;
writeln(x);
end.
Цикл с постусловием:
program prost;
uses crt;
var x: LongInt;
y, i: word;
begin
i := 0;
readln(x);
readln(y);
repeat
x := x*x;
Inc(i)
until i <> y;
writeln(x);
end.

Answer 2

Конечно, я помогу вам! Ниже представлены две программы на языке программирования Паскаль для возведения заданного числа Х в степень У. Обратите внимание, что эти программы используют различные виды циклов: цикл с предусловием и цикл с параметром.

Программа 1: Цикл с предусловием (while)

pascalCopy code
program PowerWithWhileLoop;
var
  X, Y, Result: LONGINT;
begin
  writeln('Введите основание (X): ');
  readln(X);
  writeln('Введите степень (Y): ');
  readln(Y);

  if Y < 0 then
  begin
    writeln('Степень должна быть неотрицательным числом.');
    exit;
  end;

  Result := 1;
  while Y > 0 do
  begin
    Result := Result * X;
    Dec(Y);
  end;

  writeln('Результат: ', Result);
end.

Программа 2: Цикл с параметром (for)

pascalCopy code
program PowerWithForLoop;
var
  X, Y, Result: LONGINT;
  i: Integer;
begin
  writeln('Введите основание (X): ');
  readln(X);
  writeln('Введите степень (Y): ');
  readln(Y);

  if Y < 0 then
  begin
    writeln('Степень должна быть неотрицательным числом.');
    exit;
  end;

  Result := 1;
  for i := 1 to Y do
  begin
    Result := Result * X;
  end;

  writeln('Результат: ', Result);
end.

Как использовать программы:

1. Скопируйте каждую из программ и вставьте в среду разработки Паскаль (например, Free Pascal или Turbo Pascal).
2. Запустите программу.
3. Введите число, которое хотите возвести в степень (X) и число-степень (Y).
4. Программа выведет результат возведения X в степень Y на экран.

Обе программы работают аналогично, но используют различные виды циклов для реализации возведения в степень. Если у вас возникнут вопросы или затруднения, не стесняйтесь задать их! Удачи в изучении программирования!