Contoh Program Biodata pada Pascal (Pemrograman Dasar).

Berikut Ane Bakalan Postingin Pelajaran Pemrograman Dasar Yaitu Contoh Program Biodata Pada Turbo Pascal..Kalian Tinggal Copas Di Turbo Pascal Agan.Stelah Itu Ctrl+F9 Untuk Membuatnya Beroperasi..Tanpa Basa-Basi Mari Kita Lihat..Cekidot..

Program Biodata Pada Pascal

program biodata;
uses crt;
var
nama,namasekolah,kelas,jurusan,alamat,jeniskelamin,tempattgllahir,agama,goldarah,hoby,citacita:string;
umur:integer;
begin
textcolor(9);
clrscr;
WRITELN(' ');
writeln('                    ISILAH BIODATA DI BAWAH INI DENGAN BENAR'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(9);
writeln( '                                    BIODATA');
TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(9);
write(' NAMA              : '); readln(nama);
write(' NAMA SEKOLAH      : '); readln(namasekolah);
write(' KELAS             : '); readln(kelas) ;
write(' JURUSAN           : '); readln(jurusan) ;
write(' UMUR              : '); readln(umur) ;
write(' ALAMAT            : '); readln(alamat);
write(' TEMPAT/TGL LAHIR  : '); readln(tempattgllahir);
write(' JENIS KELAMIN     : '); readln(jeniskelamin);
write(' AGAMA             : '); readln(agama);
write(' GOLONGAN DARAH    : '); readln(goldarah);
write(' HOBY              : '); readln(hoby);
write(' CITA CITA         : '); readln(citacita);
TEXTCOLOR(12);
writeln('===============================================================================');
textcolor(9);
  writeln('  PENGISIAN BIODATA SELESAI');
  TEXTCOLOR(12);
WRITELN('===============================================================================');
  TEXTCOLOR(9);
writeln('  INILAH DATA ANDA ');
textcolor(12);
writeln('===============================================================================');
TEXTCOLOR(9);
writeln('anda bernama ',nama,'.');
writeln('Sekolah anda ',namasekolah,'.');
writeln('kelas anda ',kelas,'.');
writeln('jurusan anda ',jurusan,'.');
writeln('umur anda ',umur,' TAHUN,.');
writeln('anda tinggal di ' ,alamat,'.');
writeln('tempat/tgl lahir anda ', tempattgllahir,'.');
writeln('anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('agama anda' ,agama,'.');
writeln('golongan darah anda ',goldarah,'.');
writeln('hoby anda' ,hoby,'.');
writeln('cita cita anda' ,citacita,'.'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(9);
WRITELN(' PASTIKAN DATA ANDA BENAR, BILA ANDA SUDAH YAKIN DENGAN DATA YANG ANDA MASUKKAN BENAR TEKAN ENTER! ');
readkey;
readln;
end.