Programmieren - alles kontrollieren 4.939 Themen, 20.672 Beiträge

Turbo Pascal

Chrisiiiii_cs / 8 Antworten / Flachansicht Nickles

Hi Leutz!
Ich hab mal so nen Programm mit Turbo Pascal (ich weiß ist nicht grad das bester aber egal.. wir brauchen es in der Schule) geschrieben! In der Schule konnte ich das Programm ausführen, da hatten wir irgend so ein altes Pascal! Wenn ich es in Winpascal ausführe kommt Runtime Error!

Compellieren kann ich es aber! Wo liegt der Fehler?

program Z;
VAR min,sec,count,h,tag,jahr:longint;
begin
count:=0;
jahr:=0;
h:=0;
tag:=0;
writeln (\'Geben sie die Sekunden ein\');
readln (sec);
while (sec>59) do
begin
count:=count+1;
sec:=sec-60;
end;
while (count>59) do
begin
count:=count-60;
h:=h+1;
end;
while (h>23) do
begin
h:=h-24;
tag:=tag+1;
end;
while (tag>364) do
begin
tag:=tag-365;
jahr:=jahr+1;
end;
write (jahr);
IF jahr>1
then
begin
write (\'Jahre \');
END
ELSE
begin
write (\'Jahr \');
end;
write (tag);
IF tag>1
then
begin
write (\'tage \');
END
ELSE
begin
write (\'tag \');
end;
write (h);
write (\'stunden \');
write (count);
write (\'min \');
write (sec);
writeln (\'sec\');
readln;
end.

bei Antwort benachrichtigen
Borlander Chrisiiiii_cs „Weil wir es nur soweit können! Und ich hab halt mit meinen Mitteln versucht so...“
Optionen
Weil wir es nur soweit können! Und ich hab halt mit meinen Mitteln versucht so ein Programm zu schreiben!
Dann muss man das wohl Eurem Lehrer anlasten. Bei der Problemstellung hätte er im vorherigen Verlauf zumindest mal mod und div erwähnen, oder eine sinnvolle Aufgabe zum Thema Schleifen stellen sollen...
bei Antwort benachrichtigen