Selasa, 17 April 2012

Program Biodata Lengkap Mahasiswa Pascal

Buatlah program biodata mahasiswa pada pascal dengan memasukkan Nama, Tempat Tanggal Lahir, Alamat Rumah, Umur, Agama, Hobby beserta No Tlp sehingga seperti tampilan diatas.

Jawab :
Program Data_Diri;
Uses crt;
var
   nama,lahir,rmah,umur,agama,hobby,telp:string;
Begin
     writeln('                  BIODATA                         ');
     writeln('__________________________________________________');
     writeln;
     write('nama                    : ');
     readln(nama);
     write('Tempat Tanggal Lahir    : ');
     readln(lahir);
     write('Alamat rumah            : ');
     readln(rmah);
     write('Umur                    : ');
     readln(umur);
     write('agama                   : ');
     readln(agama);
     write('Hobby                   : ');
     readln(hobby);
     write('No Telp                 : ');
     readln(telp);
     writeln;
     writeln('___________________________________________________');
     writeln('Data Yang Anda Masukan Adalah Sebagai Berikut : ');
     writeln('Nama                    : ',nama);
     writeln('Tempat Tanggal Lahir    : ',lahir);
     writeln('Alamat rumah            : ',rmah);
     writeln('Umur                    : ',umur);
     writeln('Agama                   : ',agama);
     writeln('Hobby                   : ',hobby);
     writeln('No Telp                 : ',telp);
     readln;
end.

Artikel Terkait



Tidak ada komentar:

Posting Komentar