Найти произведение ряда - 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
.