Задание №4

Составить программу для вычисления суммы:

1. Составим графическую схему алгоритма

Нет

Да

2. Составим таблицу соответствия

В исходной задаче	p	i	n	S	a	k
В программе	p	I	n	S	a	k
Тип	int	int	int	real	int	int

3. Составляем программу на языке Pascal

Program Lena;

Var

S: real;

i, a, p, k, n: integer;

begin

writeln ('Введите значения a,n,p');

readln (a,n,p);

writeln('Введите количество циклов k');

readln(k);

S:=1;

for k:= 1 to n do

for i:=1 to 15 do

S:=S*((exp((n+2)*ln(a)))/n)+P*((exp(p*ln(a)))+(exp(a*ln(p))));

writeln ('S=', S:7:3);

end.