Semot Geni

Program ini dibuat untuk memenuhi tugas Pemrograman Dasar saya. disini adalah program yang menggunakan Record dalam Array untuk pengisian suatu data untuk KTP yang datanya itu disimpan dalam Array dan Record.

Saya disini menggunakan bahasa pemrograman Delphi Pascal, yaitu delphi yang menggunakan pembuatan desain tampilannya dengan Pascal.

Dan cara agar kita dapat menggunakan Delphi Pascal dalah kita harus mempunyai Bahasa pemrograman Delphi wajib itu hukumnya [rodok umat. . ckck] .

Cara untuk kita agar Delphi bisa digunakan untuk penampilan dan penulisan sama persis dengan pascal adalah kita jalankan Aplikasi Delphi tersebut dan pilih Tab File ==>>New ==>>Other ==>>Chonsole Application.
maka taraaaa. . . . bisalh digunakan untuk pemrograman Delphi Pascal. . hahahaha. . .
[wah kakean rono rene aku. . .].
Dan inilah Syntax untuk Program yang saya Buat ini:

-----------------------------------------------------------------------------------------------
program Project2;

{$APPTYPE CONSOLE}
uses
SysUtils;

label lagi1,ulang,ulang1;
type
tpenduduk=record
nik:string[16];
nama:string[30];
ttlh:string[30];
jk:string[10];
alamat:string[50];
des:string[15];
kec:string[15];
kab:string[15];
agama:string[10];
pekerjaan:string[15];
tgl_berlaku:string[4];
end;
var data_penduduk:array[1..10] of tpenduduk;
i,n:byte;
lagi:char;
a:boolean;
begin
ulang:
writeln('====================================================');
writeln('# NAMA : ARIS EKO SAPUTRO. #');
writeln('# NIM : 3105111137. #');
writeln('# KELAS : TEKNIK INFORMATIKA. B. #');
writeln('====================================================');
writeln;
n:=0;
repeat
begin
Inc(n);
writeln('=====================================================');
write('Masukkan NIK : '); readln(data_penduduk[n].nik);
write('Masukkan Nama : '); readln(data_penduduk[n].nama);
write('Masukkan Tempat/Tgl lahir : '); readln(data_penduduk[n].ttlh);
write('Masukkan Jenis Kelamin : '); readln(data_penduduk[n].jk);
write('Masukkan Alamat : '); readln(data_penduduk[n].alamat);
write(' Desa : '); readln(data_penduduk[n].des);
write(' Kecamatan : '); readln(data_penduduk[n].kec);
write(' Kabupaten : '); readln(data_penduduk[n].kab);
write('Masukkan Agama : '); readln(data_penduduk[n].agama);
write('Masukkan Pekerjaan : '); readln(data_penduduk[n].pekerjaan);
write('Masukkan Tanggal Berlaku : '); readln(data_penduduk[n].tgl_berlaku);
writeln('=====================================================');
if n=10 then
begin
writeln;
writeln('MAAF DATA SUDAH ! ! ! ! . . .');
readln;
a:=false;
end
else
begin
lagi1:
write('Apakah Akan Lagi [Y/N] ? : '); readln(lagi);
if (lagi='y')or (lagi='Y') then a:=true else if (lagi='n')or (lagi='N') then
a:=false else goto lagi1;
end;
end; until a=false;
writeln('=======================================================================');
writeln(' NO.| NIK | NAMA | TEMPAT/TGL LH |');
writeln('=======================================================================');

for i:=1 to n do
writeln(i:2,'. | ',data_penduduk[i].nik:17,' | ',data_penduduk[i].nama:20,' | ',
data_penduduk[i].ttlh:20,' | ');
writeln('=======================================================================');
writeln;
writeln('TERUSANNYA. . .');
writeln('=======================================================================');
writeln(' NO.I JENIS KELAMIN | ALAMAT | DESA |');
writeln('=======================================================================');
for i:=1 to n do
writeln(i:2,'. | ',data_penduduk[i].jk:13,' | ',
data_penduduk[i].alamat:29,' | ',data_penduduk[i].des:15,' | ');
writeln('=======================================================================');
writeln;
writeln('TERUSANNYA. . .');
writeln('===============================================================================');
writeln(' NO.| KECAMATAN | KABUPATEN | AGAMA | PEKERJAAN | BERLAKU |');
writeln('===============================================================================');
for i:=1 to n do
writeln(i:2,'. | ',
data_penduduk[i].kec:15,' | ',data_penduduk[i].kab:15,' | ',
data_penduduk[i].agama:10,' | ',data_penduduk[i].pekerjaan:12,' | ',
data_penduduk[i].tgl_berlaku:8,'|');
writeln('===============================================================================');
writeln; ulang1:
write('APAKAH AKAN MENGULANG [Y/N] ? : ');readln(lagi);
if (lagi='y') or (lagi='Y') then goto ulang else if (lagi='n')or (lagi='N') then
exit else goto ulang1;
readln;
Exit;
end.

----------------------------------------------------------------------------------------------

dan disini saya akan memberikan File exenya bisa di Download disini: [Download Here].

aku ucapkan sekian dan terima kasih akan perhatiannya agar bisa dipelajari dan diperhatikan akan ilmi ini [ono ono ae ah. . .].

Oh kosek kosek. . . program ini belum saya lindungi hak ciptanya. jadi Mas Mas, Mbak Mbak boleh kok menyempurnakan program ini. . .
sekian dan terima kasih

By: Aris Eko Saputro.