Input data mahasiswa dengan Record Arrary dan Looping pada Pascal

Assalamualaikum,
Haloo gaess,

Belom lama ini ada tugas dari kampus penggunaan record di dalam record menggunakan bahasa pemrograman pascal. Saya sendiri sudah utak-atik sampe pusing tapi belom ketemu juga, cari di google infonya cuma sedikit.

Permasalahan yang muncul adalah menggunakan record di dalam record dengan jumlah data yang bisa diinput menggunakan maks pada array. Kemudian melakukan inputan data menggunakan looping.

Alur program yang dibuat memasukan (input) jumlah banyaknya siswa yang ingin di-input dengan variabel x.
Dengan menggunakan record TSiswa yang ber-field Nama, NPM dan Alamat, dimana field 'Alamat' diambil dari record terpisah dengan TSiswa dengan nama Record Talamat. Talamat tersebut berisikan field-field sbb : Nama Jalan, Nama Kota, No Rumah, dan Kode Pos. [ pusing pusing dah lo..!!! ]

Output yang diminta dari alur program diatas adalah menampilkan :

Ini adalah Source Code yang saya pelajari dari dosen. Alias nyontek.. hehe :D

program tugas1;
uses crt;

const maks = 100;

type
Talamat = record
nama_jalan, nama_kota : string;
no, kode_pos : integer;
end;

TSiswa = record
npm, nama : string;
alamat : Talamat;
end;

var

A : Array [1..maks] of TSiswa;
x,y : integer;

begin
clrscr;

write('Jumlah Siswa yang ingin di Input = ');readln(x);
writeln();
 for y := 1 to x do
  begin
  writeln ('Data Siswa ke - ',y);
  writeln();
   with A[y] do begin
     write('Masukan Nama :  ');readln(nama);
     write('MAsukan NPM  :  ');readln(NPM);
     writeln();
     writeln('Masukan Alamat Siswa');
     writeln();
    with alamat do begin
     write('Nama Jalan   : ');readln(nama_jalan);
     write('No           : ');readln(no);
     write('Nama Kota    : ');readln(Nama_kota);
     write('Kode Pos     : ');readln(kode_pos);
     writeln();
    end;
   end;
end;
     writeln('--------------------------------');
for y := 1 to x do
 begin
 writeln ('Data Siswa ke - ',y);
  with A[y] do begin
   writeln('Nama    : ',nama);
   writeln('NPM     : ',NPM);
   writeln('Alamat  : ',alamat.nama_jalan,',',alamat.no,',',alamat.nama_kota,',',alamat.kode_pos);
   writeln();
  end;
 end;
readln;

end.

Penjelasan :

Pertama kita buat Conts dengan variabel maks bernilai 100. {Fungsinya untuk memasukan batas jumlah siswa yang bisa diinput dari 1-100}

Kedua membuat record.

Record yang pertama bernama Talamat dengan field-field sperti diatas.
Record yang kedua bernama TSiswa dengan Nama NPM Alamat.. dimana Alamat bertipe data Talamat. Yang artinya Field Alamat pada TSiswa diambil dari record Talamat.

Ketiga membuat array.
Array disini fungsinya adalah untuk menentukan jumlah siswa yang akan user dinput dan menyimpannya.

Array A dimulai dari 1 hingga maks dengan tipe data TSiswa.
Kenapa tipe data adalah TSiswa? Kenapa tidak integer? padahal array sendiri fungsinya untuk menentukan jumlah siswa yang akan dinput oleh user?
Jawabannya kira-kira begini :)
Perhatikan Output yang diminta dari program diatas. Pada intinya hanya menampilkan Nama, NPM, dan Alamat saja sehingga hasil output diatas berdasarkan inputan pada Record TSiswa. Oleh karena itu tipe data yang digunakan pada Array A menggunakan TSiswa dan pada setiap elemen Array A menyimpan satu data siswa.

Keempat membuat variabel x dan y untuk looping.

Untuk alur selanjutnya pada program kalian pasti sudah paham.

Okeh.. sekian dulu dari saya..
Semoga bisa membantu.. See you again..

Wassalamualkum Wr.Wb.

/*ryan

Ryan's Blog

Input data mahasiswa dengan Record Arrary dan Looping pada Pascal

Terima Kasih

3 komentar