CONTOH PROGRAM GRAFIK PADA PASCAL

ini contoh program buat pascal dengan grafik . Awalnya bingung tapi terus dikasih contoh sama Pak Bambang :D


uses crt,graph;
var
        tunggu :word;
        ufo :pointer;
        X,Y :integer;
        x1,y1,x2,y2 :word;
        ukuran :word;
        l :word;
        DriverGrafik, ModeGrafik :integer;
begin
        InitGraph(DriverGrafik, ModeGrafik, '');
        DriverGrafik:=CGA;
        ModeGrafik:=CGAC1;

        OutTextXY(30,700,'Tekan Sembarang Untuk Selesai');

        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.

kalo program ini dijalankan, akan ada hasil gambar UFO yang bergerak-gerak.

sumber : Buku teori dan Aplikasi Program Komputer Bahasa Pascal