Contoh program menggunakan record di dalam array di PASCAL

selamat datang di blog surya disini saya akan membahas tentang contoh program menggunakan record di dalam array di PASCAL pasti pada ribet iia mau bikin apa ? berikut caranya :)


1. Pertama Kalian Buka Turbo Pascal Kalian.

2. Kemudian Buat Projek Baru.

3. Copy Coding Di Bawah ini

     


program tugas2;         {judul program bisa di tulis apa saja}

uses crt;


type

      mahasiswa = record

                           nim        :string[8];

                           nama     :string[30];

                           jurusan :string[20];

                           tgl          :string[10];

                           alamat  :string[30];

                           notelp   :string[12];

     end;

var

     mhs :array[1..10] of mahasiswa;

     byk :byte;

     i,j :integer;


begin

clrscr;


txtcolor(10);

writeln('           TUGAS STRUKTUR DATA          ');        {boleh tidak di tulis}

writeln('===========================');

writeln('===========================');

textcolor(15);

write(Masukkan Jumlah Mahasiswa: ');readln(byk);

for i:= 1 to byk do

begin

write('NIM                :');readln(mhs[i].nim);

write('Nama              :');readln(mhs[i].nama);

write('Jurusan          :');readln(mhs[i].jurusan);

write('Tanggal Lahir:');readln(mhs[i].tgl);

write('Alamat            :');readln(mhs[i].alamat);

write('No Telpon      :');readln(mhs[i].notelp);

writeln;

end;

textcolor(10);

for j:= 1 to byk do

begin

writeln('NIM                :',mhs[j].nim);

writeln('Nama              :',mhs[j].nama);

writeln('Jurusan          :',mhs[j].jurusan);

writeln('Tanggal Lahir:',mhs[j].tgl);

writeln('Alamat            :',mhs[j].alamat);

writeln('No Telpon      :',mhs[j].notelp);

writeln;

end;

readln;

end.



biar tau nanti RUN iia nanti tau hasilnya kaya gimana :) semangat yang masih belajar pascal