in turbo pascal

[arnoldo]

Hallo,

ich denke es liegt am folgenden:

was passiert wenn beispielsweise s1=49 sekunden und warte=12
ist? Dann wäre s1+warte > 60s und somit eine Endlosschleife!
Da s2 nie > 60 sein kann!

Das müsste klappen:

Code:

s3:=s1+warte;
if s3>59 then dec(s3,60);
repeat 
 gettime(h,m,s2,hun2); 
until s3=s2;