Contoh codingan record free pascal

program mahasiswa1;
uses crt;
type
NamaMahasiswa=record
nim:string;
nama:String;
alamat:String;
nilaiMK:integer;
end;
var
mahasiswa1:NamaMahasiswa;
begin
clrscr;
mahasiswa1.nim:=’178330′;
mahasiswa1.nama:=’ubay’;
mahasiswa1.alamat:=’antares’;
mahasiswa1.nilaiMK:=85;
writeln(‘nim:’,mahasiswa1.nim);
writeln(‘nama:’,mahasiswa1.nama);
writeln(‘alamat:’,mahasiswa1.alamat);
writeln(‘nilaiMK:’,mahasiswa1.nilaiMK);
readln;
end.

Leave a Reply

Your email address will not be published.