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

[Dorash87]

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

[Bokul]

Dorash87, читай посты модераторов, а то легко и в бан уйти...

Если нет то в чем ошибка?

Чуть-чуть отредактировал:

program d;
var  x, y, xmax, xmin, dx, sum : real;
     num:integer;
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) then begin
           num:=num+1;
           sum:=sum+y;
        end;
        writeln (x:6:3, y:6:3);
        x:=x+dx;
  end;
  writeln('Sum : ',sum:0:2);
  writeln('Number :',num);
  readln;
end.

PS видишь как мой код обрамленный в рамочку? Это же просят и от тебя..