Recommended Post Slide Out For Blogger

Minggu, 02 Oktober 2011

Membuat Biodata Pake Turbo Pascal

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.

Tags: