Cara Mudah Dapat Uang di Internet Lewat Blog, Twitter, Facebook
» » Program Kalkulator dengan Case dan IF pada Turbo Pascal

Program Kalkulator dengan Case dan IF pada Turbo Pascal


Program Kalkulator dengan Case dan IF pada Turbo Pascal - Kali ini kita akan berbicara bagaimana membuat kalkulator sederhana dengan Case dan IF. Program ini dibuat untuk perhitungan penjumlahan, pengurangan, perkalian dan pembagian. Langsung simak saja!


Program Kalkulator dengan Case pada Turbo Pascal:
program kalkulator;
uses crt;
var
   satu,dua : integer;
   hasil : real;
   kar : char;
begin
clrscr;
       writeln('Bilangan Pertama : ');readln(satu);
       writeln('Bilangan Kedua   : ');readln(dua);
       write('Pilihan              : ');readln(kar);
case kar of
     '+' : begin
                hasil := satu + dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '-' : begin
                hasil := satu - dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '*' : begin
                hasil := satu * dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '/' : begin
                hasil := satu / dua;
                write('Hasil : ' , hasil:0:2);
           end;
end;
readkey;
end.

Program Kalkulator dengan IF pada Turbo Pascal:
program perkalian_dengan_if;
uses crt;
var
a,b:integer;
opt:char;
begin
clrscr;
       write('Bil 1 : ');readln(a);
       write('Bil 2 : ');readln(b);
       write('Opt : ');readln(opt);
       if opt = '+' then
       write('hasil : ', a + b)
       else
       if opt = '-' then
       write('hasil : ', a - b)
       else
       if opt = '*' then
       write('hasil : ', a * b)
       else
       if opt = '/' then
       write('hasil : ', a div b);
readkey;
end.

Maka hasil output Program Kalkulator dengan Case dan IF pada Turbo Pascal:
Program Kalkulator dengan Case dan IF pada Turbo Pascal

Maka, demikianlah artikel Program Kalkulator dengan Case dan IF pada Turbo Pascal, semoga dapat membantu Anda untuk lebih paham. Terima kasih telah membaca artikel diatas.

Odii Siitohang
Judul: Program Kalkulator dengan Case dan IF pada Turbo Pascal;
Ditulis oleh: Unknown;
Rating Blog: 5 dari 5





Anda sedang membaca Artikel tentang Program Kalkulator dengan Case dan IF pada Turbo Pascal dengan url http://d-copy.blogspot.com/2013/06/program-kalkulator-dengan-case-dan-if.html, jika Anda menyukai Artikel di blog ini, silahkan masukkan email Anda dibawah ini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel baru.
D-Copy Reader DMCA
[4] Komentar untuk Program Kalkulator dengan Case dan IF pada Turbo Pascal:
  1. Ini hitungan dasarnya yah sob,,mantap sob :)

    ReplyDelete
  2. Pascal ya, dapat pas semester 1 sekarang udah lupa koding2nya haha :D
    nice share bos

    ReplyDelete
    Replies
    1. Saya semester 2 mas...
      Liat kodingnya dikit2 mas, siap tw masih ada yg ingat bgt...

      Delete

Beberapa panduan dalam berkomentar :
Untuk menyisipkan kode[code]KODE ANDA[/code]
Untuk menyisipkan quote[blockquote]QUOTE ANDA[/blockquote]
Untuk menyisipkan gambar[img]URL Gambar[/img]
Untuk menyisipkan video[youtube]URL Video[/youtube]
Anda bisa mengekspresikan komentar Anda dengan emoticon
Klik subscribe by email agar Anda segera tahu balasan komentar Anda

   


 
D-Copy Blog © 2013 - All Rights Reserved Design : Creating Website Published : Mas Template