Помогите доделать задание в паскале

[neomaximus]

Построить график функций по формуле y=-3(2x по модулю)+30
Надо сделать шаг по меньше, чтоб она не выходила в верх

Program Graph_14_1;
uses graph;
var
k:byte;
x,dx,x1,x2,y:real;
mx,my,x0,y0,px,py:integer;
driver,mode,errcode:integer;
s,path:string;
procedure Grid(X1,Y1,X2,Y2:integer;k:real);
var i:integer;
begin
 if k>=8 then
  begin
   i:=X1+((X2-X1) div 2);
   setcolor(8);
   repeat
    line(i,Y1,i,Y2);
    i:=i+round(k);
   until i>=X2;
   i:=X1+((X2-X1) div 2);
   repeat
    line(i,Y1,i,Y2);
    i:=i-round(k);
   until i<=X1;
   i:=Y1+((Y2-Y1) div 2);
   repeat
    line(X1,i,X2,i);
    i:=i+round(k);
   until i>=Y2;
   i:=Y1+((Y2-Y1) div 2);
   repeat
    line(X1,i,X2,i);
    i:=i-round(k);
   until i<=Y1;
  end;
  setcolor(15);
  line(X1+((X2-X1) div 2),Y1,X1+((X2-X1) div 2),Y2);
  line(X1,Y1+((Y2-Y1) div 2),X2,Y1+((Y2-Y1) div 2));
 setcolor(12);
 rectangle(X1,Y1,X2,Y2);
end;
begin
k:=30;
driver:=vga;
mode:=vgahi;
path:='g:\bp\bgi';
initgraph(driver,mode,path);
errcode:=graphResult;
Grid(0,0,639,479,K);
if errcode<>grok then
begin
writeln('Error');
readln;
halt(1);
end;
x0:=320;
y0:=240;
mx:=10;
my:=10;
setcolor(15);
line(10,y0,790,y0);
line(x0,10,x0,590);
x1:=-3;
x2:=3;
dx:=0.01;
x:=x1;
while (x<x2) do
begin
setcolor(4);
outtextxy(90,300,'-3*abs(2*x)+30');
outtextxy(290,245,'-10');
outtextxy(325,245,'10');
outtextxy(360,245,'20');
outtextxy(390,245,'30');
y:=-3*abs(2*x)+30;
px:=x0+round(x*mx);
py:=y0-round(y*my);
putpixel(px,py,4);
x:=x+dx;
end;
readln;
closegraph;
end.

[bag]

Попробуй изменить строки 59, 60, 72-75 на следующие:
59. mx:=trunc(k/10);
60. my:=mx;
72. outtextxy(x0-k,245,'-10');
73. outtextxy(x0+k,245,'10');
74. outtextxy(x0+k*2,245,'20');
75. outtextxy(x0+k*3,245,'30');

[bag]

Попробуй изменить строки 59, 60, 72-75 на следующие:
59. mx:=trunc(k/10);
60. my:=mx;
72. outtextxy(x0-k,245,'-10');
73. outtextxy(x0+k,245,'10');
74. outtextxy(x0+k*2,245,'20');
75. outtextxy(x0+k*3,245,'30');

[bag]

Упс, клавиша залипла

[puporev]

Сделай проще, mx:=10; my:=3; x1:=-10; x2:=10; Ну и подпиши ось Х влево, а на оси У хотя бы точку +30 подпиши, все-таки узловая.

[bag]

Сообщение от puporev

Сделай проще, mx:=10; my:=3; x1:=-10; x2:=10; Ну и подпиши ось Х влево, а на оси У хотя бы точку +30 подпиши, все-таки узловая.

Проще - это не значит, что лучше! У него 3 коэффициента отвечают почти за одно и то же. Зачем подгонять каждый из них, когда можно выразить все через один?