Cameh Site: Tugas Mandiri 2 Pemrograman Dasar Kelas TI (E)

Tugas Mandiri 2 Pemrograman Dasar Kelas TI (E)

Posted in Label: Tugas Kuliah 07.54

Source Code Program :

type penduduk = record

      NIK   : integer;
      Nama : string;
      Tmpt : string;
      jk    : string;
      status: boolean;
           end;
var
Form1: TForm1;
dtpend : array [1..10] of penduduk;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, n : integer;
begin
i:=strtoint(edit1.text);
for n:=1 to i do
    begin
      dtpend[n].NIK:=StrToInt(InputBox('Data Penduduk','Masukan NIK ke-'+IntToStr(n)+':',''));
      dtpend[n].nama:=InputBox('Data Penduduk','Masukan Nama :','');
      dtpend[n].tmpt:=InputBox('Data Penduduk','Masukan Tempat Lahir :','');
      dtpend[n].jk:=inputBox('Data Penduduk','Masukan Jenis Kelamin :','');
      dtpend[n].status:=StrToBool(InputBox('Data','Masukan Status perkawinan :',''));
    end;
for n:=1 to i do
begin
    memo1.Lines.Add('------- Data Penduduk ke-'+IntToStr(n)+' -------');
    memo1.Lines.Add('NIK '+#9#9+': '+IntToStr(dtpend[n].NIK));
    memo1.Lines.Add('Nama '+#9#9+': '+dtpend[n].Nama);
    memo1.Lines.Add('Tempat Lahir '+#9+': '+dtpend[n].Tmpt);
    memo1.Lines.Add('Jenis Kelamin '+#9+': '+dtpend[n].jk);
    if (dtpend[n].status=true) then
      memo1.Lines.Add('Status '+#9#9+': '+'Menikah')
    else
      memo1.Lines.Add('Status '+#9#9+': '+'Belum Menikah');
      memo1.Lines.Add('');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Application.MessageBox('Do you want to close this program?',
'==> Warning <==',MB_OKCANCEL+MB_ICONWARNING)=mrok then
close;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;
end.

Hasil Running Program :