Program Pascal Membuat Kalkulator

“Struktur Dasar Program’’

Secara umum  struktur dasar  yang diperlukan sebuah program adalah :

• Deklarasi variabel yang dipakai
• Modul input
• Pengolahan data
• Serta modul output
  

Langkah Awal Membuat Program

Pembuatan program akan terasa lancar kalau kita melaksanakan urutan atau langkah pembuatan program seperti berikut :

1. Mendefinisikan Masalah.
Tips mendefinisikan masalah :

• Kumpulkan informasi masalah yang akan kita selesaikan dengan program yang dibuat.
• Analisa informasi yang didapat, kalau masih kurang ulangi mencari data pendukung.

2. Membuat Rumusan Masalah.
Dari data yang telah kita peroleh, buat rumusan masalahnya, caranya :

• Pahami data yang didapat.
• Kelompokan data.
  Katagorikan variabel data yang dipakai, data input yang diperlukan, data yang akan diproses, serta ouptput data yang diperlukan.
• Kemudian rancang alur program atau flowchart. Atau buat "pseudo code".

3. Implementasikan.
Setelah alur program kita susun secara logis dan terstruktur. Selanjutnya konversikan alur program kita ke bahasa pemograman. Tipsnya sebagai berikut :

• Pahami stuktur baku bahasa program yang kita pakai.
• Siapkan list kode / kamus dari bahasa program yang kita pakai.
• Pahami cara penulisan / penggunaan dari kode atau command yang kita pakai.
• Tes jalankan per modul. Ini untuk mempermudah kita mencari dan memperbaiki error yang muncul.
  
  

4. Dokumentasi. 

Dokumentasikan program yang sudah kita buat. Dokumentasi ini penting untuk perbaikan program yang kita buat dimasa akan datang. Simpan semua dokumen pendukung dan source list.

Membuat Kalkulator Sederhana dengan Turbo PASCAL

Codingnya :
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 Kedua: '); readln(c);
case operator of
'+': d:=a + c;
'-': d:=a - c;
'/': d:=a div c;
'*': d:=a * c;
end;
writeln('Hasil: ',d);
writeln;
writeln (‘ By : Lenti Asita Sidauruk’);
writeln (‘Lenlee’);
writeln (‘Ady’);
writeln (‘Joe’);
writeln (‘Robin’);
writeln (‘Selly);
writeln;
Write('Hitung lagi? (y/n) '); readln(z);
until Upcase(z) <> 'Y';
end. 

Semoga Bermanfaat...... BLL_LBU <3 ^_^