Cara membuat program biodata

NAWAK-NAWAK semua.
kali ini AYAS akan membahas bahasa pemograman pascal, ya sekedar bagi-bagi dasar pascal saja. baiklah untuk pertama ini AYAS akan membuat biodata diri sendiri dengan aplikasi turbo pascal.

LISTING PROGRAM :

Program biodata;

uses crt;

var

   nmlkp,nmpgl,al,jrsn,agm,tlhr,blnlhr,nmsd,nmsmp,nmsma,pgmsdi: string[40];

   tglhr,thnlhr: integer;

   nim,instsi,nohp: string[25];

begin

textcolor(green);

clrscr;

     writeln('=======================');

     writeln('Ini adalah Biodata saya');

     writeln('=======================');

     write('Nama Lengkap: '); readln(nmlkp);

     write('Nama Panggilan: '); readln(nmpgl);

     write('NIM: '); readln(nim);

     write('Nama Instansi: '); readln(instsi);

     write('Jurusan: '); readln(jrsn);

     write('Program Studi: '); readln(pgmsdi);

     write('Alamat lengkap: '); readln(al);

     write('Tempat Lahir: '); readln(tlhr);

     write('Tanggal Lahir: '); readln(tglhr);

     write('Bulan: '); readln(blnlhr);

     write('Tahun: '); readln(thnlhr);

     write('Agama: '); readln(agm);

     write('SD: '); readln(nmsd);

     write('SMP: '); readln(nmsmp);

     write('SMA: '); readln(nmsma);

     write('Nomor HP: '); readln(nohp);

clrscr;

     writeln('--------------');

     writeln('Jadi data anda: ');

     writeln('--------------');

     writeln('Anda mempunyai nama lengkap yaitu ',nmlkp, '. Biasanya saya dipanggil ',nmpgl, '. ');

     writeln('Saya tinggal di ',al, '.Saya beragama ',agm, '. Saya lahir di ',tlhr, '. ');

     writeln('Pada tanggal ',tglhr ,',bulan ',blnlhr, ',tahun ',thnlhr, '. Saya memulai pendidikan di ',nmsd ,'. ');

     writeln('Kemudian melanjutkan pendidikan di ',nmsmp, '. Setelah itu melanjutkan ke jenjang SMA di ',nmsma ,'. ');

     write('Kemudian melanjutkan kuliah di ',instsi ,'. Di jurusan ',jrsn ,'. Tepatnya di ',pgmsdi ,'. ');

     write('Dan mendapat NIM ',nim ,'. ');

     write('Terakhir bagi yang ingin menghubungi saya di ',nohp, '.');

     writeln;

     readkey;

end.

Selanjutnya ANDA bisa tambahkan aksesoris yang ANDA sukai..
mudah bukan..
makasih sudah berkunjung di MUDA (ilMUDuniA)