Помогите, пожалуйста! Вычислите значение функции y=(2+3x)/(cos x +1) если x изменяется от...

Question

Помогите, пожалуйста! Вычислите значение функции y=(2+3x)/(cos x +1) если x изменяется от 0 до 1 с шагом 0,2. Вывод сделать в цикле, оформить в виде при x= y=

Answer 1

Var
  x,y:real;
begin
  x:=0;
  while x<=1 do begin<br>    Writeln('x=',x:3:1,', y=',(2+3*x)/(cos(x)+1));
    x:=x+0.2
    end
end.

Результат выполнения программы:
x=0.0, y=1
x=0.2, y=1.31308716034924
x=0.4, y=1.66574617359348
x=0.6, y=2.08180893911284
x=0.8, y=2.59325903278415
x=1.0, y=3.24611602602381