Program Wartel Record Pascal

Sebuah record merupakan koleksi satuan data yang heterogen, yakni terdiri dari berbagai type. Satuan data tersebut sering disebut sebagai field dari record. Field dipanggil dengan menggunakan namanya masing-masing. Suatu field dapat terdiri atas beberapa subfield.
Sebagai Contoh, data Lama Bicara pada Wartel di suatu perusahaan Swasta di Indonesia, merupakan sebuah record yang dapat terdiri dari berbagai field, dan subfield
seperti berikut ini :

    1 Nama Bilik
    2 Lama Bicara terdiri atas :
      Menit
      Detik
   3 Sambungan
      Lokal
      Interlokal
      Internasional

dan sebagainya..

Contoh Program :

• program wartel;
• uses wincrt;
• type data=record
• bilik:integer;
• menit:integer;
• detik:integer;
• jenis_pgl:char;
• end;
• var
• tarif:real;
• rincian:data;
• lama,conv:real;
• jenis:string;
• urt:integer;
• procedure kop;
• begin
• urt:=6;
• gotoxy(21,urt-5);writeln('-------------------------------------');
• gotoxy(21,urt-4);writeln('>> Program Wartel Mahasiswa Unisla <<');
• gotoxy(21,urt-3);writeln('-                                   -');
• gotoxy(21,urt-2);writeln('-------------------------------------');
• writeln;
• end;
• procedure input;
• begin
• urt:=urt+1;
• write('Masukkan Nomor Bilik               = ');readln(rincian.bilik);
• write('Masukkan Lama Bicara (menit:detik) = ');readln(rincian.menit);
• gotoxy(40,urt);write(':');readln(rincian.detik);
• writeln;
• writeln('Masukkan Jenis Panggilan  = ');
• writeln(' a. Lokal');
• writeln(' b. InterLokal');
• writeln(' c. Internasional');
• writeln;
• write('Pilih : ');readln(rincian.jenis_pgl);
• writeln;
• end;
• procedure proses;
• begin
• conv:=(rincian.menit)*60;
• lama:=conv+(rincian.detik);
• case(rincian.jenis_pgl) of
• 'a': tarif:=lama*10;
• 'b': tarif:=lama*30;
• 'c': tarif:=lama*60;
• end;
• end;
• procedure output;
• begin
• urt:=urt+8;
• writeln('Bilik Yang Anda Pakai : ',(rincian.bilik));
• writeln('Lama Bicara Anda      : ',(rincian.menit),' : ',(rincian.detik));
• write('Jenis Panggilan       : ');
• if (rincian.jenis_pgl)='a' then writeln('lokal')
• else if (rincian.jenis_pgl)='b' then writeln('InterLokal')
• else if (rincian.jenis_pgl)='c' then writeln('Internasional');
• writeln;
• writeln('Tarif yang harus di bayar : ',tarif:4:0);
• writeln;
• writeln;
• gotoxy(21,urt);writeln('TERIMA KASIH ATAS KUNJUNGAN ANDA');
• gotoxy(21,urt+1);writeln('---------------------------------');
• end;
• begin
• kop;
• input;
• proses;
• clrscr;
• kop;
• output;
• end.