Posted by Materi Teknik Informatika • Informasi Teknologi Informasi • Digital Marketing on 9/20/2014
uses crt;
type mahasiswa=record
nama: string;
npm: string;
jenis_kelamin: string;
end;
var siswa: mahasiswa;
begin
clrscr;
writeln('Data Mahasiswa');
writeln('------------------------------------------------------------------');
write('Masukan Nama : ');readln(siswa.nama);
write('Masukan NPM : ');readln(siswa.npm);
write('Masukan Jenis Kelamin : ');readln(siswa.jenis_kelamin);writeln;
writeln(siswa.nama);
writeln(siswa.npm);
writeln(siswa.jenis_kelamin);
readln;
end.
Berikut hasil output Program Data Mahasiswa dengan Record yang dihasilkan.