Membuat Lingkaran Berarsir dengan Turbo Pascal

Untuk dapat membuat program ini, komputer yang akan digunakan harus terinstall, Turbo Pascal, atau compiler lainnya yang dapat mengcompile bahasa pemrograman Pascal,

Cara membuat Program

1. Install program pascal dapat di download 

2. Setelah proses installasi selesai, copy kan seluruh file yang ada di direktori Unit kedalam direktori Bin

3. Buka file TPX untuk memulai bermain dengan Turbo Pascal

Perhatian : Program tersebut ada yang salah, mohon jangan andalkan Copy Paste

Kalau ada kebingungan Bisa Hubungi saya : 

- no Hp. 0856 288 9626

- e-mail/ym : soleh_09061988@yahoo.co.id

- Facebook : soleh semangat-belajar

1. Algoritma

1. Deteksi Driver VGA gunakan Procedure InitGraph
2. Masukan lokasi sumbu x (x)
3. Masukan lokasi sumbu y (y)
4. masukan jari-jari (r)
5. masukan code warna garis lingkar (c)
6. masukan code fill style (fs)
7. Masukan warna fill style(fc)
8. Gunakan Procedure SetColor (c) untuk mewarnai garis lingkar
9. Gunakan Procedure Circle(x,y,r) untuk membuat lingkaran
10. Gunakan Procedure SetFillStyle(fs,fc) untuk model dan warna area gambar
11. Gunakan Procedure FlodFill(x,y,c) untuk membatasi warna area gambar
12. Tutup Procedure graph
13. selesai

2. Script

Program Lingkaran;

USES Dos,Graph;

VAR

gm,gd,x,y,r,c,fs,fc:integer;

BEGIN

gm:=detect;
gd:=0;

InitGraph(gm,gd,'h:\tp\bgi');

Writeln('Nama : Muhamad Soleh');

Writeln('NIP : 8209033');

Write('Masukan lokasi sumbu x : ');readln(x);

Write('Masukan lokasi sumbu y : ');readln(y);

Write('Masukan Jari-jari lingkaran) : ');readln(r);

Write('Masukan Code warna Garis Lingkar 0..15 : ');readln(c);

Write('Masukan Code fill style 0..12 : ');readln(fs);

Write('Masukan Code Warna Fill Style nya 0..15 : ');readln(fc);

SetColor(c);

Circle(x,y,r);

SetFillStyle(fs,fc);

FloodFill(x,y,r);

Readln;

CloseGraph;

END.

3. Screen Shoot

Untuk Bisa Mengambil gambar pada file dos gunakan Software DOSBox 0.74

Download : http://nchc.dl.sourceforge.net/project/dosbox/dosbox/0.74/DOSBox0.74-win32-installer.exe

Cara menggunakan DOSBox 0.74