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.
