Contoh Program Prosedur Menggunakan Turbo Pascal

Prosedure adalah suatu program terpisah dalam blog tersendiri yang berfungsi sebagai subprogram. Prosedure banyak digunakan pada program yang terstuktur, karena :
1. Merupakan penerapan konsep modular (memecah program yang rumit menjadi beberapa subprogram          yang sederhana).
2. Untuk suatu proses yang dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan     
    dapat dipanggil atau digunakan sewaktu-waktu diperlukan dan juga dapat digunakan berulang-ulang.

Berikut merupakan contoh program prosedur menggunakan turbo pascal :
 

program prosedure;

uses  wincrt;

      procedure biodata;

      begin

             writeln('***************');

      end;

var ket:string;

begin

      clrscr;

      biodata;

      writeln('DATA MAHASISWA');

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

      write('NIM              : ');readln(ket);

      write('Prodi             : ');readln(ket);

      write('Semester       : ');readln(ket);

      write('Fakultas        : ');readln(ket);

      write('Universitas    : ');readln(ket);

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

      write('Nomor HP    : ');readln(ket);

      write('Hobi             : ');readln(ket);

      write('Cita-Cita       : ');readln(ket);

      biodata;

end.