задача на табулирование функции Опции

[Dorash87]

Помогите с решением кто знает
Написать програму для табулирования функции y=cos2x на промежутке [0;3,14] с шагом 0,25 и найти количество и сумму значений что удолетворяют условие 0,5<y<1
Заранее спасибо

[Dorash87]

Bokul ну что правильное решение или нет? Если нет то в чем ошибка?
program d;
var
x, y, xmax, xmin, dx, num, sum : real;
begin
Writeln (.....);
xmin:=0;
xmax:=3.14;
dx:=0.25;
x:=xmin;
num:=0;
sum:=0;
while x<xmax do begin
y:=cos(2*x);
if (y>0,5) and (y<1) than begin
num:=num+1;
sum:=sum+y;
end;
writeln (x:6:3, e:6:3);
x:=x+dx;
end;
readln;
end.

Сообщение отредактировано: Dorash87 - 29.01.2007 1:18