Program Kalkulator Sederhana

Apr 25, 2009 11 Comments by Sahabat

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.
Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

11 Responses to “Program Kalkulator Sederhana”

  1. nona says:

    itu membuat program kalkulator sederhananya dengan stack bukan
    ???

  2. Nu says:

    @nona :
    bukan .. itu ngga pake stack, cuma algoritma sederhana saja .. :)

  3. ms San says:

    Btw,flowchartnya mna kk?? ^^

  4. scoorpie says:

    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

  5. rinaldy says:

    kok saya g bisa y?
    apa emang pakai bahasa indo?
    saya sudah coba pakai bahasa inggris tapi g bisa

  6. Abbas says:

    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.

  7. rully says:

    kenapa ya punya q kok hasilnya salah ….?
    pdhl programnya dh btul

  8. Syarief Sabri says:

    sintaks programx saya copy ya kk., skalian saya pelajari n bwat tugas perkuliahanq ku..thanks ya kk..

  9. afif says:

    flowchatny gmn min admin

  10. sumando says:

    ini gimna cara nya buat listing nya

  11. ervinna says:

    kalo mau bentuk jadi kaya gini gimana

    KALKULATOR
    ========================================
    1. PENGURANGAN
    2.PERTAMBAHAN
    3.PEMBAGIAN
    4.PERKALIAN
    5. KELUAR
    ===================================
    PILIH :
    ==================================
    Itu gimana caranya ?

Leave a Reply

You must be logged in to post a comment.