Archief - dev-pascal probleem

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

coucke

Legacy Member
hallo in school hebben we leren werken met dev-pascal als ik deze nu thuis heb
en een taak moet maken ik maak de taak maar als ik ze wil testen druk ik op compile ik krijg 0 errors maar zodra ik op execute druk gebeurt er niets :s

ik kan dus het resultaat niet bekijken maar ik moet tegen morgen ochtend 3 oefeningen maken maar dit is dut zeer lastig als je het resultaat niet eens kan bekijken kan iemand mij helpen?

Scrimrage

Legacy Member
1. ga uithuilen bij de mama

2. maak vriendjes in school !

Zapp

Legacy Member
't Is misschien maar een gedacht eh, maar probeer eens te debuggen ofzo?
En indien debuggen niet gaat (met breakpoints enal), zet berichtjes tussen de regels die ge dan op 't scherm ziet.

Allez ja.

Parnakra

Legacy Member
Readln voor je end. waarschijnlijk.

Leuke interpunctie, trouwens. :)

coucke

Legacy Member
het is deels opgelost als ik het open via mijn bureau blad werkt het wel :s

dit is de opdracht :
12. Laat de computer een worp met twee dobbelstenen simuleren. Toon het resultaat op het scherm. Vraag daarna aan de gebruiker als hij nog een worp wil simuleren. Enkel als de gebruiker ‘nee’ ingeeft wordt het programma afgesloten. Anders wordt er nog een worp gesimuleerd.

en dit is mijn oplossing volgens mij is dit correct ^^

Program oef12;

var
dice : integer ;
antwoord : string ;

const
antwoord2 : string = 'nee';

procedure verander;
begin
randomize ;
dice := 1+ random (5)
end;

procedure toongetal;
begin
writeln('u gooide ',dice);
readln();
end;

procedure nogeens;
begin
writeln(' wilt u nog eens gooien?');
readln(antwoord);
end;

Procedure antwoord1;
begin
if antwoord = antwoord2 then
writeln('bedankt voor het spelen')
else
toongetal();
end;


begin
verander();
toongetal();
verander();
nogeens();
antwoord1();
readln();
end.

dJeez

Legacy Member
Neen, jouw code is niet correct. Enkel als er "nee" wordt ingegeven moet er gestopt worden, dus zolang de gebruiker iets anders als "nee" ingeeft (hint : vertaal voorgaande naar het Engels) moet je een nieuwe worp (zijnde 2 dobbelstenen gooien!) doen. De worp met 2 dobbelstenen moet wellicht ook anders, maar soit, dat is uw probleem.

Maar nu ik het zo nog eens nalees is die opgave wel voor interpretatie vatbaar dus best eerst ff afchecken of je maar 1x moet vragen of de gebruiker wenst te herhalen of niet en of dat dan met maar 1 dobbelsteen is of niet. Wie bedenkt die opgaves toch, jezes, of is het de bedoeling dat je eerst een analyse maakt ook? Want dan sluit het wel aan bij de realiteit (wat een klant zegt te willen en wat hij effectief wil is doorgaans serieus verschillend) :p.

En wat je originele probleem betreft : er bestaat ook zoiets als een Command Prompt, leer die misschien eens te gebruiken (eigenlijk zouden ze snotneuzen beter eerst eens een weekske met DOS leren werken alvorens ze te laten gamen op een PC :p).
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan