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.
Chrisiiiii_cs
Borlander
