MEMBUAT DATA MAHASISWA
Uses wincrt;
Type mahasiswa = record
nim :string;
Nama :string;
Alamat :string;
Pekerjaan :string;
Umur :string;
End;
Var data :mahasiswa;
ui :char;
Begin
Clrscr;
Writeln(‘==================================’);
Writeln;
Writeln(‘ membuat
data mahasiswa ’);
Writeln;
Writeln(‘by mohamad echa putra’);
Writeln;
Writeln(‘==================================’);
Writeln;
Writeln;
Write(‘nim :
‘); readln(data.nim);
Write(‘nama :
‘); readln(data.nama);
Write(‘alamat :
‘); readln(data.alamat);
Write(‘pekerjaan : ‘);
readln(data.pekerjaan);
Write(‘umur :
‘); readln(data.umur);
Writeln;
Writeln;
Clrscr;
Writeln(‘==========================================’);
Writeln;
Writeln(‘
data mahasiswa ‘);
Writeln;
Writeln(‘===========================================’);
Writeln;
Writeln(‘nim |nama |alamat |pekerjaan |umur’);
Writeln(data.nim,’| ‘,data.nama,’| ‘,data.alamat,’| ‘,data.pekerjaan,’| ‘,data.umur);
Writeln;
Writeln;
End.
Tidak ada komentar:
Posting Komentar