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

[NMe]

Het ziet er heel normaal uit, wat gaat er fout?

Dit hoort in Programming & Webscripting trouwens.

Edit: je fout is dat je een procedure maakt maar die roep je nergens aan.....

[ Voor 27% gewijzigd door NMe op 17-06-2004 11:51 ]

[elevator]

orbje,

Dit is niet echt de manier waarop we graag zien dat je een topic start op GoT Een aantal zaken ontbreken, namelijk:
- Een goede topic titel
- Eigen initiatief
- etc. etc.

Je bent er al te vaak op gewezen - controleer even je mail voor meer uitleg

[ Voor 9% gewijzigd door elevator op 17-06-2004 11:55 ]