Postingan kemarin CorMIK sudah memeberikan list program menghitung luas dan keliling lingkaran, nah untuk postingan kali ini CorMIK akan memberikan list program untuk menjumlahkan dan mengurangkan dua bilangan bulat, langsung aja cekidot :
uses crt;
var
Jml1,Jml2,Bil1,Bil2 : Real;
begin
clrscr;
write('Masukkan bilangan bulat pertama : ');
readln(Bil1);
write('Masukkanbilangan bulat kedua : ');
readln(Bil2);
Jml1:=Bil1+ Bil2;
writeln('Hasilpenjumlahannya adalah : ',Jml1:2:0);
Jml2:=Bil1-Bil2;
writeln('Hasil pengurangannya adalah :',Jml2:2:0);
readln;
end.
Silahkan di CoPas ke program pascal agan, jika menurut agan ini bermanfaat harap di like dan di share ya..
Semoga Sukses : )
Semoga Sukses : )
0 komentar:
Posting Komentar