Uses wincrt;
type tanggal = record dd : integer;
mm : integer;
yy : integer; end;
var T : tanggal;
Begin
T.mm: =2;
read (T.dd,T.yy);
if T.dd<28 than
begin
T.dd:=dd+1; end
else
begin
If T.dd+28 than
begin
if T.yy mod 4 than
begin
T.dd:=T.dd+1; end
else
begin
T.dd:=1;
T.mm:=T.mm+1 end
end
else
begin
If T.dd=29 than begin
T.dd:=1;
T.mm:=T.mm+1;
end;
end;
end;
Write ('tanggal sekarang: ',T.dd,',T.mm,'-',T.yy);
end.
------------------------------------------------------
---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox
Tidak ada komentar:
Posting Komentar