Minggu, 17 Juli 2011

Program Sederhana Pascal

Program Penjumlahan Pascal

Program Tambah;
uses wincrt;
var
       a,b,c  :integer;
beginclrscr;
      write ('Masukkan nilai A = ');  readln(a);
      write ('Masukkan nilai B = ');  readln(b);
c:=a+b;
     writeln('Hasil A + B=',c);
readln;
end.

Maka Hasilnya :
Masukkan Nilai A = 'Nilai'
Masukkan Nilai B = 'Nilai'
Hasil A + B = 'Hasil'



Program Pengurangan Pascal

Program Kurang;
uses wincrt;
var
       a,b,c  :integer;
beginclrscr;
      write ('Masukkan nilai A = ');  readln(a);
      write ('Masukkan nilai B = ');  readln(b);
c:=a-b;
     writeln('Hasil A - B=',c);
readln;
end.

Maka Hasilnya : 
Masukkan Nilai A = 'Nilai'
Masukkan Nilai B = 'Nilai'
Hasil A - B = 'Hasil'

Program Perkalian Pascal

Program Perkalian;
uses wincrt;
var
       a,b,c  :integer;
begin clrscr;
      write ('Masukkan nilai A = ');  readln(a);
      write ('Masukkan nilai B = ');  readln(b);
c:=a*b;
     writeln('Hasil A x B=',c);
readln;
end.

Maka Hasilnya :
Masukkan Nilai A = 'Nilai'
Masukkan Nilai B = 'Nilai'
Hasil A x B = 'Hasil'

Program Pembagian Pascal


Program bagi;

uses wincrt;
var
   a, b : integer;
   c     : real;
begin
clrscr;
      write ('Masukkan nilai A= ');  readln(a);
      write ('Masukkan nilai B= ');   readln(b);
c:=a/b;
      writeln('Hasil A / B = ',c);
readln;
end.

Maka hasilnya

Masukkan Nilai A = 'Nilai'
Masukkan Nilai B = 'Nilai'

Hasil A / B = 'Hasil'

Bagaimana mudah kan? Ternyata Pascal itu menyenangkan.


Related Post

2 komentar:

  1. @jasa pembuatan blog murah > Thanks gan..sorry masih dalam perbaikan template... ntar tunggu postingan yang lebih keren lagi y dengan jquery.wkwkwk

    BalasHapus

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...