Berikut ini adalah sebuah contoh kode pada pascal yang dapat menampilakan kode asscii dari 1 sampai 225 sejumlah tipe data string.

program assciiViewer;
USES CRT;
var i,n:integer;
begin
CLRSCR;
for i := 1 to 255 do
begin
IF  I < 255 THEN
write(i,' : ',char(i), ', ')
ELSE
write(i,' : ',char(i));
READKEY;
end;
end.

setelah itu anda harus menekan enter untuk kode selanjunya. Dengan Output sebagai berikut:


Continue reading ...

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.


ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output...
Continue reading ...