Program Kalkulator Sederhana
Apr 25, 2009
7 Comments
Contoh program penghitungan dengan pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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. |
Kata Kunci
contoh program pascal sederhana, program kalkulator, program pascal kalkulator, program kalkulator pascal, program sederhana pascal, contoh program sederhana pascal, program kalkulator sederhana, kalkulator pascal, program pascal sederhana, contoh program turbo pascal sederhana.
Related posts:
- Kalkulator Sederhana
- Program GJE (Gauss Jordan Exchange) dengan Pascal
- Program Pertukaran Uang Rupiah dan Dolar
- Pengertian If..Else dan Contoh Programnya
- Program Banyak Huruf dalam Kalimat
- Program Input Nilai Mahasiswa
- Program Konversi Suhu
- Hendra Array & Record
- Program untuk Mencari Akar Persamaan Kuadrat
- Program Data Pegawai
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