Membuat Program Sederhana Dengan Pascal

Ok sobat Blogtekno,Kita awali coding dengan membuat program sederhana,yaitu program menghitung pengeluaran mahasiswa,berikut screnshootnya :

Berikut listing/script programnya :

Program Hitung_pengeluaran_Mahasiswa;
uses crt;
const
     Jajan_per_Hari=20000;
var
  Nama,NIM      : string;
  Har_Ma        : longint;
  Har_Mi        : longint;
  Peng_hari_ini : longint;

begin
clrscr;
gotoxy(10,1);writeln('------------------------------------------------------------------');  
Gotoxy(10,2);writeln('                 Menghitung Pengeluaran Mahasiswa');
gotoxy(10,3);writeln('------------------------------------------------------------------');
Gotoxy(10,4);write('Masukkan NIM Anda           :');readln(NIM);
Gotoxy(10,5);write('Masukkan Nama               :');readln(Nama);
Gotoxy(10,6);write('Harga Makanan               :Rp.');readln(Har_Ma);
Gotoxy(10,7);write('Harga Minuman               :Rp.');readln(Har_Mi);
Gotoxy(10,8);writeln('------------------------------------------------------------------');

{RUMUS}

Peng_hari_ini := Har_Ma + Har_Mi;

Gotoxy(10,11);write('Pengeluaran Hari Ini       :Rp.',Peng_hari_ini);
Gotoxy(10,12);write('Sisa Uang Jajan            :Rp.',Jajan_per_Hari);
Gotoxy(10,14);write('*****************INGATKI MENABUNG UNTUK MASA DEPANTA**************');
readln;

end.

*SELAMAT MENCOBA *

Tweet

Subscribe to receive free email updates: