weet iemand waar mijn fout zit (het programma dient eigenlijk voor niks maar)
PROGRAM papier.pas;
USES WinCrt;
VAR nieuwepapierdikte, papierdikte ,aantalkeergeplooid :INTEGER;
PROCEDURE Bereken;
BEGIN
papierdikte:=0.1;
aantalkeergeplooid:=0;
REPEAT
aantalkeergeplooid:=aantalkeergeplooid+1;
nieuwepapierdikte:=nieuwepapierdikte+papierdikte;
UNTIL
papierdikte=1;
WriteLn('het papier kan'aantalkeergeplooid, 0:0, 'keer geplooid worden');
ReadLn;
End;
BEGIN
Bereken;
Laatste berichten
-
10:25
Herleiden afmetingen vanaf een foto 1
-
07:53
Rotatie van het heelal 25
-
00:49
Ervaringen met "herontdekkingen" 11
-
21:28
hall effect in vloeistof gebruiken als stromingssensor 6
-
17:59
Gezocht: de/een naam voor een getallenrij met een cauchyrij als partieelsommenrij
-
17:28
Casus uit de praktijk: positief test THC 18
-
17 apr
speciale rel. theorie 4
-
17 apr
Vreemde stank in huis 11
-
17 apr
3 vragen over mijn rooskleurige r.berekening H2netGekoppeldeHBrflowbatterij.
-
17 apr
Interpretatie reactie-energie 3
-
17 apr
Logistic equation (Pierre Verhulst,Belgian Mathematician) 5
-
16 apr
vB 9
-
15 apr
Kunnen quantum Zonnecellen 190% quantum efficiënt zijn 1
-
15 apr
Python: sockets sluiten 4
-
14 apr
Een eenvoudige logische redenering waarom tijd niet kan bestaan 'daarbuiten' 6
-
14 apr
Hoe kun je op quantumwijze getallen vinden in een rij die kleiner zijn dan getal k 3
-
13 apr
Documentenverdwijnen uit onedrive 1
-
12 apr
Behoud van impulsmoment en energie 5
-
12 apr
INLOG STORING / TIPS 4
-
09 apr
[natuurkunde] systeemgrafen 1
Nieuwsberichten
-
04 mar
Een nieuw soort magnetisme: altermagnetisme
-
31 okt
AI kan via stem diabetes vaststellen 11
-
21 okt
Einstein krijgt wéér gelijk 45
-
07 feb
witter dan wit 20
-
19 jun
irrigatie en de aardas
[informatica] pascal bug-fixing
Moderators: ArcherBarry, Fuzzwood
-
- Berichten: 176
Re: [informatica] pascal bug-fixing
End;
BEGIN
Bereken;
nog een keer End; misschien?
ben niet echt goed met pascal dus als ik iets doms zeg gewoon negeren
met vriendelijke groet
gijs brouwers
Re: [informatica] pascal bug-fixing
dankuwel ik had het niet gezien (maar het is wel END.)Balthazar schreef:End;
BEGIN
Bereken;
nog een keer End; misschien?
ben niet echt goed met pascal dus als ik iets doms zeg gewoon negeren
met vriendelijke groet
gijs brouwers
Re: [informatica] pascal bug-fixing
Bedoel je met 'plooien' vouwen, in dat geval klopt nieuwepapierdikte niet.
Immers: als je een papier 2 maal vouwt wordt de dikte 4 maal de papierdikte!
Je vertelt niet of je een output krijgt en ook niet of er een foutmelding is.
Want natuurlijk eindigt je body ook met END;
Immers: als je een papier 2 maal vouwt wordt de dikte 4 maal de papierdikte!
Je vertelt niet of je een output krijgt en ook niet of er een foutmelding is.
Want natuurlijk eindigt je body ook met END;
-
- Berichten: 5.679
Re: [informatica] pascal bug-fixing
Is dat deze?Laura ??? schreef:Maar er zit nog een fout in "line 15"
15de liijn dus
WriteLn('het papier kan'aantalkeergeplooid, 0:0, 'keer geplooid worden');
Mijn pascal is een beetje weggezakt, maar moet er niet een komma voor aantalkeergeplooid?
In theory, there's no difference between theory and practice. In practice, there is.
Re: [informatica] pascal bug-fixing
ah dus ik moet *2 doenSafe schreef:Bedoel je met 'plooien' vouwen, in dat geval klopt nieuwepapierdikte niet.
Immers: als je een papier 2 maal vouwt wordt de dikte 4 maal de papierdikte!
Je vertelt niet of je een output krijgt en ook niet of er een foutmelding is.
Want natuurlijk eindigt je body ook met END;
-
- Berichten: 61
Re: [informatica] pascal bug-fixing
Moet zijn nieuwepapierdikte. Die hoog je op en niet papierdikte. Bovendien is het misschien handig om nieuwepapierdikte op 0.0 te initialiseren.Laura ??? schreef: UNTIL
papierdikte=1;
