Source Code Program Graph Ufo Terbang Dengan Bahasa Pascal

Source Code Program Graph Ufo Terbang Dengan Bahasa Pascal

Baik Sob kali ini mimin akan membagikan source code bahasa pascal yaitu membuat graph ufo terbang. Source code ini sering menjadi tugas kuliah nih sob, terutama mata kuliah praktikum struktur data ane.

Langsung saja sob kita lihat source code-nya beserta outputnya, mimin harap kalian semua dapat mempelajarinya, syukur-syukur dapat membuat yang lebih keren lagi.

========================================================================

Program graf;

uses crt, graph;

var

tunggu, x1,x2,y1,y2, ukuran, l : word;

x, y, drivegrafik, modegrafik : integer;

ufo : pointer;

begin

InitGraph(drivegrafik, modegrafik,' ');

drivegrafik := CGA;

modegrafik := CGAC1;

OutTextXY(30,30,'Tekan sembarang untuk selesai'); // OutTextXY = utk menentukan titik penempatan text

SetColor(1);

Ellipse(160,100,0,360,20,5);

Line(140,100,180,100);

SetFillStyle(SolidFill,4);

FloodFill(160,101,1);

Line(160,95,160,90);

Circle(160,90,2);

x1 := 140;

y1 := 89;

x2 := 180;

y2 := 105;

ukuran := ImageSize(x1,y1,x2,y2);

GetMem(ufo,ukuran);

GetImage(x1,y1,x2,y2, ufo^);

PutImage(x1,y1, ufo^, XORput);

for l := 1 to 1000 do

PutPixel(random(1200),random(1200), 3);

x := 1200;

y := 1200;

tunggu := 250;

repeat

PutImage(x,y,ufo^,XORput);

Delay(tunggu);

PutImage(x,y,ufo^,XORput);

x := random(3000);

y := random(1800);

until KeyPressed;

closegraph;

end.

========================================================================

OUTPUT

========================================================================

Nah itulah sob source code graph dengan bahasa pascal, semoga artikel ini bermanfaat meskipun masih banyak kekurangannya.