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

[Dorash87]

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

[Dorash87]

Сам цыкл я сделал
program d;
var
x, y, xmax, xmin, dx: real;
begin
Writeln (.....);
xmin:=0;
xmax:=3.14;
dx:=0.25;
x:=xmin;
while x<xmax do begin
y:=cos(2*x);
writeln (x:6:3, e:6:3);
x:=x+dx;
end;
Кажется все

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