Penjumlahan,Pengurangan,Pembagian dan Perkalian di Pascal.

Assalamu'alaikum Wr. Wb

Alhamdullialah Meski hati hampa dan Wajah lesu tapi ku tetap semangat untuk Posting ,sambil Maintenen Komputer Clien.
Kali ini saya akan Posting tentang membuat suatu Program yang begitu sederhana,yaitu membuat PROGRAM KALKULATOR Dengan Rumus Penjumlahan, pengurangan,pembagian dan perkalian.
Ok langsung saja kita ke TKP.

1. Langkah Langkah
    a. Kita masuk Ke Program Pascal.
    b. Pilih New
    c. dan tulis Code Berikut :
     
A. Penjumlahan
        =========================================================
       
        Program Program_Membuat_Kalkulator;
        uses Wincrt;
        var
         a,b,jumlah:integer;
       
        begin
        writeln   ('Masukan Nilai Pertama = ');readln(a);
        writeln;
        writeln   ('Masukan Nilai Kedua    = ');readln(b);
        jumlah:=a+b;
       writeln    ('hasil = ',jumlah);
      end.
        
B. Pengurangan
        =========================================================
       
        Program Program_Membuat_Kalkulator;
        uses Wincrt;
        var
         a,b,jumlah:integer;
       
        begin
        writeln   ('Masukan Nilai Pertama = ');readln(a);
        writeln;
        writeln   ('Masukan Nilai Kedua    = ');readln(b);
        jumlah:=a-b;
       writeln    ('hasil = ',jumlah);
      end.

C. Perkalian
        =========================================================
       
        Program Program_Membuat_Kalkulator;
        uses Wincrt;
        var
         a,b,jumlah:integer;
       
        begin
        writeln   ('Masukan Nilai Pertama = ');readln(a);
        writeln;
        writeln   ('Masukan Nilai Kedua    = ');readln(b);
        jumlah:=a*b;
       writeln    ('hasil = ',jumlah);
      end.


D. Pembagian
        =========================================================
       
        Program Program_Membuat_Kalkulator;
        uses Wincrt;
        var
         a,b,jumlah:integer;
       
        begin
        writeln   ('Masukan Nilai Pertama = ');readln(a);
        writeln;
        writeln   ('Masukan Nilai Kedua    = ');readln(b);
        jumlah:=a/b;
       writeln    ('hasil = ',jumlah);
      end.

================================================================

Mungkin itu saja postingan semoga bermanfaat bagi pemula belajar pascal.