Question

Составить программу вычисления значений функции y на отрезке [-4;4] с шагом 2. y = ctgx + 1

Answer 1

Ответ:

var x,y: real;

begin

x:=-4;

while (x<=4) do

 begin

 y:=(1/tan(x)) + 1;

 writeln('x=',x:6:2,'   ','y=',y:6:2);

 x:=x+2;

 end;

end.