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.

Kata Kunci

contoh program pascal sederhana, program pascal kalkulator, program kalkulator, program kalkulator pascal, program sederhana pascal, program kalkulator sederhana, membuat kalkulator dengan pascal, kalkulator pascal, program pascal sederhana, contoh program sederhana pascal.

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.