Melayani Dengan Riang Gembira

dan DOA

Cari di Blog Ini

Berubah tanpa ilmu adalah perubahan sia-sia

Yang abadi dalam kehidupan di dunia adalah perubahan, dengan ilmu perubahan menjadi terarah.

Orang cerdas itu adalah orang yang berencana untuk besok hari

Maka disiplin adalah bagian dari rencana.

10 September 2020

Menerapkan pembuatan antar muka (User Intreface) pada aplikasi

program StatusSiswa;

uses crt;

var

nama, tempattgllahir, jeniskelamin, alamat, agama, nohp, email, pekerjaan:string;

umur:integer;

begin

textcolor(10);

clrscr;

writeln (' ');

writeln(' ISILAH STATUS ANDA DI BAWAH INI ');

textcolor(12);

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

textcolor(10);

writeln( ' BIODATA');

textcolor(12);

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

write(' NAMA : '); readln(nama);

write(' TEMPAT, TGL LAHIR : '); readln(tempattgllahir);

write(' JENIS KELAMIN : '); readln(jeniskelamin);

write(' ALAMAT : '); readln(alamat);

write(' AGAMA : '); readln(agama);

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

write(' E-MAIL : '); readln(email) ;

write(' PEKERJAAN : '); readln(pekerjaan);

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

textcolor(10);

writeln(' PENGISIAN STATUS SELESAI');

textcolor(12);

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

textcolor(10);

writeln(' INILAH DATA ANDA ');

textcolor(12);

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

textcolor(10);

writeln('@ anda bernama ',nama,'.');

writeln('@ tempat, tgl lahir anda ', tempattgllahir,'.');

writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');

writeln('@ anda tinggal di ' ,alamat,'.');

writeln('@ agama anda ' ,agama,'.');

writeln('@ no hp anda ',nohp,'.');

writeln('@ e-mail anda ',email,'.');

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.

 

//---- output nya