Pascal ABC. Написать программу, чтобы построить график функции y=x2 на интервале [-3,3]
Pascal ABC.
Написать программу, чтобы построить график функции y=x2 на интервале [-3,3]
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1219
Uses
graphAbc;
Var
x1,y1,x2,y2,i:integer;
begin
maximizewindow;
line(0,300,windowwidth,300);
line(300,0,300,windowheight);
y2:=300;
x2:=300;
setpencolor(clblue);
for i:=0 downto -3 do
begin
x1:=x2;
y1:=y2;
x2:=i*5+300;
y2:=(-sqr(x2-300)+300);
line(x1,y1,x2,y2);
end;
y2:=300;
x2:=300;
for i:=0 to 3 do
begin
x1:=x2;
y1:=y2;
x2:=i*5+300;
y2:=(-sqr(x2-300)+300);
line(x1,y1,x2,y2);
end;
end.
Гость//Pascal ABC.NET v3.1 сборка 1219
Uses
graphAbc;
const
c = 300;
var
i: integer;
x, y: real;
begin
Line(0, c, WindowWidth, c);
Line(c, 0, c, WindowHeight);
for i := -3 * c to 3 * c do
begin
x := i / c;
y := x * x;
PutPixel(round(25 * x) + c, c - round(25 * y), clBlueViolet);
end;
end.
Не нашли ответ?
Похожие вопросы