Kabar Terbaru


program Latihan;
uses crt;
var
Database:Array[1..4] of String;
I:Integer;

begin
ClrScr;
WriteLn;
WriteLn(' Inputan Data Mulai Dari => | NPM | NAMA | KELAS | PRODI |');
WriteLn(' =========================================================');
for i:=1 to 4 do
 begin
 write (' Masukan Data ke- ', i,': '); ReadLn(Database[i]);
 end;
WriteLn(' =========================================================');
WriteLn('     Berikut Ini Data Mahasiswa Yang Telah Di Input      ');
WriteLn(' =========================================================');
WriteLn(' NPM   : ' , Database[1]);
WriteLn(' NAMA  : ' , Database[2]);
WriteLn(' KELAS : ' , Database[3]);
WriteLn(' PRODI : ' , Database[4]);
WriteLn(' =========================================================');
readln;
end.

Subscribe to receive free email updates:

0 Response to "INPUT DATA MAHASISWA MENGGUNAKAN - ARRAY 1 DIMENSI (PASCAL)"

Post a Comment