Isa Subani

source code:  type Pmhs = ^Tmhs; Tmhs = record nama: string ; npm: string ; kelas: string ; end ; var arrMhs: array [ 1 . .50 ] of Pmhs; i, n: integer ; begin writeln( 'INPUT DATA' ); write ( 'Masukan Banyak Data : ' ); readln(n); for i := 1 to n do begin new(arrMhs[i]); write ( 'Masukan Nama ke-' ,i, ' : ' ); readln(arrMhs[i]^.nama); write ( 'Masukan NPM ke-' , i, ' : ' ); readln(arrMhs[i]^.npm); write ( 'Masukakn Kelas ke-' , i, ' : ' ); readln(arrMhs[i]^.kelas); end ; writeln( 'OUTPUT DATA' ); for i := 1 to n do begin writeln( 'Nama ke-' , i, ' : ' , arrMhs[i]^.nama); writeln( 'NPM ke-' , i, ' : ' , arrMhs[i]^.npm); writeln( 'Kelas ke-' , i, ' : ' , arrMhs[i]^.kelas); end ; end . run: 

 ini kodenya:  type siswa = record nim,nama: string ; tugas,uts,uas: double ; end ; var dataSiswa : array [ 1 . .50 ] of siswa; n, i : integer ; nilaiAkhir: double ; grade: string ; begin write ( 'Banyak data yang dimasukan: ' ); readln(n); {init} for i := 1 to n do begin writeln( 'Data ke : ' , i); write ( 'NIM : ' ); readln(dataSiswa[i].nim); write ( 'NAMA : ' ); readln(dataSiswa[i].nama); write ( 'TUGAS : ' ); readln(dataSiswa[i].tugas); write ( 'UTS : ' ); readln(dataSiswa[i].uts); write ( 'UAS : ' ); readln(dataSiswa[i].uas); end ; {display} writeln( '-----------------------------------------' ); writeln( 'NO NIM NAMA TUGAS UTS UAS NA GRADE' ); writeln( '-----------------------------------------' ); for i := 1 to n do begin nilaiAkhir := (dataSiswa[i].tugas + dataSiswa[i].uts + dataSiswa[i].uas)/ 3 ; if nilaiAkhir <= 70 then ...

 ini kodenya:  type siswa = record nim,nama: string ; usia,saudara: integer ; end ; var dataSiswa : array [ 1 . .50 ] of siswa; n, i : integer ; begin write ( 'Banyak data yang dimasukan: ' ); readln(n); {init} for i := 1 to n do begin writeln( 'Data ke : ' , i); write ( 'NIM : ' ); readln(dataSiswa[i].nim); write ( 'NAMA : ' ); readln(dataSiswa[i].nama); write ( 'USIA : ' ); readln(dataSiswa[i].usia); write ( 'SAUDARA : ' ); readln(dataSiswa[i].saudara); end ; {display} writeln( 'DATA YANG DIMASUKAN' ); for i := 1 to n do begin writeln(dataSiswa[i].nim, ' ' ,dataSiswa[i].nama , ' ' ,dataSiswa[i].usia , ' ' , dataSiswa[i].saudara); end ; writeln( 'Halo World!' ); end . ini outputnya: