Вещественное число в натуральной степени

На этой странице дано решение однотипных примеров For15-18 из задачника Абрамяна. Все они связанны с возведением вещественного числа в натуральную степень, а также с суммированием степеней.

For15. Дано вещественное число A и целое число N (> 0). Найти A в степени N:

A^N = A·A· ... ·A

(числа A перемножаются N раз).

var
  i, N: integer;
  A, P: real;

begin
  write('A = ');
  readln(A);
  write('N = ');
  readln(N);
  P := 1; { <== начальное значение степени числа A }
  for i := 1 to N do
    P := P * A; { <== предыдущее значение умножаем на A }
  writeln;
  writeln(A, ' в степени ', N, ' = ', P);
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ For16. Дано вещественное число A и целое число N (> 0).Используя один цикл, вывести все целые степени числа A от 1 до N.

var
  i, N: integer;
  A, P: real;

begin
  write('A = ');
  readln(A);
  write('N = ');
  readln(N);
  writeln;
  P := 1; { <== начальное значение степени числа A }
  for i := 1 to N do
  begin
    P := P * A; { <== предыдущее значение умножаем на A }
    writeln(' ', A, ' в степени ', i, ': ', P)
  end;
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ For17. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму

1 + A + A² + A³ + ... + A^N.

var
  i, N: integer;
  A, P, S: real;

begin
  write('A = ');
  readln(A);
  write('N = ');
  readln(N);
  P := 1; { <== начальное значение степени числа A }
  S := 1; { <== начальное значение суммы }
  for i := 1 to N do
  begin
    P := P * A; { <== i-я степень A }
    S := S + P  { <== находим сумму }
  end;
  writeln;
  writeln('Искомая сумма:  ', S);
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ For18. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения

1 − A + A² − A³ + ... + (−1)^N·A^N.

Условный оператор не использовать.

var
  i, N: integer;
  A, P, S: real;

begin
  write('A = ');
  readln(A);
  write('N = ');
  readln(N);
  P := 1; { <== начальное значение степени A }
  S := 1; { <== начальное значение суммы }
  for i := 1 to N do
  begin
    { Предыдущее значение умножаем на A со знаком "-": }
    P := -P * A;
    S := S + P { <== находим сумму }
  end;
  writeln;
  writeln('Искомая сумма: ', S);
  readln
end.

**type** integer;: Представляет 32-битовое целое число со знаком.Диапазон значений: -2 147 483 648 .. 2 147 483 647 **type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸