1. Contoh 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. Contoh PROGRAM 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
3. Contoh Program Kelipatan 5 For Do Pada Pascal
uses crt;
var a: integer;
begin
clrscr;
for a:=5 to 25 do
if (a mod 5 =0) then
write(a,' ');
readln;
end.
4. Contoh PROGRAM Menghitung jumlah dan Banyaknya Data
program contoh4;
uses wincrt;
var
n, i,byk,jum, bil : integer;
begin
Write(‘Masukkan nilai perulangan : ‘);readln(n);
Writeln;
for i := 1 to n do
begin
write(‘Bilangan ‘,i,’ = ‘);read(bil);
if bil >= 10 then
begin
byk := byk+1;
jum := jum+bil ;
end;
end;
writeln;
writeln(‘banyak bilangan yang >= 10 : ‘,byk);
writeln(‘jumlah bilangan yang >= 10 : ‘,jum);
end.
5. Contoh PROGRAM Menghitung jumlah bilangan perulangan FOR dengan nilai Statis
program jum_bil;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.
