Program Pascal Untuk Perhitungan Dasar Matematika

Bagi teman-teman yang baru belajar menggunakan Pascal, berikut ini salah satu dasar programming dalam Pascal untuk perhitungan matematis.
Langkah-langkah Pemrogramannya :

1.    Masukkan Judul Program seperti dibawah :

Program Modul2;

2.    Untuk mengambil kendali biar bisa menggunakan perintah Clrscr untuk membersihkan layar, masukan :

Uses Crt;

3.  Masukkan Procedure lalu deklarasikan parameternya, sesuai dengan jumlah operasi perhitungan yang akan digunakan.

Procedure Tugas (A, B : Integer);

Var

                    C, D, E : Integer;

                    F : Real;

Begin

                    C := A+B;

                    D := A*B;

                    E := A-B;

                    F := A/B;

                    Textcolor(1);

                    Writeln(‘Hasil Tambah : ‘,C);

                    Textcolor(2);

                    Writeln(‘Hasil Kali       : ‘, D);

                    Textcolor(3);

                    Writeln(‘Hasil Kurang  : ‘,E);

                    Textcolor(4);

                    Writeln(‘Hasil Bagi      : ‘,Round(F));

End;

4.    Setelah itu kemudian masuk ke program utamanya, namun deklarasikan program utama terlebih dahulu :

Var X, Y : Integer;

5.    Masukkan isi program utama :

Begin

Clrscr;

Textcolor(5);

Write(‘Nilai X ? ‘); Readln(X);

Textcolor(6);

Write(‘Nilai Y ? ‘); Readln(Y);

Tugas(X, Y);

Textcolor(8);

GotoXY(1,8); Write(‘Program By SLEMANTO’);

Readln;

End.

Lihat seperti gambar berikut ini :

Setelah itu Run program dan masukkan nilai yang akan hitung (Nilai X dan Y). Hasilnya bisa di lihat pada gambar di bawah.

Demikian pemrograman Pascal untuk perhitungan. Sekian dan terima kasih.