Contoh Latihan Pascal Lanjutan

Contoh-contoh latihan program Pascal berikutnya yang didapat dari berbagai sumber dan mudah mudahan apa yang dikemukakan pada posting kali ini dapat bermanfaat bagi yang memerlukannya.
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.

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
program jumbil2_nama;
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write('Banyak bilangan =  ');read(n);
jum := 0;
For i:= 1 to n do
begin
write('Masukkan Bilangan ',i, '=');
read(bil);
jum := jum+bil;
end;
writeln('Jum = ',jum:0:2);
end.

Program Menghitung_Jarak
Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

Program Menghitung Rata-Rata
Program Menghitung_Rata_Rata;
Uses Wincrt;
Var n,x,i,tot:integer;
rata:real;
Begin
Writeln('Program Menghitung Rata-Rata');
Writeln('============================');
Writeln;
Write('Masukkan Jumlah Bilangan: ');readln(n);
Writeln;
Writeln('Masukkan Bilangan: ');
tot:=0;
For i:= 1 to n do
Begin
Readln(x);
tot:=tot+x;
End;
rata:=tot/n;
Writeln;
Writeln('Total Bilangan: ',tot:6);
Writeln('Rata-Rata : ',rata:6:2);
End.

Program Penghitung Luas segitiga
Program_Menghitung_Luas_segitiga;
uses crt;
var
alas,tinggi:integer;
procedure hitung_luas(a,t:integer);
var
luas:real;
begin
clrscr;
luas:=a*t/2;
writeln('Luas segitiga =',luas);
end;
begin
writeln('Masukkan alas =');readln(alas);
writeln('Masukkan tinggi =');readln(tinggi);
hitung_luas(alas,tinggi);
readln;
end.

Program Pencari Predikat
Program_Predikat;
USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.