mógłby ktoś wrzucić zaaktualizowane i działające te programy?
albo chociaż listę - jakie programy robiliśmy i parę słów o każdym z nich (co miał robić itd.)
procedure TForm1.Button1Click(Sender: TObject);
var
dzien, miesiac, rok : integer;
przes : boolean;
begin
przes := false;
dzien := strtoint(Edit1.text);
miesiac := strtoint(Edit2.text);
rok := strtoint(Edit3.text);
if not((rok > 0) AND (rok < 10000)) then
begin
Memo1.lines.add('Podany rok jest zly');
end
else
if rok mod 400 = 0 then przes := true;
Begin
if not((miesiac > 0) AND (miesiac <13)) then
Memo1.lines.add('Podany miesiac jest zly')
else
case miesiac of
2:begin
if(przes = false) then
begin
if(dzien >0) AND (dzien < 30) then Memo1.lines.add('Data OK')
else
Memo1.lines.add('Dzien jest zly - luty ma od 1 do 29 - rok normalny');
end
else
begin
if(dzien >0) AND (dzien < 31) then Memo1.lines.add('Data OK')
else
Memo1.lines.add('Dzien jest zly - luty ma od 1 do 30 - rok przestpeny');
end;
end;
4,6,9,11:begin
if(dzien >0) AND (dzien < 31) then Memo1.lines.add('Data OK')
else
Memo1.lines.add('Dzien jest zly - 4,6,9,11 ma od 1 do 30');
end;
1,3,5,7,8,10,12:begin
if(dzien >0) AND (dzien < 32) then Memo1.lines.add('Data OK')
else
Memo1.lines.add('Dzien jest zly - 1,3,5,7,8,10,12 ma od 1 do 31');
end;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.lines.clear;
end;
Nie mo¿esz pisaæ nowych tematów Nie mo¿esz odpowiadaæ w tematach Nie mo¿esz zmieniaæ swoich postów Nie mo¿esz usuwaæ swoich postów Nie mo¿esz g³osowaæ w ankietach Nie mo¿esz za³±czaæ plików na tym forum Mo¿esz ¶ci±gaæ za³±czniki na tym forum
