Kali ini kita akan belajar bagaimana cara membuat sebuah
program operasi perhitungan sederhana menggunakan bahasa program Pascal. Oke
langsung saja ketikkan coding berikut ini :
Var
angka1, angka2, tambah, kurang, kali, bagi : real;
begin
clrscr;
writeln(‘Program Penjumlahan’);
writeln(‘==================’);
writeln;
write(‘ ketik angka pertama : ‘); readln(angka1);
write(‘ ketik angka kedua : ‘); readln(angka2);
writeln;
tambah := angka1 + angka2;
kurang := angka1 - angka2;
kali := angka1 * angka2;
bagi := angka1 / angka2;
writeln;
writeln(angka1:0:2,’+’,angka2:0:2,’=’,tambah:0:2);
writeln(angka1:0:2,’-’,angka2:0:2,’=’,kurang:0:2);
writeln(angka1:0:2,’*’,angka2:0:2,’=’,kali:0:2);
writeln(angka1:0:2,’/’,angka2:0:2,’=’,bagi:0:2);
readln;
end.
Jika berhasil maka program yang tampil akan seperti berikut ini :
Sekian dan terimakasih, semoga bermanfaat !
Program Berhitung;
Uses crt;Var
angka1, angka2, tambah, kurang, kali, bagi : real;
begin
clrscr;
writeln(‘Program Penjumlahan’);
writeln(‘==================’);
writeln;
write(‘ ketik angka pertama : ‘); readln(angka1);
write(‘ ketik angka kedua : ‘); readln(angka2);
writeln;
tambah := angka1 + angka2;
kurang := angka1 - angka2;
kali := angka1 * angka2;
bagi := angka1 / angka2;
writeln;
writeln(angka1:0:2,’+’,angka2:0:2,’=’,tambah:0:2);
writeln(angka1:0:2,’-’,angka2:0:2,’=’,kurang:0:2);
writeln(angka1:0:2,’*’,angka2:0:2,’=’,kali:0:2);
writeln(angka1:0:2,’/’,angka2:0:2,’=’,bagi:0:2);
readln;
end.
*:0:2 digunakan agar hasil
perhitungan yang muncul hanya menampilkan 2 angka dibelakang koma (,) hal ini
karena kita menggunakan tipe data real untuk variabelnya.
Jika berhasil maka program yang tampil akan seperti berikut ini :
Tidak ada komentar:
Posting Komentar