Hallo an alle! Bin neu hier und weiß nicht recht wo ich hin schreiben sollte.
Wir sollen ein Programm in Delphi programmieren, dass wenn man ein Jahr eingibt es uns sagt ob es ein Schaltjahr ist... Weiß nicht was ich machen soll
HeLP!!

Moderiert von Gausi: Titel geändert - hier braucht jeder Hilfe.
Moderiert von Gausi: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 22.02.2006 um 09:24

Ein Schlatjahr ist durch 4 teilbrar aber nicht durch 100 wenn es nicht durch 1000 teilbar ist also

Mal abgesehen davon, dass das falsch ist, gibt es in Delphi die Funktion IsLeapYear. Einfach mal in der Delphi-Hilfe nachschauen.
@mkinzler:
Schaltjahr:
Wenn es durch vier teilbar ist, dann ist es eins.
Ist es durch 100 teilbar, dann doch nicht.
Falls es dann aber durch 400 teilbar, dann aber doch.

Da ich auch Anfänger bei Delphi bin könntet ihr mir bitte den Quelltext geben?

nein können wir nicht... //edit: jasocul (sorry! hatte den thread nur schnell überflogen und gedacht es wäre christian gewesen... war keine absicht) hat dir doch gesagt wie man es berechnet und dass es sogar eine funktion dafür gibt. mehr können wir nun wirklich nicht tun.

Christian??? Ich dachte ich heiße Peter.

Ich finde man sollte ein Forum nicht nutzen um Hausaufgaben in Auftrag zu geben. Wenn du Hilfe brauchst 218987911

@Florian:
Im Prinzip hast du Recht. Daher habe ich auch nur die Funktion aus Delphi genannt. Die Aufgabe soll sicher nicht mit dieser Funktion gelöst werden. Könnte aber zumindest als Kontrolle dienen, ob eine selbstgeschriebene Funktion korrekt ist.
Was geprüft werden muss, wurde weiter oben ja auch genannt. Und dafür gibt es keinen Source.

Im Gegensatz zur Aussage von oben:

Ein Jahr ist ein Schaltjahr, wenn die Jahreszahl durch 4 teilbar ist.
Wenn die Jahreszahl durch 100 teilbar ist, ist kein Schaltjahr, es sei denn, die Jahreszahl ist durch 400 (nicht 1000) teilbar.

Das Jahr 2000 war also ein Schaltjahr, weil 2000 durch 400 teilbar ist, nicht weil 2000 durch 100 teilbar ist

Habe ich was anderes gesagt?

Oh. Ich meinte Mkinzler, aber das hattest du ja schon richtig gestellt. Ich glaube, ich leg mich noch was hin...

man kann ja auch die tage weiterzählen... wenn man weiss, wie lang ein jahr ist...

nach dem allgemein anerkannten kalender der westlichen hemisphäre wären dies



wer es nicht glaubt, kanns ja nachrechnen

mkinzler hat folgendes geschrieben:

Ein Schlatjahr ist durch 4 teilbrar aber nicht durch 100 wenn es nicht durch 1000 teilbar ist also markieren Delphi-Quelltext     1: if (jahr mod 4 = 0) and ((jahr mod 100 <> 0) or ( jahr mod 1000 = 0) then ... //Schaltjahr

Das or ist nicht notwendig, eine Zahl, die durch 1000 teilbar ist, ist auch durch 4 teilbar.

AXMD

Von Papst Gregor XIII. wurde daher 1582 folgende Regelung eingeführt (Gregorianischer Kalender):

Glatt durch 4 teilbare Jahre sind Schaltjahre.
Glatt durch 100 teilbare Jahre sind jedoch keine Schaltjahre.
Glatt durch 400 teilbare Jahre sind aber wieder Schaltjahre.
So sind zum Beispiel die Jahre 1800, 1900 und 2100 keine Schaltjahre, die Jahre 2000 und 2400 hingegen schon. Damit dauert das Gregorianische Jahr 365,2425 Tage, und ist genauer als das Julianische Jahr.

www.wissenglobal.de/Schaltjahr.html

jetzt wird der ärmste total verwwwwiiiiirrrrrttttt

@AXMD:
Deswegen wird das eine ja auf ungleich und das andere auf gleich geprüft. Mal agesehen davon, dass die 1000 sowieso die falsche Zahl ist.