text maarque kanan

INGATKAN DIRIMU UNTUK MENGATUR SEGALA SESUATU SUDAH DI ATUR ALLOH

salju

Sabtu, 03 Desember 2011

data mahasiswa

Program data_mhs;

uses wincrt;

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;

  writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');
  writeln ('Nim    : ' , data.Nim);
  writeln ('Nama   : ' , data.Nama);
  writeln ('Umur   : ' , data.Umur);
  readln ;
end.

Tidak ada komentar:

Posting Komentar