Source Code Program Record

program list; {untuk menampilkan list data mahasiswa}

uses wincrt;

type mahasiswa=record

nama: string;

NRP: string;

kelamin: string;

alamat : string;

end;

var data: mahasiswa;

begin

clrscr;

write('Masukkan Nama: '); readln(data.nama);

write('Masukkan NRP: '); readln(data.NRP);

write('Masukkan Jenis Kelamin: '); readln(data.kelamin);

write('Masukkan Alamat: '); readln(data.alamat);

{untuk memasukkan data mahasiswa}

writeln(data.nama);

writeln(data.NRP);

writeln(data.kelamin);

writeln(data.alamat);

{untuk menampilkan data mahasiswa}

end.

Posted in: