Contoh - contoh program pascal

1.

uses wincrt;

var

a,b :real;

begin

writeln('====================================================================');

writeln('     Program menyatakan suatu data bernilai positif atau negatif');

writeln;

writeln('     Program ini di buat oleh : ');

writeln('     Muhammad RAdhi');

writeln('     1205020029');

writeln('     unit A semester 1 Tahun 2012');

writeln('===================================================================');

begin

writeln('masukan data dibawah ini');

write('input angka    =');readln(b);

a:=b*1;

if a>0 then

writeln('data tersebut bernilai positif')

else

writeln('data tersebut bernilai negatif')

end;

begin

writeln('Terimakasih telah mencoba program yang sederhana ini ;) ...');

writeln('=====================================================================');

end;

end.

2.

uses wincrt;

var

wni, menikah : char; umur : integer;

nama   :string[20];

alamat   :string[21];

ktp      :string[22];

begin

writeln('================================================================================');

writeln('       Program data pemilih di indonesia');

writeln;

writeln('       Program ini di buat oleh :');

writeln;

writeln('       Muhammad RAdhi');

writeln('       1205020029');

writeln('       Unit A semester 1 Tahun 2012');

writeln;

writeln('================================================================================');

writeln;

writeln('       Data penduduk untuk data pemilih');

writeln;

write('         Nama            :');readln(nama);

write('         Alamat          :');readln(alamat);

write('         No. Ktp         :');readln(ktp);

writeln;

writeln(' jawablah pertanyaan di bawah dengan "ya" atau "tidak"');

writeln; 

writeln('Apakah Anda seorang WNI :'); readln(wni);

case wni of

't','i','d','a','k' : writeln(' Maaf anda bukan pemilih');

else

writeln;

writeln;

writeln('Apakah anda sudah menikah'); readln(menikah);

case menikah of

't','i','d','a','k' : writeln;

else

writeln;

end;

begin

writeln;

writeln('masukan umur anda      :');readln(umur);

if umur>=17 then

writeln('Anda termasuk anggota pemilih')

else

writeln('Maaf...! Anda bukan anggota pemilih');

writeln;

writeln('================================================================================');

end;

end;

end.

3.

uses wincrt;

var LPP,p,l:real;

begin

clrscr;

writeln('                     Program ini di buat oleh Muhammad radhi');

WRITELN;

writeln('                           Npm : 1205020029');

WRITELN;

writeln('                     Program mencari luas persegi panjang');

writeln;

writeln;

writeln;

write('        masukan nilai panjang          =');readln(p);

write('masukan nilai lebar                    =');readln(l);

LPP:=p*l;

writeln('jadi luas persegi panjang adalah     =',LPP:10:2,'cm2');

writeln;

writeln;

writeln;

writeln('.....TERIMAKASIH.....');

END.

4.

uses wincrt;

var angka,tebakan :real;

begin

angka:=5;

Writeln('tebak angka 1 sampai 10');readln(tebakan);

if angka = tebakan then

writeln('selamat anda berhasil')

else

writeln('maaf anda belum beruntung')

end.