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 pascal kalkulator, program kalkulator, program sederhana pascal, program kalkulator pascal, contoh program sederhana pascal, program kalkulator sederhana, program pascal sederhana, membuat kalkulator dengan pascal, kalkulator pascal.
Related posts:
- Program Input Nilai Mahasiswa
- Kalkulator Sederhana
- Program Banyak Huruf dalam Kalimat
- Program GJE (Gauss Jordan Exchange) dengan Pascal
- Program Konversi Suhu
- Hendra Array & Record
- Program Pertukaran Uang Rupiah dan Dolar
- Program yang Menggunakan Record
- Aplikasi Sederhana Splash Screen dengan VB.NET 2003
- Program dengan Array of String
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