Sebuah Program Menggunakan Bahasa Pascal Program grafik

Berikut ini adalah Sebuah Program Menggunakan Bahasa Pascal Program grafik :

Dan berikut ini adalah coding 

Sebuah Program Menggunakan Bahasa Pascal Program grafik

uses crt:
type
tahun= array[1..6] of byte;

procedure input(var Thn: Tahun);
var i: byte;
begin
clrscr;
gotoxy(5,1); write('Data : (Dalam Jutaan)');
for i:=1 to 6 do
begin
repeat
gotoxy(5,2+i); write('Tahun ',i,' :');
gotoxy(16,2+i); ClrEol;
gotoxy(16,2+i); Readln(Thn[i]);

until (Thn[i] > 0) and (Thn[i] < 16);
end;
end;
Procedure gambar (Thn: Tahun);
var i, j: byte;
begin
for i:=0 to 14 do
begin
gotoxy(35,2+i); write(15-i:2,'|' );
end;
gotoxy(36,17); write(0,' ');
for i:= 1 to 34 do write('-');
gotoxy(39,18); write('2003 2004 2005 2006 2007 2008');
gotoxy(48,21); write('Jumlah Mahasiswa');
gotoxy(43,22); write('Universitas Serambi Mekkah');
for i:= 1 to 6 do
for j:= 1 to Thn[i] do
begin
gotoxy(33+i*6, 17-j); write('|**|');
end;
ReadKey;
end;

var Data : Tahun;

begin
Input(Data);
Gambar(Data);
end.


Beriku ini adalah jasil dari Output Program grafik :

Data : (Dalam Jutaan)
15|
Tahun 1 : 1 14|
Tahun 2 : 3 13|
Tahun 3 : 4 12|
Tahun 4 : 5 11|
Tahun 5 : 7 10|
Tahun 6 : 9 9| |**|
8| |**|
7| |**| |**|
6| |**| |**|
5| |**| |**| |**|
4| |**| |**| |**| |**|
3| |**| |**| |**| |**| |**|
2| |**| |**| |**| |**| |**|
1| |**| |**| |**| |**| |**| |**|
0 --------------------------------------------

2003 2004 2005 2006 2007 2008

Demikian lah ini artikel saya tentang " Sebuah Program Menggunakan Bahasa Pascal Program grafik ",, Semoga bermanfaat bagi rekan rekan semua.............