ВВЕРХ
ВНИЗ

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

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

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

AN = A·A· ... ·A

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
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.

For16. Дано вещественное число A и целое число N (> 0).Используя один цикл, вывести все целые степени числа A от 1 до N.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
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.

For17. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму

1 + A + A2 + A3 + ... + AN.


Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
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.

For18. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти значение выражения

1 − A + A2 − A3 + ... + (−1)N·AN.

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
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.

Яндекс.Метрика