Contoh program pascal

 program nomor_1;

uses crt;

var kalimat : string;

        i   : integer;

begin

clrscr;

for i:= 1 to 10 do

begin

write('Masukkan huruf : ');

readln(kalimat[i]);

end;

writeln();

for i:= 1 to 10 do

begin

write(kalimat[i], ' ');

end;

readkey;

end.

OUTPUT PROGRAM

Masukkan huruf : H Masukkan huruf : E Masukkan huruf : L Masukkan huruf : L Masukkan huruf : O Masukkan huruf : W Masukkan huruf : 0 Masukkan huruf : R Masukkan huruf : L Masukkan huruf : D H E L L O W 0 R L D

program for_to_do;

uses crt;

var

  i,a,b: integer;

begin

clrscr;

  write('Masukan jenis perkalian  : ');readln(a);

  write('Masukan batas perulangan : ');readln(b);

  for i:=1 to b do

    begin

      writeln( i ,' x ', a ,' = ', i * a);

    end;

    readkey;

end.

OUTPUT PROGRAM

Masukan jenis perkalian : 7 Masukan batas perulangan : 10 1 x 7 = 7 2 x 7 = 14 3 x 7 = 21 4 x 7 = 28 5 x 7 = 35 6 x 7 = 42 7 x 7 = 49 8 x 7 = 56 9 x 7 = 63 10 x 7 = 70

Program nomor_3;

uses crt;

var

nilai: integer;

begin

clrscr;

writeln('KKM SEKARANG 70 ');

write('Masukan Nilai ? ');

readln(nilai);

begin

if (nilai >= 70) then

writeln('SELAMAT ANDA LULUS, DENGAN POIN ', nilai)

else if (nilai<= 69 ) then

writeln('BELAJAR LAGI ANDA TIDAK LULUS, DENGAN POIN ', nilai);

end;

readln;

end.

OUTPUT PROGRAM

KKM SEKARANG 70 Masukan Nilai ? 60 BELAJAR LAGI ANDA TIDAK LULUS, DENGAN POIN 60

Program calculator;

Uses Crt;

var

    i,pilih,a,t: integer;

    r,luas,volume,L : real;

Begin

    for i:= 1 to 50 do

    begin

    clrscr;

    writeln('<<< Menu Perhitungan >>>');    

    writeln;          

    Writeln('1 .Menghitung Luas Lingkaran ');

    Writeln('2 .Menghitung Volome Bola ');

    Writeln('3 .Menghitung Luas Segitiga');

    writeln;

    Write('Pilih Menu : ');

    Readln(pilih);

case pilih of

         1:begin

            clrscr;

            writeln('<<< Mengitung Luas Lingkaran >>>');

            writeln;

            write('Masukan jari-jari : ');readln(r);

            writeln;

            luas:=pi*r*r;

            writeln('Luas Lingkaran = ',luas:0:2);

            end;

                2:begin

                clrscr;

                writeln('<<< Menghitung Volume Bola >>>');

                writeln;

                 write('Masukan jari-jari : ');readln(r);

                 writeln;

                 volume:=4/3 * 22/7 * r * r * r;

                 writeln('Volume Bola = ',volume:0:2);

                 end;

                         3:begin

                         clrscr;

                            writeln('<<< Menghitung Luas Segitiga >>>');

                            writeln;

                            write('Masukan Nilai Alas : ');readln(a);

                            write('Masukan Tinggi     : ');readln(t);

                            writeln;

                            L:=(a*t)/2;

                            writeln('Luas Segitiga = ',L:0:2);

                             end;      

                             end;

writeln('');

write('Tekan enter untuk kembali ke menu');

readkey;

end;

End.

OUTPUT PROGRAM

(pada kasus ini saya pilih menu satu yaitu menghitung luas lingkaran)

<<< Mengitung Luas Lingkaran >>> Masukan jari-jari : 20 Luas Lingkaran = 1256.64 Tekan enter untuk kembali ke menu