Melayani Dengan Riang Gembira

dan DOA

Cari di Blog Ini

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




Reactions:

0 Komentar di Sini:

Posting Komentar

Nuhun sudah komentar