Programma werkt niet (TMT pascal)

[Verwijderd]

Hey,

kan er iemand mij vertellen wat er mis is met dit programma ?


PROGRAM Chronometer

TYPE geheelGetalType = INTEGER ;

PROCEDURE chronometer

VAR tijd : geheelGetalType ;
tellerMin : geheelGetalType ;
tellerSec : geheelGetalType ;

BEGIN
Write ('Geef de tijdsdur');
ReadLn (tijd) ;
tellerMin := 0 ;
tellerSec := 0 ;

WHILE tellerMin < tijd DO BEGIN
IF tellerSec < 59 THEN BEGIN
tellerSec := tellerSec +1 ;
WriteLn (tellerMin,' : ',tellerSec) ;
END ELSE BEGIN
tellerSec := 0 ;
tellerMin := tellerMin +1 ;
WriteLn (tellerMin,' : ',tellerSec) ;
END;
END;
END;

Het is gemaakt met TMT Pascal

Thx

PS: ik ben al lang aan het zoeken wat er juist fout is.

Iemand heeft gezegd dat het allemaal juist is, maar het programma nergens wordt opgeroepen

Hoe doe ik dat dan ?

[LuNaTiC]

Controleer eerst even je mail.... bovendien is GoT niet om je kant en klare code op te lossen en te debuggen...