Program Data Mahasiswa Sederhana November 21, 2009
Program Data Mahasiswa Sederhana
Dah lama nich gak bagi – bagi program pascal lagi. Kali ini aku bakal share program mahasiswa sederhana dalam pascal. Dalam program ini kita bisa melakukan inputan, kita juga bisa melakukan pengurutan berdasarkan NRP, Nama, dan Nilai menggunakan metode Bubble Short, kita juga bisa meng update isi dari data kita mulai dari update NRP, Nama, dan Nilai, di dalam program ini juga terdapat metode searching yaitu menggunakan metode sequential search berdasarkan NRP. Hm….. sederhana sich….. tapi program ini bisa dibilang cukup komplit. Heheheheh……. Ok lah kalo begitu….. here we go….. Source Code
Program Mahasiswa; uses wincrt; label 1; type DaMa = record NRP : String; Nama : String; Nilai : Integer; end; var List : array [1..10] of DaMa; i, h, j, n, pil, m : integer; NRP1 : String; temp : DaMa; procedure insert; begin inc(i); inc(n); gotoxy(6,16); write('Masukkan Data Mahasiswa'); gotoxy(6,18); write('NRP Mahasiswa : '); readln(List[i].NRP); gotoxy(6,19); write('Nama Mahasiswa : '); readln(List[i].Nama); gotoxy(6,20); write('Nilai Mahasiswa : '); readln(List[i].Nilai); end; procedure cari(z : String); var k : integer; ketemu : boolean; begin k := 1;
1
By Lukman Wahyudi ( apocalypsezone.blogspot.com )
Program Data Mahasiswa Sederhana November 21, 2009 ketemu := false; while (not ketemu) and (k List[j+1].NRP then begin temp := List[j]; List[j] := List[j+1]; List[j+1] := temp; end; end; 2 : begin for h := 1 to n-1 do for j := 1 to n-1 do if List[j].Nama > List[j+1].Nama then begin temp := List[j]; List[j] := List[j+1]; List[j+1] := temp; end; end; 3 : begin for h := 1 to n-1 do for j := 1 to n-1 do if List[j].Nilai > List[j+1].Nilai then begin temp := List[j]; List[j] := List[j+1]; List[j+1] := temp; end; end; 4 : begin goto 1; end; end; cetak; until pil >= 5; end;
5
By Lukman Wahyudi ( apocalypsezone.blogspot.com )
Program Data Mahasiswa Sederhana November 21, 2009 3 : begin gotoxy(21,15); write('NRP Mahasiswa yang akan dicari : '); readln(NRP1); cari(NRP1); gotoxy(18,24); write('Tekan Sembarang Tombol Untuk Kembali Ke Menu'); readkey; end; 4 : begin gotoxy(5,18); write('NRP Mahasiswa Yang Akan di Update : '); readln(NRP1); update(NRP1); end; end; until pil >= 5; end.
6
By Lukman Wahyudi ( apocalypsezone.blogspot.com )
Program Data Mahasiswa Sederhana November 21, 2009
Runing Program
Gambar 1. Masukkan Data
Gambar 2. Mengurutkan Data
7
By Lukman Wahyudi ( apocalypsezone.blogspot.com )
Program Data Mahasiswa Sederhana November 21, 2009
Gambar 3. Searching Data
Gambar 4. Update Data
8
By Lukman Wahyudi ( apocalypsezone.blogspot.com )