[Ego_Brain]

Составить программу вычисления значений функции Y(x) = cos(x) на интервале [П/3; 2П/3] с шагом П/60. Результаты вычислений представить в виде таблицы.

[Alegun]

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

[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;

[Alegun]

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

Да не, тема подходит...

Не подумайте ни чего плохого, я по теме и отправляю ТС, нашёл что-то похожее, просто копипастить в "Код на шару!" энто дело как-то не удобно стало