program pascal

Program Pascal

1.    Listing1. Program menggunakantipe Record

Program TipeRecord;

Uses  

     Crt;

type

     TSiswa=record

          NIM:string[8];

     Nama:string[25];

     Umur:integer;

     end;

var

     S:TSiswa;

begin

     writeln(‘Isikaninformasimengenaidirianda:’);

     write(‘NIM:’);readln(S.NIM);

     write(‘Nama:’);readln(S.Nama);

     write(‘Umur:’);readln(S.Umur);

     writeln;

     writeln(‘NIM:’,S.NIM);

     writeln(‘Nama:’,S.Nama);

     writeln(‘Umur:’,S.Umur);

     readln;

end.

ContohHasil yang diberikandari program 1 di atasadalahsebaagaiberikut:

Isikaninformasimengenaidirianda :

NIM            : DOBO5777

Nama           : RizkiDwiMulyana;

Umur           : 18

Berikutiniinformasi yang telahandaisikan:

NIM              : DOBO5777

Nama           : RizkiDwiMulyana

Umur           : 18