kumpulan contoh pascal

a. program taxi
program ricky_taxi;
uses wincrt;
Var Jarak,Bayar:real;
begin
clrscr;
write('masukan jarak = ');readln(jarak);
if(jarak<=1)then
bayar:=750 else
Bayar :=750+(350*(jarak-1));
write('pembayaran adalah : Rp. ',bayar:3:0);
readln;
write ('RICky TAxi');
readln;
end.

b. program pangkat

program pangkat;
uses wincrt;
var pang,i,n,a:real;
begin
clrscr;
i:=1;
pang:=1;
write('masukan nilai a: ');readln(a);
write('masukan nilai n: ');readln(n);
while (i<=n)
do begin
pang:=pang*a;
i:=i+1;
end;
write('pangkat', pang:6:0);
readln;
end.

C. Array berdimensi

program array_berdimensi_1;
uses wincrt;
var
nim :array[1..5]of string[7];

nama:array[1..5]of string[15];

ipk :array[1..5]of real;

i,j:byte;

begin

clrscr;

for i:=1 to 5 do

begin

writeln('Data mahasiswa ke     : ',i);

write('masukan NIM mahasiswa : ');readln(nim[i]);

write('masukan NAMA mahasiswa: ');readln(nama[i]);

write('masukan IPK mahasiswa : ');readln(ipk [i]);
writeln('=======================');

end;
writeln('DAFTAR NILAI IPK MAHASISWA');
writeln('……………………..');
writeln('  NIM    NAMA          IPK');
writeln('……..   ……………');
for j:=1 TO 5 DO
begin
writeln(nim[j],' ',nama[j],' ',IPK[j]:2:2);
end;
writeln('……..  ……………..');
end.