Contoh Program Membuat Kalkulator Menggunakan Pascal

Hallo, pada kesemapatan kali ini, Saya akan share sebuah program pascal membuat Kalkulator sederhana. program ini menggunakan fungsi Percabangan If Then dan program ini bisa diulang sesuai keinginan Anda. Berikut ini adalah skripnya. 

program kalkulator;
uses crt;
var
   x,y,hasil:integer;
   hasil2:real;
   Menu,ulang:char;
begin
     repeat
     clrscr;
     writeln('MENU OPERATOR:');
     writeln('      1. Penjumlahan   ');
     writeln('      2. Pengurangan   ');
     writeln('      3. Perkalian   ');
     writeln('      4. Pembagian   ');
     writeln(' ');
     writeln(' ');

     write('Pilihan Menu: ');readln(Menu);

     if Menu='1'then
     begin
     write('Masukkan = ');read(x);
     write('Masukkan = ');read(y);
     hasil:=x+y;
     writeln('Penjumlahan dari x + y = ',hasil);
     end;

     if Menu='2'then
     begin
     write('Masukkan = ');read(x);
     write('Masukkan = ');read(y);
     hasil:=x-y;
     writeln('Pengurangan dari x - y = ',hasil);
     end;

     if Menu='3'then
     begin
     write('Masukkan = ');read(x);
     write('masukkan = ');read(y);
     hasil:=x*y;
     writeln('Perkalian dari x * y = ',hasil);
     end;

     if Menu='4'then
     begin
     write('Masukkan = ');read(x);
     write('masukkan = ');read(y);
     hasil2:=x/y;
     writeln('Pembagian dari x : y = ',hasil2:0:2);
     end;

     write('Apakah Anda Ingin Menghitung Lagi (Y/T) ?'); readln(ulang);
     until upcase (ulang) <> 'Y';

end.

Jika Anda bingung dengan skrip diatas, Anda bisa Downloaad file nya DI SINI

Oke terima kasih sudah berkunjung. Dan semoga ini bermanfaat bagi Anda.

Penulis : ENDs ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Contoh Program Membuat Kalkulator Menggunakan Pascal ini dipublish oleh ENDs pada hari Thursday, 8 October 2015. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Contoh Program Membuat Kalkulator Menggunakan Pascal