Bagi anda yang ingin mencoba membuat garis dan titik pada pascal, mungkin tutorial ini bisa membantu
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.
selamat mencoba
Jumat, 04 November 2011
membuat garis dan titik pada pascal
Label:
pascal
Langganan:
Postingan (Atom)