Program Grafik Penjualan Barang Menggunakan Pascal Dengan Perintah GotoXY

Assalamu'alaikum, Wr. Wb.

Sudah lama saya tidak posting di blog saya yang satu ini karena masih sibuk dengan tugas-tugas kuliah di kampus dan proyek-proyek baru di rumah. Beruntung hari ini hari libur jadi saya sempatkan untuk memposting beberapa artikel tutorial.

Hari ini saya akan memposting tutorial program Pascal yang lebih rumit. Program ini adalah membuat gambar grafik. Kenapa Pascal kok bisa buat gambar grafik? Karena menggunakan perintah GotoXY kalian bisa membuat gambar grafik dengan rapi. Jadi sekarang saya akan memberikan contoh program Grafik Penjualan Barang dengan GotoXY, silahkan buka Turbo Pascal for Windows, kemudian ketikkan coding di bawah ini

program grafik;
uses wincrt;
type
    tahun = array[1..6] of byte;

procedure input(var thn : tahun);
var       i: byte;

begin
     clrscr;
     gotoxy(5,1);
     write('Data Penduduk Lombok NTB  : (dalam jutaan)');
     for i:= 1 to 6 do
         begin
         repeat
               gotoxy(5,2+i);write('Tahun ke : ',i);
               gotoxy(17,2+i);clreol;
               gotoxy(17,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,'L');
     for i:= 1 to 35 do write('-');
     gotoxy(39,18);write('1995  1996   1997  1998  1999  2000');
     gotoxy(41,21);write('Jumlah penduduk Lombok NTB ');
     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.

Jalankan perintah tersebut

Pada perintah tersebut, di sana ada dua Procedure, yang pertama adalah Procedure untuk menginputkan data sebanyak 6 data, kemudian Procedure gambar grafik dari ke enam data tersebut. Gambar grafik bisa muncul karena menggunakan perintah GotoXY. Karena GotoXY, kalian bisa dengan bebas meletakkan output di area manapun.

Cukup sekian dulu postingan kali ini. Untuk beberapa tutorial Pascal saya akan posting yang lainnya. Terima kasih, Wassalamu'alaikum Wr. Wb.