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 Menjumlahkan_Tiga_Bilangan;
Uses
Wincrt;
Var
Bil1,Bil2,Bil3:Integer;
Hasil:Integer;
Function Jumlah(a,b:integer):integer;
Begin
Jumlah:=a+b;
End;
Procedure Input;
Begin
Write('Inputkan Bilangan 1 : ');Readln(Bil1);
Write('Inputkan Bilangan 2 : ');Readln(Bil2);
Write('Inputkan Bilangan 3 : ');Readln(Bil3);
End;
Begin
Input;
Writeln('Hasil = ',Jumlah(Jumlah(Bil1,Bil2),Bil3));
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