Membuat Kalkulator Sederhana - Turbo Pascal

Masalah :

Membentuk Kalkulator Sederhana dengan fungsinya :

-          Menjumlah 3 bilangan

-          Mengurang 3 bilangan

-          Mengali 3 bilangan

-          Membagi 3 bilangan

Penyelesaian :

Algoritma

Algoritma : Membentuk Kalkulator

Deklarasi

A,B,C,D,E,F : bilangan buat

G : bilangan real

Deskripsi :

1. Mulai
2. Ketik bilangan pertama simpan ke A {A=bilangan bulat}
3. Ketik bilangan kedua simpan ke B {B=bilangan bulat}
4. Ketik bilangan ketiga simpan ke C {C=bilangan bulat}
5. Hasil jumlah ke 3 bilangan simpan ke D {D=A+B+C}
6. Hasil pengurangan ke 3 bilagan simpan ke E {E=A-B-C}
7. Hasil kali ke 3 bilangan simpan ke F {F=AxBxC}
8. Hasil pembagian ke 3 bilangan simpan ke G {G=A:B:C}
9. Selesai

Flow Chart

Program Turbo Pascal

Program Kalkulator_sederhana;

Uses crt;

Var

     A,B,C,D,E,F : integer;

     G : real;

Begin

     Clrscr;

     Writeln (‘Kalkulator Sederhana’);

     Writeln; writeln;

     Write (‘Ketik bilangan pertama : ‘);

     Readln (A);

     Write (‘Ketik bilangan kedua : ‘);

     Readln (B);

     Write (‘Ketik bilangan ketiga : ‘);

     Readln (C);

     Writeln;

     D:=A+B+C;

     E:=A-B-C;

     F:=A*B*;

     G:=A/B/C;

     Writeln (‘Hasil Penjumlahan 3 Bilangan : ‘,D);

     Readln;

     Writeln (‘Hasil Pengurangan 3 Bilangan : ‘,E);

     Readln;

     Writeln (‘Hasil Perkalian 3 Bilangan : ‘,F);

     Readln;

     Writeln (‘Hasil Pembagian 3 Bilangan : ‘,G);

     Readln;

End.