Begin
var y, x, xn, xk, xd, a, b: double;
var i: integer;
write('Vvedite cherez probel Xn, Xk, Xd, A, B: ');
readln(xn, xk, xd, a, b);
x := xn;
repeat
begin
if (x-a) < 0 then
y := 0
else
y := sin(x - b) - sqrt(x - a);
writeln('Y = ', y:8:3,' X = ', x:3:1);
x := x + xd;
end;
until(x > xk)
End.
Comments
0 B
|👍
/👎
0 B
|👍
/👎