Nochmal einen Abschnitt überarbeitet:
Delphi-Quellcode:
if (Jahr >= 1) and (Jahr <= 3000) then begin
case Monat of
2: begin
if (Jahr mod 4 = 0) and (Jahr mod 100 <> 0) or (Jahr mod 400 = 0) and (Tag = 29) then begin
writeln(Tag,' ist zulässig');
end;
// Hier fehlt wohl eine Else.
// Was soll denn bitteschön in einem Nichtschaltjahr geschehen?
// Und was ist mit den übrigen Tagen das Februar?
end;
1,3,5,7,8,10,12: begin
if (Tag <= 31) then begin
writeln('Der ',Tag,'. ist gültig.');
end;
// Else mit Hinweis auf ungültigen Tag?
end;
4,6,9,11: begin
if (Tag <= 30) then begin
writeln('Der ',Tag,'. ist gültig.');
end;
// Else mit Hinweis auf ungültigen Tag?
end;
else
writeln('ungültig')
end;
end;
@DieDolly
Der Delphi-Style-Guide ist eine herstellerinterne Richtlinie und nicht allgemeinverbindlich.
Man kann sich dran halten, muss man aber nicht.
Abgesehen davon: Wenn man sich dran hällt, heißt das noch lange nicht, dass es hier im Forum dann auch so angezeigt wird. Der Parser für die Syntaxhervorhebung innerhalb der Delphi-Tags hat da durchaus seine eigenen Ansichten. (Sieht man hier z. B. sehr gut bei den Case-Anweisungen. Im Editor sehen die vollkommen anders aus.
[edit]
Abgesehen davon, dass wohl auch Browser und dort gewählte Schriftart und -größe die Optik und Style-Guide-Konformität massiv zu beeinflussen scheinen (sowohl positiv als auch negativ, ja nach dem, was da so genutzt wird.)
[/edit])
PS: Poste doch bitte eine korrekte Lösung, die allen Deinen Anforderungen entspricht.
Dann können wir das gerne als ultimativ richtig interpretieren
