Umgang mit Div und Mod < Pascal < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
Ein liebes Hallo :O)
Ich würde gerne in TPW ein Programm schreiben, welches den Wochentag, Monat und Jahr einließt und dem Benutzer dann ausgibt, welchen Tag im Jahr sein Datum entspricht.
Beispiel:
Eingabe.... 20.06.2000
Ihre Eingabe entspricht Tag xy......
Nun zu meinem Problem.....
Wie ihr sehen könnt, finde ich mein Programm ziemlich umständlich geschrieben und ich würde diese Rechenvorschrift gerne irgendwie vereinfachen, ich weiß aber nicht, ob dass hier überhaubt möglich ist. Desweiteren gibt es ja auch Schaltjahre, die berücksichtigt werden sollen und ich nicht weiß, wie ich das Verwirklichen soll. Mir schwebt da was mit div oder mod vor, aber ich bekomme es nicht hin.
Hier mein Programm:
Program Kalender;
uses wincrt;
Var Tag,Monat,Jahr,Ausgabe:integer;
antwort:char;
BEGIN
WriteLn(' Berechnungsprogramm für den Wochentag ');
WriteLn;
antwort:='j';
while(antwort='j')do
Begin{While do}
Write('Bitte geben Sie den gewünschten Tag ein: ');
ReadLn(Tag);
Write('Bitte geben Sie den gewünschten Monat ein: ');
ReadLn(Monat);
Write('Bitte geben Sie das gewünschte Jahr ein: ');
ReadLn(Jahr);
Case Monat of
1:Begin
Ausgabe:=Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
2:Begin
Ausgabe:=31+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
3:Begin
Ausgabe:=59+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
4:Begin
Ausgabe:=90+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
5:Begin
Ausgabe:=120+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
6:Begin
Ausgabe:=151+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
7:Begin
Ausgabe:=181+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
8:Begin
Ausgabe:=212+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
9:Begin
Ausgabe:=242+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
10:Begin
Ausgabe:=273+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
11:Begin
Ausgabe:=303+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
12:Begin
Ausgabe:=334+Tag;
WriteLn('Ihr Datum entspricht dem ',Ausgabe,'´sten Tag im Jahr');
end;
end;{of case}
WriteLn;
WriteLn('Nochmal? Wählen "j" für ja und "n" für nein.');
ReadLn(Antwort);
ClrScr;
end;{of while}
End.
Vielen Dank für euer Interesse :)
Tobias
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 12:52 Sa 23.09.2006 | | Autor: | grek40 |
Ich kenn mich nicht so genau mit der Syntax von Pascal aus, aber hier ein Tipp zur Schaltjahrproblematik.
Zu meiner Schreibweise (wie C++):
Modulo: %
And: &&
Or: ||
Gleich: ==
Ungleich: !=
Soweit ich weiß gilt, dass jedes 4. Jahr Schaltjahr ist. Ausnahmen: jedes volle Jahrhundert ist kein Schaltjahr, jedes Jahrtausend ist wieder Schaltjahr (weitere Regeln kenn ich nicht)
also:
if ( ( Jahr % 4 == 0 ) && ( Jahr % 100 != 0 ) || ( Jahr % 1000 == 0 ) )
{ Jahr ist ein Schaltjahr }
else
{ Jahr ist kein Schaltjahr }
|
|
|
| |
|
Hallo Tobias!
Der Quellcode sieht ok aus.
Ein ähnliches Programm habe ich auch mal geschrieben allerdings wollte ich damals noch ermitteln in welcher Woche des Jahres ein Tag liegt.
Das Problem mit der Ermittlung eines Schaltjahres hatte ich damals mittels eines Bezugsjahres gelöst. Das Jahr 2000 beispielsweise ist ein Schaltjahr gewesen. Wenn du nun ein Jahr eingibst dessen Differenz zum Jahr 2000 eine ganzzahlig durch 4 teilbare Zahl ohne Rest ergibt, dann ist dieses eingegebene Jahr ein Schaltjahr und der Monat Febuar müsste mit 29 Tagen bedacht werden.
Im Prgrammcode könntest du dies wie folgt umsetzen:
Du prüfst erst, ob ein Jahr ein Schaltjahr ist mittels Anweisung:
If ((Jahr-2000) Mod 4=0) Then Schaltjahr:=1 Else Schaltjahr:=0
Die Varianle 'Schaltjahr' müsstest du natürlich vorher erst deklarieren. Demnach würde sich die Syntax für deine Ausgabe für jeden Monat ein wenig verändern:
Ausgabe:=59+Tag+Schaltjahr;
Dies würde für März und alle weiteren Monate gelten.
Auf jeden Fall würde ich noch abprüfen ob der User nicht ein irrsinniges Datum eingegeben hatte (z.B. 47.März o.ä.). Das ist wichtig, da man in Schaltjahren ja einen 29.Februar hat, in allen anderen Jahren allerdings nicht.
Ich denke mal du kriegst das jetzt hin. 
Gruß,
Tommy
|
|
|
| |
|
Hallo :O)
Danke für eure Anregungen. Ich habe es mit "If Jahr mod 4=0" gelöst....
gruß tobias
|
|
|
|
