Buat Inspirasi para progdi DKV materi tipografi

CARA MEMBUAT BIODATA DI PASCAL

Ok bro saya akan sedit berbagi cara membuat program biodata dengan menggunakan pascal
nah langsung ja kita ke tkp...
1.buka program pascal anda
2. dan ketikan kode di bawah ini

program biodata;
uses crt;
var
nama,alamat,jeniskelamin, statusperkawinan,tempattgllahir,agama,pekerjaan,goldarah:string;
umur:integer;
begin
textcolor(10);
clrscr;
WRITELN(' ');
writeln('             ISILAH BIODATA DI BAWAH INI DENGAN BENAR'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
writeln( '                          BIODATA');
TEXTCOLOR(12);
writeln('===============================================================================');
write(' NAMA              : '); readln(nama);
write(' UMUR              : '); readln(umur) ;
write(' TEMPAT/TGL LAHIR  : '); readln(tempattgllahir);
write(' JENIS KELAMIN     : '); readln(jeniskelamin);
write(' ALAMAT            : '); readln(alamat);
write(' AGAMA             : '); readln(agama);
write(' STATUS PERNIKAHAN : '); readln(statusperkawinan);
write(' PEKERJAAN         : '); readln(pekerjaan);
writeln('===============================================================================');
textcolor(10);
  writeln('  PENGISIAN BIODATA SELESAI');
  TEXTCOLOR(12);
WRITELN('===============================================================================');
  TEXTCOLOR(10);
writeln('  INILAH DATA ANDA ');
textcolor(12);
writeln('==============================================================================='); TEXTCOLOR(10);
writeln('@ anda bernama ',nama,'.''   |@ umur anda ',umur,' TAHUN.');
writeln('@ tempat/tgl lahir anda ', tempattgllahir,'.');
writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('@ anda tinggal di ' ,alamat,'.');
writeln('@ agama anda' ,agama,'.''     |@ status anda ',statusperkawinan,'.');
WRITELN('@ pekerjaan anda ',pekerjaan,'.'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
WRITELN(' PASTIKAN DATA ANDA BENAR, BILA ANDA SUDAH YAKIN DATA ANDA BENAR TEKAN ENTER! ');
readkey;
readln;
end.

3. selanjutnya langsung runing ja bro....
selanjutnya tinggal kteatifitas kmu ja bro bisa kmu edit kode di atas jangan lupa komennya ya bro....
smoga berguna bro SUKSES BRO.