Program Penghitung Jumlah Tahun Kabisat di suatu Data

program berikut ini berguna untuk mengetahui banyak tahun kabisat (tahun yang habis dibagi 4) dalam suatu data entri yang akan dimasukkan.

Desain Form

Contoh Running Program

kodenya dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
nilai1:array[1..5] of string;
kabisat,totaleven:integer;
rata:real;
s:string;
begin
s:= inputbox('input data','masukkan jumlah data :','0');
kabisat:=0;
for i:=1 to strtoint(s) do
begin
nilai1[i]:=inputbox('data ke:'+inttostr(i),'TAHUN =','');
lbdata.Items.add(nilai1[i]);
edit2.Text:=inttostr(lbdata.Items.Count);
if((strtoint(nilai1[i]) mod 4)=0) then
begin
kabisat:=kabisat+1;
end;
end;
edit1.text:=inttostr(kabisat);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
lbdata.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end;

masih kurang jelas? download deh sourcenya disini

Unknown

Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt.