membuat kalkulator dengan pascal

Hannan008- kali ini saya akan sharing source code kalkulator sederhana program free pascal
sebenarnya membuat kalkulator menggunakan pascal itu mudah dan banyak caranya, tergantung imajinasi dan kreatifitas kita. dan logika sangat di butuhkan dalam membuat program.

source code nya sederhana dan sesuaikan dengan keinginan kita saja, saya kasih contoh yang paling sederhana saja.


kalkulator pertambahan

var
a,b :integer;
c:real;
begin
write('angka pertama :'); readln(a);
write('angka kedua    :'); readln(b);
c:=a+b;
writeln('hasil tambah',c:2:2);
readln;
end.





kalkulator yang lebih kompleks


program kalkulator;
uses crt;
var
a, b :integer;
c: real;
pilih :char;
lg :byte;
begin
repeat
clrscr;
write('masukkan angka pertama :'); readln(a);
write('masukkan angka kedua     :'); readln(b);
write('PILIH BILANGAN'); readln(pilih);
begin
if pilih='+' then  c:=a+b
else if pilih='-' then c:=a-b
else if pilih='*' then c:=a*b
else if pilih='/' then c:=a/b;
end;
clrscr;
writeln('HASIL =',c:10:0);
readln;
repeat until upcase(lg)='T';
end.


kalkulator penghitung luas

uses crt;
var
x, y :integer;
z :real;
begin
clrscr;
write('masukkan nilai panjang :'); readln(x);
write('masukkan nilai lebar :'); readln(y);
z:=x*y;
clrscr;
writeln('LUASNYA =',z:10:0);
readln;
end.



akan sedikit saya jelaskan,
var = mendeklarasikan variable
a dan b = variable yg ber type :integer
c = var yang bertype : real

disini coba kita simpulkan menggunakan logika
write = inputan dari user
readln = tempat menampung data yg di inputka user
contoh : write('angka pertama :');  nah disini user akan menginputkan angka
readln(a);   nah angka yang di inputkan user tadi akan masuk ke variable a .

write('angka kedua :');  disini user akan menginputkan angka ke dua
readln(b); dan di variable b akan di tampung angka/data yang di masukkan user di angka kedua.

nah sampai disini pernyataan/statement variable a dan b sudah selssai.
sekarang menytakan var c.

c:=a+b;
pahami kode di atas , apa yang dapat kamu simpulkan ?
ini masuk akal sekali, jika di contohkan ke dalam matematika artinya (c=a+b) "c sama dengan a tambah b" logis kan ???
sekarang bagian menampilkan datanya , untuk menampilkan datanya terserah data dari variable apa saja yang ingin di tampilkan,

caranya begini.
writeln('hasilnya adalah=',c:2:2);   artinya (hasilnya adalah var c " apa isi variable c ? iya itu tadi a+b=c .
untuk angka 2:2 dibelakang c. 2 pertama menunjukkan tataletak di baris kedua, dan 2 kedua menunjukkan bilangan di belakan tidak lebih dari dua angka, maksudnya (jika c=2000 maka akan di tulis =2000.00) begitupun seterusnya tergantung mau di masukkan angka berapa di belakan c.

sekian dulu dari saya semoga bermanfaat. dan teruslah belajar............

Share

Like

G+

Tweet

Tweet