Contoh Listing Program Pascal

Menuliskan Alamat
 

program tulis_alamat;

 uses crt;

 begin

clrscr;

writeln (' Rekayasa Perangkat Lunak');

 writeln ('Jurusan Tekhnik Informatika');

 writeln (' SMK Wira Harapan');

 write ('Jl. Kubu Gunung');

 writeln ('Tegal Jaya');

 readln;

end.

Maka hasil output nya:

 Rekayasa Perangkat Lunak

Jurusan Tekhnik Informatika

SMK Wira Harapan

Jl. Kubu Gunung, Tegal Jaya

Menghitung Luas Persegi Panjang

program persegi_panjang;

uses crt;

var

p,l,Luas : real ;

begin

clrscr;

write ('Tentukan panjang : ');

readln (p);

write ('tentukan lebar : ');

readln (l);

Luas : = (p * l);

writeln (Luas);

readln;

end.

Menentukan Ketentuan Harga

program ketentuan_harga;

uses crt;

var

harga : integer;

begin

clrscr;

write ('masukkan harga :');

readln (harga);

if harga >= 100.000 then

writeln ('diskon')

else

writeln ('tidak diskon');

readln;

end.

Menentukan Nilai

program nilai;

uses crt;

var

na : integer ;

begin

clrscr;

write (' masukkan nilai angka : ');

readln (na);

if na>85 then

writeln ('nilai huruf=A')

else

if na>70 then

writeln ('nilai huruf=B')

else

if na>60 then

writeln ('nilai huruf=C')

else

if na>50 then

writeln ('nilai huruf=D');

readln;

end.