Program Pascal Kalkulator Sederhana

Pemrograman... sekarang ini, selain bleajar statistik di salah satu ptk di Jakarta, saya juga diajarkan tentang pemrograman dalam mata kuliah Algoritma Pemrograman atau lebih dikenal dengan Alpro. Bahasa pemrograman yang digunakan adalah bahasa pascal.

Mengenai pemrograman, pernahkah Anda berpikir bagaimana program dalam kalkulator dibuat? Nah, berikut ini merupakan sebuah program pascal kalkulator sederhana yang saya buat...

Program Mr_Calculator;

Uses crt;

Label

  1000,2000;

Var

  x,y,z:real;

  operator,menu:char;

Begin

1000:

  clrscr;

  writeln;

  writeln('WELCOME');

  writeln;

  writeln('Mr_Calculator created by CHANDRA RINALDY MBURA');

  writeln;

  writeln('Masukkan angka pertama: ');readln(x);

  writeln('Pilih operator:(+),(-),(*),(/)');readln(operator);

Case operator of

  '+':begin

        writeln('Masukkan angka kedua');readln(y);

        z:=x+y;

        writeln('Hasil dari operasi ',x:0:2,' + ',y:0:2,' adalah ',z:4:2);

      end;

  '-':begin

        writeln('Masukkan angka kedua');readln(y);

        z:=x-y;

        writeln('Hasil dari operasi ',x:0:2,' - ',y:0:2,' adalah ',z:4:2);

      end;

  '*':begin

        writeln('Masukkan angka kedua');readln(y);

        z:=x*y;

        writeln('Hasil dari operasi ',x:0:2,' * ',y:0:2,' adalah ',z:4:2);

      end;

  '/':begin

        writeln('Masukkan angka kedua');readln(y);

        z:=x/y;

        writeln('Hasil dari operasi ',x:0:2,' / ',y:0:2,' adalah ',z:4:2);

      end;

  else

    writeln('Maaf Dalam Mr_Calculator hanya terdapat operasi (+),(-),(*) dan (/)');

  end;

2000:

  writeln('Tekan Y untuk mengulang atau N jika telah selesai');readln(menu);

  case menu of

  'Y':goto 1000;

  'y':goto 1000;

  'N':writeln('THANK YOU for using Mr_Calculator');

  'n':writeln('THANK YOU for using Mr_Calculator');

  else

    writeln('ERROR');

    goto 2000;

  end;

readln;

end.

Screenshot pada Turbo Pascal

Setelah program tersebut dicompile dan dirun, maka output yang akan muncul yaitu seperti ini

Program ini sebenarnya mempunyai beberapa kelemahan, salah satunya yaitu adanya penggunaan statement GOTO. Statement GOTO sangat mudah digunakan, namun ini menghancurkan penulisan struktur program Pascal.

Demikian postingan saya mengenai Program Pascal Kalkulator Sederhana.. Semoga Bermanfaat.