Задача на произведение. Опции

[Troy]

Братцы, наверное многих уже достал своими проблемами, но завтра они в любом случае у меня закончатся: либо сдам долги по лабам, либо нет...Вот ещё задачка....

Исходные данные:
X=0.38
N=9

Сообщение отредактировано: Troy - 21.12.2004 4:15

[klem4]

Вроде так :

Код

uses crt;
var p,x,y:extended;
     i,n:integer;
Begin
    readln(n);
    readln(x);
    p:=1;
    for i:=2 to n do
     p:=p*(2.8*(exp(3*ln(x)))+2.8*sin(i*x));
    y:=3*sin(x)+p;
    writeln('y=',y:2:3);
    readln;
end.

Сообщение отредактировано: klem4 - 22.12.2004 2:21