Rumus Pascal Membuat Biodata Mahasiswa Sederhana

Program data_mhs;
uses crt;
type mahasiswa = record
  nim       : string[8];
  nama      : string[25];
  umur      : integer;
end;
var
data:mahasiswa;
begin
  clrScr;
  writeln ('Masukkan data diri Anda : ' );
  write   ('Nim    : ' );readln(data.Nim);
  write   ('Nama   : ' );readln(data.Nama);
  write   ('Umur   : ' );readln(data.Umur);
  writeln;  {Memasukkan baris kosong}
  {Menampilkan data yang telah dimasukan}
  writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');
  writeln ('Nim    : ' , data.Nim);
  writeln ('Nama   : ' , data.Nama);
  writeln ('Umur   : ' , data.Umur);
  readln ;
end.


Semoga Bermanfaat Sobat, Salam Blogger.
Jangan lupa comment ya..??

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email