Program data mahasiswa

 

Membuat program data mahasiswa menggunakan array dalam record, dimana record merupakan salah satu tipe data selain array yang dapat menampung lenih dari 1 data. Perbedaan antara array dan record adalah setiap data yang tersimpan dalam array harus memiliki tipe data yang sama, sedangkan dalam record tipe datanya dapat berbeda.Untuk lebih jelasnya bagaimana cara membuat program array dalam record bisa dilihat pada coding di bawah ini. Berikut adalah listing program data mahasiswa.Langsung saja kita simak bareng-bareng yuk.

Program data_mhs;
 
uses wincrt;
 
type mahasiswa = record
  nim       : string[8];
  nama      : string[25];
  umur      : integer;
end;
 
var
data:mahasiswa;
 
begin
  clrScr;
  writeln ('Masukkan data diri Anda : ' );
  write   ('Nim    : ' );readln(data.Nim);
  write   ('Nama   : ' );readln(data.Nama);
  write   ('Umur   : ' );readln(data.Umur);
 
  writeln;  {Memasukkan baris kosong}
 
  {Menampilkan data yang telah dimasukan}
  writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');
  writeln ('Nim    : ' , data.Nim);
  writeln ('Nama   : ' , data.Nama);
  writeln ('Umur   : ' , data.Umur);
  readln ;
end.

program recordmhs;
uses crt;
type
tanggal_lahir = record
tanggal : integer;
bulan : string[10];
tahun : integer;
end;
mahasiswa = record
nim : string[8];
nama : string[30];
alamat : string[30];
tlp : string[12];
tanggallahir : tanggal_lahir;
jurusan : string[20];
end;
var
recmhs : array[1..50] of mahasiswa;
byk : byte;
i, j : integer;
begin
clrscr;
writeln(‘————————————————–‘);
writeln(‘ data mahasiswa ‘);
writeln(‘————————————————–‘);
writeln;
write(‘masukkan jumlah mahasiswa : ‘); readln(byk);
for i := 1 to byk do
begin
with recmhs[i] do
begin
write(‘nim : ‘);readln(nim);
write(‘nama : ‘);readln(nama);
write(‘alamat : ‘);readln(alamat);
write(‘no telepon : ‘);readln(tlp);
write(‘tanggal lahir : ‘);readln(tanggallahir.tanggal);
write(‘bulan lahir : ‘);readln(tanggallahir.bulan);
write(‘tahun lahir : ‘);readln(tanggallahir.tahun);
write(‘jurusan : ‘);readln(jurusan);
end;
end;
writeln;
writeln(‘—————————————————‘);
writeln(‘data yang telah diinputkan’);
for j := 1 to byk do
begin
with recmhs[j] do
begin
writeln(‘nim : ‘,nim);
writeln(‘nama : ‘,nama);
writeln(‘alamat : ‘,alamat);
writeln(‘no telepon : ‘,tlp);
writeln(tanggal lahir : ‘,tanggallahir.tanggal,”,tanggallahir.bulan,”,tanggallahir.tahun);
end;
readln;
end;
end.

Demikianlah contoh listing program data mahasiswa, semoga bermanfaat bagi yang membutuhkan. Baca juga program gaji karyawan.