Program Data_mahasiswa; uses crt; var nama :array[1..10]of string[20]; NPM:array[1..10]of string[20]; alamat:array[1..20]of string[30]; i,j :integer; begin clrscr; write('Masukkan Jumlah Data Mahasiswa :'); readln(j); for i:=1 to j do begin writeln('Data ke-',i); write('Nama Mahasiswa :'); readln(nama[i]); write('Masukkan NPM :'); readln(NPM[i]); write('Alamat :'); readln(alamat[i]); end; clrscr; writeln('************************************************'); writeln('No. | Nama Mahasiswa | NPM | Alamat|'); writeln('************************************************'); for i:= 1 to j do begin writeln(i:1, nama[i]:20, NPM[i]:25, alamat[i]:25); end; writeln('***********************************************'); readln; end.
Senin, 11 April 2016
Load disqus comments
Langganan:
Posting Komentar (Atom)
About Me
statistics

0 komentar