Algoritma Procedure Pembelanjaan

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!






Share Yuk!

0 komentar :