Помогите решить

[макс122]

помогите последнюю в той разобрался... очень нужно

 

[Vladimir_S]

помогите последнюю в той разобрался... очень нужно

Как-то так:

Const
 a=-2.0;
 b=1.2;
Var
 x,y:Real;

Function F(z:real):real;
begin
 F:=Sin(z)/Cos(z)-Cos(z+3)/Sin(z+3);
end;

Function H(p:real):real;
begin
 If (p>-1) and (p<1) then H:=0.1 else H:=0.2;
end;

Begin
 x:=a-H(a);
 Repeat
  x:=x+H(x);
  y:=F(x);
  Writeln('x= ',x:4:1,'    y= ',y:9:5);
 Until x>b-H(b)/2;
 Readln;
End.

 

[макс122]

Спасибо помог очень