08 April 2012

Membuat Contoh Record Mahasiswa

Scripnya dibawah ini ya silahkan dicoba aja.


Uses wincrt;
Type
    Mahasiswa =Record
    Nama : String[30];
    NIM : String[20];
    Alamat : String[50];
End;
Var
   mhs : Mahasiswa ;
Begin
     Clrscr;
     write ('Nama :');readln (mhs.Nama);
     write ('NIM :'); readln (mhs.NIM);
     write ('Alamat :'); readln(mhs.Alamat);
     writeln;
     writeln ('Nama Anda :', mhs.Nama);
     writeln ('NIM Anda :', mhs.NIM);
     writeln ('Alamat Anda :', mhs.Alamat);
End.


Outputnya.


0 komentar:

Post a Comment

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..