Copy Scrip Pascal berwarna Biru yang ada pada halaman ini dan Paste-kan ke dalam Notepad, kemudian Copy dari Notepad anda ke dalam Compiler Turbo Pascal dan Compile Menggunakan Alt+F9 --> OK --> Enter.
Jalankan Program dengan menekan tombol Ctrl+F9 :
Program Proc_Pembelanjaan;
Uses wincrt;
Var
Pembelanjaan, Hasil: real;
Procedure Input;
Begin
Write('Inputkan Nominal Pembelanjaan = ');
Readln(Pembelanjaan);
End;
Procedure Bayar(a:real);
Begin
if a >= 100000 then
Hasil :=a-(a*0.2)
else
Hasil :=a;
End;
Begin
input;
Bayar(Pembelanjaan);
Writeln('Uang yang harus dibayarkan = ', Hasil:0:0);
End.
Semoga bermanfaat,,!!
Salam,,
Yura Hyde Tetsu
Jika Merasa Arikel dan Bacaan di
Billix Multimedia v.2
Bermanfaat,
Jangan Lupa Share ke Teman-teman melalui Tombol Share di bawah posting ini
Like on
Billix Multimedia v.2 Facebook
. Follow atau Berlangganan Via Email.
Terimakasih
Yang Copas, Jangan Lupa Mencantumkan Sumbernya Yah!
0 komentar :
Post a Comment