Contoh Program Aritmatika pada pascal

Di bawah ini adalah salah satu contoh program Aritmatika dalam pascal semoga bermanfaat :)




program aritmatika;
uses crt;
var
       n1,n2,tambah,kurang,kali:integer;
       bagi:real;
begin
clrscr;
writeln('ARITMATIKA');
writeln('========================');
writeln;
n1:=96;
n2:=99;
tambah:=n1+n2;
kurang:=n1-n2;
kali:=n1*n2;
bagi:=n1/n2;
writeln('Nilai 1 = ',n1);
writeln('Nilai 2 = ',n2);
writeln;
writeln('Hasil Penjumlahan  : ',tambah:2:1);
writeln('Hasil Pengurangan  : ',kurang:2:1);
writeln('Hasil Perkalian        : ',kali:2:1);
writeln('Hasil Pembagian     : ',bagi:2:1);
readln;
end.


ket :
warna hijau bisa diganti dengan huruf/kata apa aja tapi juga diubah rumusnya dengan huruf/kata yang kawan ganti !!

program ini buatan admin 100% jalan jika tidak jalan hubungi admin :)