Contoh Program Pascal

2 Contoh Program Pascal:

1. Menghitung Dua Buah Bilangan

program Menghitung_Dua_Buah_Bilangan;

uses
crt;

var
x,y : real;
kali,tambah : real;

begin
clrscr;
write('Masukkan Bilangan ke 1= ');
readln(x);
write('Masukkan Bilangan ke 2= ');
readln(y);
kali := x * y;
tambah := x + y;
writeln;
writeln('Hasil Perkalian : ', x:0:0, '*', y:0:0, '= ', kali:0:0);
writeln('Hasil Penambahan : ', x:0:0, '+', y:0:0, '= ', tambah:0:0);
readln;
end.

hasil output:
Masukkan Bilangan ke 1 = 2(misalkan)
Masukkan Bilangan ke 2 = 4(misalkan)

Hasil Perkalian : 2*4= 8
Hasil Penambahan : 2+4= 6


2. Menghitung Keliling dan Luas Persegi

program persegi;

uses
crt;

var
sisi : integer;
keliling, luas : real;

begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.

hasil output:
Masukkan sisi persegi: 2(misalkan)

keliling persegi = 8.00
luas persegi = 4.00