contoh program pascal

Assalamualaikum...
Hallo teman-teman semuanya...
kali ini saya akan menulis materi kuliah tentang pascal, bagi yang belum punya aplikasinya silahkan download TPW 1.5 .

• contoh program perkalian

program perkalian;

uses wincrt;

begin

         writeln (6);

         writeln (9);

         writeln ('6*9');

         writeln (6*9);

         writeln ('_____');

end.

hasilnya:

6

9

6*9

54

------

• menghitung luas persegi panjang

program persegi;

uses wincrt;

var l, p, lp : integer;

begin

writeln ('menghitung luas persegi');

writeln ('------------------------');

writeln;

p := 6;

l := 5;

lp := p*l;

writeln ('panjang :', p);

writeln ('lebar:', l);

writeln ('luas persegi :',lp);

end.

hasilnya:

menghitung luas persegi

------------------------

panjang:6

lebar:5 

luas persegi:30