[lmikle]

Сообщение от Alegun

Похоже, вам сюда

Да не, тема подходит.
А что, циклы не проходили?

Код:

const
  PI = 3.14;
var
  Z : Double;
begin
  Z := PI/3;
  While Z <= 2*PI/3 Do
    Begin
      WriteLn('X=',Z,'; COS(X)=',Cos(Z));
      Z := Z + PI/60;
    End;
end;