Contoh Program Array dan Record

Contoh Program menginput data Mahasiswa.

Output pada Program

1. Tampilan Ketika Memilih menu

(Gambar 1)

2. Tampilan ketika Menginput Jumlah data yang akan di masukkan

(Gambar 2)

3. Tampilan Saat memasukkan data ke-1

(Gambar 3)

4. Tampilan saat memasukka data ke-2

(Gambar 4)

5. Tampilan saat menginputkan data ke-3

(Gambar 5)

6. Tampilan ketika selesai menginput semua data dan Memilih menu 2 untuk menampilkan data

(Gambar 6)

7. Tampilan pada menu Output ketika sudah menginput data

(Gambar 7)

8. Tampilan menginput pilihan keluar

(Gambar 8)

Source Code

program Array_dan_Record; Uses crt; Type rec_data = record nama,nim,grade :Array[1..100]Of String; nilai :Array[1..100]Of Real; end; Var i,n :longint; pil :char; data :rec_data; procedure input; begin clrscr; writeln(' '); writeln(' Masukkan Jumlah Data : '); gotoxy(25,2);readln(n); for I:=1 to n do begin writeln(' '); Writeln(' Data Ke '); Writeln(' '); Writeln(' Nama : '); Writeln(' NIM : '); writeln(' Nilai : '); writeln(' '); gotoxy(32,4+6*(i-1));writeln(i); gotoxy(18,6+6*(i-1));readln(data.nama[i]); gotoxy(18,7+6*(i-1));readln(data.nim[i]); gotoxy(18,8+6*(i-1));readln(data.nilai[i]); with data do if (nilai[i]<0) or (nilai[i]>100) then grade[i]:='S'else if nilai[i]>=80 then grade[i]:='A'else if nilai[i]>=75 then grade[i]:='B+'else if nilai[i]>=70 then grade[i]:='B'else if nilai[i]>=65 then grade[i]:='C+'else if nilai[i]>=60 then grade[i]:='C'else if nilai[i]>=50 then grade[i]:='D'else if nilai[i]<50 then grade[i]:='E'; writeln; end; end; procedure output; begin clrscr; writeln(' '); writeln(' Data Mahasiswa '); Writeln('------------------------------------------------'); writeln('| Nama | Nim | Nilai | Grade |'); Writeln('| | | | |'); Writeln('------------------------------------------------'); with data do For i:=1 To n Do Begin gotoxy(20,6+i);writeln('|'); gotoxy(1,6+i);writeln('|'); gotoxy(32,6+i);writeln('|'); gotoxy(40,6+i);writeln('|'); gotoxy(48,6+i);writeln('|'); gotoxy(21,6+i);Writeln(nim[i]); gotoxy(3,6+i);writeln(nama[i]); gotoxy(35,6+i);writeln(nilai[i]:2:0); gotoxy(43,6+i);writeln(grade[i]); end; Writeln(' '); readln; end; procedure menu; begin repeat clrscr; writeln; writeln(' Menu Utama '); writeln; writeln('1.Input Data '); writeln('2.Output Data '); writeln('0.Exit '); writeln('---------------------------------------'); writeln('Masukkan Pilihan : '); gotoxy(21,8);readln(pil); case pil of '1':input; '2':output; end; until pil='0'; end; begin menu; end.

Sumber : madisite.blogspot.com