Помогите пожалуйста решить задачу. Delphi
Код:
x:=xst;
while x<=xend do
begin
if x=0 then
if b<>0 then
y:=a*(x+c)-b
else
y:=(x-a)/(-c)
else
y:=a+x/c;
writeln(x,' ',y);
x:=x+dx;
end;
while x<=xend do
begin
if x=0 then
if b<>0 then
y:=a*(x+c)-b
else
y:=(x-a)/(-c)
else
y:=a+x/c;
writeln(x,' ',y);
x:=x+dx;
end;