Question

For15 pascal Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз) И ещё FOR16 если найдете плз Отмечу как лучший,если решите полностью for15 и for16 Пример решения: Uses PT4; bar a:real; k:integer; Begin Task('for5'); Read(a); for k:=1 to 10 do Write (a*0,1*k) End.

Answer 1

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.


FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.

Answer 2

Решение задачи FOR15 на Pascal

program FOR15;
var
  A: real;
  N, i: integer;
  result: real;
begin
  Write('Введите вещественное число A: ');
  Readln(A);
  Write('Введите целое число N (> 0): ');
  Readln(N);

result := 1;
  for i := 1 to N do
    result := result * A;

WriteLn('A в степени N равно: ', result);
end.

Объяснение решения: 1. Программа начинается с объявления переменных `A` (вещественное число), `N` (целое число), `i` (счетчик цикла) и `result` (результат возведения в степень). 2. Затем программа запрашивает у пользователя ввести значение для переменной `A` и сохраняет его. 3. Далее программа запрашивает у пользователя ввести значение для переменной `N` и сохраняет его. 4. Переменная `result` инициализируется значением 1. 5. Запускается цикл `for`, который выполняется от 1 до значения переменной `N`. 6. В каждой итерации цикла значение переменной `result` умножается на значение переменной `A`. 7. По окончанию цикла, переменная `result` содержит результат возведения числа `A` в степень `N`. 8. Результат выводится на экран.

Решение задачи FOR16 на Pascal

program FOR16;
var
  A: real;
  N, i: integer;
  result: real;
begin
  Write('Введите вещественное число A: ');
  Readln(A);
  Write('Введите целое число N (> 0): ');
  Readln(N);

result := 1;
  for i := 1 to N do
    result := result * (A + (0.1 * i));

WriteLn('Результат вычисления: ', result);
end.

Объяснение решения: 1. Программа начинается с объявления переменных `A` (вещественное число), `N` (целое число), `i` (счетчик цикла) и `result` (результат вычисления). 2. Затем программа запрашивает у пользователя ввести значение для переменной `A` и сохраняет его. 3. Далее программа запрашивает у пользователя ввести значение для переменной `N` и сохраняет его. 4. Переменная `result` инициализируется значением 1. 5. Запускается цикл `for`, который выполняется от 1 до значения переменной `N`. 6. В каждой итерации цикла значение переменной `result` умножается на сумму числа `A` и значения `(0.1 * i)`. 7. По окончанию цикла, переменная `result` содержит результат вычисления. 8. Результат выводится на экран.

Примечание: Обратите внимание, что в примерах решений я использовал точку (`.`) вместо запятой (`,`) для разделения десятичной части числа. В разных регионах может использоваться различный символ для разделения десятичной части числа. Пожалуйста, учитывайте это при вводе чисел в вашей среде разработки.