Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задача на произведение.
Автор: Troy 21.12.2004 4:15
Братцы, наверное многих уже достал своими проблемами, но завтра они в любом случае у меня закончатся: либо сдам долги по лабам, либо нет...Вот ещё задачка....
Исходные данные:
X=0.38
N=9
Эскизы прикрепленных изображений
Автор: klem4 22.12.2004 2:20
Вроде так :
Код
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.
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.