Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN - Pascal

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

Составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ..., sinN Задачу мне нужно решить 3-мя способами: с параметром, цикл-пока, цикл-до.


textual

Код к задаче: «Не понимаю как составить программу вычисления суммы и произведения ряда sin1, sin2, sin3, ., sinN - Pascal»

var i,n:integer;
    s,p:real;
begin
n:=10;
s:=0;
p:=1;
for i:=1 to n do
 begin
  s:=s+sin(i);
  p:=p*sin(i);
 end;
writeln('Цикл с параметром');
writeln('s=',s:0:4);
writeln('p=',p:0:4);
writeln('-------------');
writeln('Цикл с предусловием');
s:=0;
p:=1;
i:=1;
while i<=n do
 begin
  s:=s+sin(i);
  p:=p*sin(i);
  i:=i+1;
 end;
writeln('s=',s:0:4);
writeln('p=',p:0:4);
writeln('-------------');
writeln('Цикл с постусловием');
s:=0;
p:=1;
i:=1;
repeat
 s:=s+sin(i);
 p:=p*sin(i);
 i:=i+1;
until i>n;
writeln('s=',s:0:4);
writeln('p=',p:0:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5

Источник