[Pascal] Funkcja liniowa - rysowanie

[dutra22]

program projekt;

Kod: Zaznacz cały

uses Graph,Crt;
var
tryb,karta:smallint;
b1,b2,x1,x2,y1,y2,c,d,x11,x22,a1,y11,y22: longint;

x,y,a,b: extended;


begin
writeln('Podaj zmienna kierunkowa A: ');
readln(a);
writeln('Podaj zmienna przesuniecia B: ');
readln(b);


x1:=1;
x2:=2;
b1:=round(b);
a1:=round(a);
x11:=round(x1);
x22:=round(x2);
y1:=(a1*x1+b1);
y11:=round(y1);
y2:=(a1*x2+b1);
y22:=round(y2);
initgraph(karta,tryb,'');

moveto(400,320);
moverel(x11,-y11);
linerel(x22,-y22);
linerel(-x22,y22);


Line (400,0,400,640);
Line (0,320,800,320);
y1:=20;
y2:=20;
repeat
Line (395,y1,405,y2);
y1:=y1+15;
y2:=y2+15;
until y1=635;
x1:=25;
x2:=25;
repeat
Line (x1,315,x2,325);
x1:=x1+15;
x2:=x2+15;
until x2=790;
Line (400,0,395,5);
Line (400,0,405,5);
Line (800,320,795,315);
Line (800,320,795,325);
outtextxy(383,2,'Y');
outtextxy(793,305,'X');


readln;
closegraph;
end.

Mam taką funkcję, co muszę zmienić, aby chciała rysować?

[gildon]

Po pierwsze tuż po głównym begin powinno być tak:

Kod: Zaznacz cały

detectgraph(karta,tryb);
initgraph(karta,tryb,');

Po drugie postaraj się używać tabulatora po każdym begin np.:

Kod: Zaznacz cały

[...]
begin
     if(x=x)then
     begin
            [...]
     end;
end;

Po trzecie jeśli chcesz mieć liczbę minusową to musisz zrobić np.:
\(\displaystyle{ x:=0-x;}\)

Po czwarte dodawaj komentarze jeśli chcesz, aby sprawdzający wiedzieli cokolwiek! Bo nic Twojego programu nie widać na pierwszy rzut oka