Minggu, 05 Januari 2014
Selamat siang sobat CoJa. Postingan kali ini saya ingin share source code program perkalian 3 bilangan dengan bahasa pascal. Kali ini adalah lanjutan dari 2 postingan sebelumnya yaitu Pascal Penjumlahan 3 Bilangan dan juga Perhitungan Volume Kubus/Balok Dengan Pascal. Kini saatnya kita masuk ke perkalian 3 bilangan. Memang sama seperti Perhitungan Volume Kubus/Balok, hanya diganti saja nama inputannya :))
Penasaran? Ok, kalau begitu kita lanjut.
Seperti biasa anda membutuhkan Tools :
- Turbo Pascal
- DOSBox ( Untuk menjalankan Turbo Pascal pada komputer 64bit ).
Tak perlu mencari rumus seperti perhitungan volume, karena ini kan hanya menggunakan 3 bilangan saja :))
Source nya:
=========================
program Perkalian;
{I.S : diberikan layar kosong}
{F.S : Menampilkan hasil perkalian 3 bilangan}
Uses crt;
var
a,b,c,hasil:integer;
begin
clrscr;
writeln('Perkalian 3 bilangan');
write('Masukkan Bilangan Pertama: ');readln(a);
write('Masukkan Bilangan Kedua: ');readln(b);
write('Masukkan Bilangan Ketiga: ');readln(c);
hasil:=a*b*c;
writeln('Maka Hasilnya adalah: ',hasil);readln;
end.
=========================
Simple seperti yang saya katakan dipostingan yang lalu kan? :))
Ok, sekian saja dulu ya... Salam
