Contoh program penghitungan dengan pascal
uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
write ('masukan angka ke-1:');readln (x);
write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
write ('masukan angka ke-2:');readln (y);
if ( jawab= '+') then
begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
end;
if ( jawab = '*') then
begin
hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
end.
11 responses to “Program Kalkulator Sederhana”
itu membuat program kalkulator sederhananya dengan stack bukan
???
@nona :
bukan .. itu ngga pake stack, cuma algoritma sederhana saja .. :)
Btw,flowchartnya mna kk?? ^^
gmn cara nyari program volume sama kyak d atas,,,,tapi ad menu pilihanx,,,
cntoh,,,
menu pilihan
1.volume kubus
2.volume tabung
3.volume bola
4.volume balok
tp pke tpw,,,,bkan tpx
tlog y,,,,,
mkasih sblumx
kok saya g bisa y?
apa emang pakai bahasa indo?
saya sudah coba pakai bahasa inggris tapi g bisa
ini juga bisa digunakan untuk program kalkulator dengan mengggunakan TPW Turbo Pascal
programnya adalah :
Program kalkulator;
Uses wincrt;
Var n1,n2,p,h:real;
begin
writeln(‘program kalkulator’);
writeln(‘==================’);
write(‘masukan nilai pertama’);readln(n1);
write(‘masukan nilai kedua’);readln(n2);
writeln(‘pilih operasi’);
writeln(‘1–> perkalian’);
writeln(‘2==> pembagian’);
writeln(‘3–> penjumlahan’);
Writeln(‘4–> pengurangan’);
write(‘pilihan anda[1..4]=’);readln(p);
if p=1 then h:=n1*n2;
if p=2 then h:=n1/n2;
if p=3 then h:=n1+n2;
if p=4 then h:=n1-n2;
writeln(‘hasil operasinya adalah=’,h:0:2);
readln;
end.
kenapa ya punya q kok hasilnya salah ….?
pdhl programnya dh btul
sintaks programx saya copy ya kk., skalian saya pelajari n bwat tugas perkuliahanq ku..thanks ya kk..
flowchatny gmn min admin
ini gimna cara nya buat listing nya
kalo mau bentuk jadi kaya gini gimana
KALKULATOR
========================================
1. PENGURANGAN
2.PERTAMBAHAN
3.PEMBAGIAN
4.PERKALIAN
5. KELUAR
===================================
PILIH :
==================================
Itu gimana caranya ?