Contoh Program Pascal - Perhitungan 2 Bilangan (1)

Masalah :

Menggunakan instruksi Writeln dan Readln, buatlah satu program yang menghasilkan Penjumlahan, Pengalian, Pengurangan dan Pembagian 2 Bilangan.

Penyelesaian :

Program Penjumlahan_Pengalian_Pengurangan_Pembagian;

Uses crt;

var

    a,b,c,d,e : integer;

    f : real;

begin

    clrscr;

    writeln ('Latihan 1';

    writeln; writeln;

    writeln ('Program Penjumlahan, Pengalian, Pengurangan dan Pembagian 2 Bilangan');

    writeln ('====================================================================');

    writeln; writeln;

    write ('Ketik dari keyboard Bilangan Pertama : ');

    Readln (a);

    write ('Ketik dari keyboard Bilangan Kedua : ');

    readln (b);

    writeln;

    c:=a+b;

    writeln ('Hasil Penjumlahan ke 2 bilangan tersebut adalah : ',c);

    readln;

    d:=a*b;

    writeln ('Hasil Perkalian ke 2 bilangan tersebut adalah : ',d);

    readln;

    e:=a-b;

    writeln ('Hasil Pengurangan ke 2 bilangan tersebut adalah : ',e);

    readln;

    f:=a/b;

    writeln ('Hasil Pembagian ke 2 bilangan tersebut adalah : ',f);

    readln;

end.