Archief - zelf gemaakt programma werkt niet

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

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

Hoe doe ik dat dan ?

Als da BP is moede die procedure oproepen in een main() functie, kdacht da da in Borland (turbo) Pascal gewoon onderaan u programma

BEGIN
oproepen van procedure en functies
END;

plaatsen was. BP is lang geleden zelle, in c-taal is da toch zo dage in ue main() de functies moet plaatsen die ge wilt gebruiken in u programma.

Irtimid2001 zei:

Als da BP is moede die procedure oproepen in een main() functie, kdacht da da in Borland (turbo) Pascal gewoon onderaan u programma

BEGIN
oproepen van procedure en functies
END;

plaatsen was. BP is lang geleden zelle, in c-taal is da toch zo dage in ue main() de functies moet plaatsen die ge wilt gebruiken in u programma.

Klik om te vergroten...

Ik dacht ook dat je je procedure nog eens moet vermelden in je hoofdprogramma. Das al heel lang geleden dat ik daar nog eens mee gewerkt heb, maar het ziet er voor de rest goed uit.

In Turbo Pascal zou je helemaal onderaan uw source code 't volgende moeten toevoegen :

BTW Tijdsduur is met 2 u-tjes hé .

dJeez zei:

In Turbo Pascal zou je helemaal onderaan uw source code 't volgende moeten toevoegen :

Code:

begin
  Chronometer;
end.

BTW Tijdsduur is met 2 u-tjes hé .

Klik om te vergroten...

Mijn programma is nu:

PROGRAM Chronometer

TYPE geheelGetalType = INTEGER ;

PROCEDURE Chronometer

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

BEGIN
Write ('Geef de tijdsduur');
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;

Begin
Chronometer;
End

Maar ik krijg altijd de error: Het systeem kan het opgegeven bestand niet vinden. ErrorCode=2

-(orbje)- zei:

Mijn programma is nu:

PROGRAM Chronometer

TYPE geheelGetalType = INTEGER ;

PROCEDURE Chronometer

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

BEGIN
Write ('Geef de tijdsduur');
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;

Begin
Chronometer;
End

Maar ik krijg altijd de error: Het systeem kan het opgegeven bestand niet vinden. ErrorCode=2

Klik om te vergroten...

Als ik mij niet vergis moet er een "." na die laatste end.

Je bent puntkomma's vergeten bij 't definiëren van je programma, van je procedure en de punt op 't einde.

Dus :

PROGRAM Chronometer;
...
PROCEDURE Chronometer;
...

begin
Chronometer;
end.

Klik om te vergroten...