Membuat Titik

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;



For i := 0 to xmax do

Begin

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

End;

For i := 0 to ymax do

Begin

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

End;

Repeat until KeyPressed;

CloseGraph;

End.



Contoh progarm 1.1.2

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Until i = xmax;



i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Until i = ymax;



Repeat until KeyPressed;

CloseGraph;

End.



Contoh progarm 6.3

Program garis_dari_titik;

Uses

Graph, crt;

Var

Xmax, ymax, gm, gd, i : integer;

Begin

Gd := CGA;

Gm := CGAC3;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;



i := 0;

Repeat

PutPixel(i,0, 15);

PutPixel(i,ymax, 15);

Inc(i);

Delay(10);

Until i = xmax;



i := 0;

Repeat

PutPixel(0,i, 15);

PutPixel(xmax,i, 15);

Inc(i);

Delay(10);

Until i = ymax;



Repeat until KeyPressed;

CloseGraph;

End.



Contoh progam 6.4

Program titik_acak;

Uses

Graph, crt;

Var

Gd, gm,

xmax, ymax, x, y, : integer;

Begin

ClrScr;

Gd := CGA;

Gm := CGAHi;

InitGraph(gd,gm,’’);

Xmax := GetMaxX;

Ymax := GetMaxY;

Rectangle(0,0, xmax,ymax);



Randomize;

Repeat

X := random(xmax);

Y := random(ymax);

PutPixel(x,y,15);



Until KeyPressed;

CloseGraph;
End.