Найти произведение ряда - Turbo Pascal (33677)

Узнай цену своей работы

Формулировка задачи:

Даны действительное число a и натуральное число n. Вычислить : p=a*(a-n)*(a-2*n)*...*(a-n2). Использовать цикл с
предусловием.
Программу и блок-схему алгоритма. Заранее благодарен.

Решение задачи: «Найти произведение ряда»

textual
Листинг программы
var
   p,i,a,n :integer;
begin
writeln('введите числа a, n :');
readln(a,n);
i:=1;
p:=a;
while i<=n do
begin
  p:=p*(a-i*n);
  i:=i+1;
end;
writeln(p);
end.

Объяснение кода листинга программы

Этот код на Turbo Pascal запрашивает у пользователя два числа, a и n, и вычисляет их произведение. Переменные p, i и a инициализируются целочисленными значениями. Затем программа считывает введенные пользователем значения и сохраняет их в переменных a и n. Далее, переменная i устанавливается равной 1, а переменная p устанавливается равной a. Затем программа входит в цикл while, который выполняется, пока i меньше или равно n. Внутри цикла переменная p умножается на (a-i*n) и значение i увеличивается на 1. После выхода из цикла, программа выводит значение переменной p, которое является произведением чисел a и n.

Оцени полезность:

15   голосов , оценка 4.467 из 5