Program pascal Calculator Sederhana

       

        Bagi anda para mahasiswa mungkin sudah tidak asing lagi dengan yang namanya Program Pascal. Terutama bagi anda yang kuliah dengan jurusan yang berhubungan dengan komputer misalkan Teknik Informatika (seperti saya), Sistem Informatika, dan lainnya. Banyak mahasiswa yang menganggap program pascal itu sulit, ada juga yang menganggap pascal itu yaa lumayaannn, dan ada juga yang menganggap pascal itu sulit bahkan mereka tidak bisa mengaplikasikannya. Hal ini sebenarnya tergantung dari kita yang menjalaninya. Padahal sebenarnya program pascal itu tidak sesulit yang dikatakan beberapa mahasiswa tersebut jika anda ingin mempelajarinya dengan logika karena kuliah komputer itu yang terpenting adalah logika. Berikut ini saya akan memberikan contoh program menggunakan operator seperti penjumlahan, pengurangan, perkalian dan pembagian. Berikut porgramnya :

uses crt;

var

a,c,d : integer;

operator, z:char;

begin

repeat

clrscr;

Writeln('PETUNJUK:');

Writeln('1. Masukkan angka pertama');

Writeln('2. Masukkan operator (+, -, /, *)');

Writeln('3. Masukkan Angka kedua');

Writeln (‘-------------------------------‘);

Writeln('PERHITUNGAN: ');

Writeln (‘------------------------------‘);

Write('Masukkan angka: '); readln(a);

write('Operator: '); readln(Operator);

write('Angka ke dua: '); readln(c);

case operator of

'+': d:=a + c;

'-': d:=a - c;

'/': d:=a div c;

'*': d:=a * c;

end;

writeln('Hasil: ',d);

writeln (‘KA15’);

writeln;

Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

 end.

Sumber.