pascal question...help

[Verwijderd]

hallo

ik moet voor school een opdracht maken maar ik kom er niet echt uit.....
een soort wachtwoord controle, het programma moet pas verder gaan als het wachtwoord goed ingevuld is...
het goede wachtwoord moet zijn 'wachtwoord'..

ik zat te denken aan een repeat vorm in het prog. met een cijfer lukt het.. met 1 letter ook maar met een woord lukt het nog niet... kan iemand mij helpen hoe dit op te lossen

deel prog denk ik, basis

begin

write('voer het wachtwoord in')
readln(w)

[El Jefe]

Dubbel topicje.

[mulder]

repeat
// begin/end bij repeat??
write('voer het wachtwoord in')
readln(w)
until w = 'wachtwoord'

Preciese syntax weet ik niet meer.....

[Y0ur1]

waarom niet

program blabla;
var wachtwoord:string;
begin
writeln ('Geef je wachtwoord in');
readln (wachtwoord);
en dan gewoon een lus maken met if, then en else in een lus, kan toch neit zo moeilijk zijn?
maaruh veracht niet dat wij voor jouw dat ff schrijven, we helpen je alleen even op weg...

[Scorpion]

hmmz gewoon een loop maken, elke keer een character inlezen (geen line) en dan ipv de character voor elke ingevoerde teken een "*" of "?" oid. laten zien. het echte teken opslaan in een string.
als er een enter (13 geloof ik) is ingevoerd, dan uit de loop springen en de string met de wachtwoordstring vergelijken.
bij invoer van een 8 (backspace) een teken verwijderen uit de string, en een positie terug (ook sterretje verwijderen oid).

simpelzat toch? weet de pascal code er ff niet bij, is al tijden geleden dat ik pascal heb aangeraakt.

[markvt]

procedure_2;
begin;
writeln("foute wachtwoord");
end.

procedure_1;
begin;
writeln("goede wachtwoord");
end.

begin
writeln("Geef het wachtwood");
readln(testje);
if testje 'wachtwoord' then
procedure_1;
else
procedure_2;
end.


Zoiets dus,pascal is alweer een tijdje terug

[Y0ur1]

Op dinsdag 20 november 2001 15:16 schreef YT-Croc het volgende:
waarom niet

program blabla;
var wachtwoord:string;
begin
writeln ('Geef je wachtwoord in');
readln (wachtwoord);
en dan gewoon een lus maken met if, then en else in een lus, kan toch neit zo moeilijk zijn?
maaruh veracht niet dat wij voor jouw dat ff schrijven, we helpen je alleen even op weg...

of met een loop, een simpele interatie

[markvt]

volgende keer toch wel ff posten wat je zelf hebt gekloot he, lees de FAQ ff na over huiswerk


[topic=162102/1/100]


LOL:
Aantal posts: 151
Gem. aantal posts/dag: 1

[Y0ur1]

LOL:
Aantal posts: 151
Gem. aantal posts/dag: 1

wat is er LOL aan?

[Verwijderd]

kut computer... op me werk.. beetje verkeerd op spatie gedrukt

maar om verder te gaan

program wachtwoord;

var???????

begin
repeat
write('geef het wachtwoord op')
readln(w);
until (w= 'wachtwoord')

dit is volgens mij een beetje de basis denk ik.. maar wie kan me verder helpen

[Y0ur1]

Op dinsdag 20 november 2001 15:24 schreef Tommy4u het volgende:
kut computer... op me werk.. beetje verkeerd op spatie gedrukt

maar om verder te gaan

program wachtwoord;

var???????

begin
repeat
write('geef het wachtwoord op')
readln(w);
until (w= 'wachtwoord')

dit is volgens mij een beetje de basis denk ik.. maar wie kan me verder helpen

met var kun je de variabelen opgeven die je gaat gebruiken

[Verwijderd]

Op dinsdag 20 november 2001 15:23 schreef YT-Croc het volgende:

[..]

wat is er LOL aan?

wat een lol zeg...... aangezien ik ook nog andere dingen te doen heb..en niet van dit soort post als jou post heb ik wat minder posts...... beetje onzinnig van je.. zal wel met leeftijd te maken hebben

ik weet dat je niet hoopt te helpen met het maken van mij opdracht maar een beetje hulp kan ik toch vragen

[Y0ur1]

Op dinsdag 20 november 2001 15:29 schreef Tommy4u het volgende:

[..]

wat een lol zeg...... aangezien ik ook nog andere dingen te doen heb..en niet van dit soort post als jou post heb ik wat minder posts...... beetje onzinnig van je.. zal wel met leeftijd te maken hebben

ik weet dat je niet hoopt te helpen met het maken van mij opdracht maar een beetje hulp kan ik toch vragen

Yep, maar laat het maar joh, niks van aan trekken

[mulder]

Op dinsdag 20 november 2001 15:24 schreef Tommy4u het volgende:
kut computer... op me werk.. beetje verkeerd op spatie gedrukt

maar om verder te gaan

program wachtwoord;

var???????

begin
repeat
write('geef het wachtwoord op')
readln(w);
until (w= 'wachtwoord')

dit is volgens mij een beetje de basis denk ik.. maar wie kan me verder helpen

In feite is dit een oneindige loop, als de gebruiker het wachtwoord niet weet. Misschien zo:

code:

  repeat
    write('geef het wachtwoord op');
    write('(type stop om te beeindigen)');
    readln(w);   
  until (w = 'wachtwoord' or w = 'stop');
  if w = 'stop' then end

Je zou het nog netter kunnen doen, maar euuh, da wet knie mer, tijdje geleden allemaal. Heeft pascal ook niet inputkey$ of zoiets??

[Y0ur1]

Zit je toevallig op het ROC in Utrecht9kanaleneilenad) op school?

[Verwijderd]

Op dinsdag 20 november 2001 15:38 schreef YT-Croc het volgende:
Zit je toevallig op het ROC in Utrecht9kanaleneilenad) op school?

jep jij ook??

[Y0ur1]

Op dinsdag 20 november 2001 15:40 schreef Tommy4u het volgende:

[..]

jep jij ook??

Yep
Ik maakte uit je vorige topics op dat je dezelfde opdrachten moet maken als ik

[Verwijderd]

Op dinsdag 20 november 2001 15:43 schreef YT-Croc het volgende:

[..]

Yep
Ik maakte uit je vorige topics op dat je dezelfde opdrachten moet maken als ik

en is het je al een beetje gelukt? ik ben bezig maar het lukt niet echt..... heb je hem af???? zo niet dan maken we hem nu toch ff

[mulder]

*pakt thee & koekjes*

[Y0ur1]

[topic=321009]
werktstuk Databus en IRQ

[Y0ur1]

Op dinsdag 20 november 2001 15:44 schreef Tommy4u het volgende:

[..]

en is het je al een beetje gelukt? ik ben bezig maar het lukt niet echt..... heb je hem af???? zo niet dan maken we hem nu toch ff

Ik heb die opdracht (nog) niet gehad, maar het lijkt me niet echt moeilijk . Maaruh lees even hoofdstuk 1 tm 5 door en zorg dat je het kan, dan kun je dit al bijna. Met een beetje goed verstand en logisch inzicht moet het gewoon lukken! Welke klas zit je btw? niveau enz

[Y0ur1]

Op dinsdag 20 november 2001 15:44 schreef El_Mundo het volgende:
*pakt thee & koekjes*

[Verwijderd]

Op dinsdag 20 november 2001 15:47 schreef YT-Croc het volgende:

[..]

[Verwijderd]

Op dinsdag 20 november 2001 15:48 schreef Tommy4u het volgende:

[..]

geen goede quote. maar een biertje is ook wel lekker.. ik zit in de tweede klas.. maar moet nu stage lopen.. kut zooi... maar die opdracht lukt nog wel

[Y0ur1]

Op dinsdag 20 november 2001 15:49 schreef Tommy4u het volgende:

[..]

geen goede quote. maar een biertje is ook wel lekker.. ik zit in de tweede klas.. maar moet nu stage lopen.. kut zooi... maar die opdracht lukt nog wel

WTF@! Je zit in de 2e? En je kan dit nog niet eens Sorry hoor maar dan loop je heeeel erg achter, dat ze zon simpele opdrachten in de 2e geven. Maja ik in de eerste dus, en het is slaapverwekkend.

[Verwijderd]

Op dinsdag 20 november 2001 15:51 schreef YT-Croc het volgende:

[..]

WTF@! Je zit in de 2e? En je kan dit nog niet eens Sorry hoor maar dan loop je heeeel erg achter, dat ze zon simpele opdrachten in de 2e geven. Maja ik in de eerste dus, en het is slaapverwekkend.

ik had ook een aanwezigheids percentage van 10% of zo.. duz dat zegt genoeg toch??

[Scorpion]

Op dinsdag 20 november 2001 15:53 schreef Tommy4u het volgende:

[..]

ik had ook een aanwezigheids percentage van 10% of zo.. duz dat zegt genoeg toch??

Ik zou zeggen pak een pascal boek, en ga dat lezen.

[Y0ur1]

Op dinsdag 20 november 2001 15:53 schreef Tommy4u het volgende:

[..]

ik had ook een aanwezigheids percentage van 10% of zo.. duz dat zegt genoeg toch??

Mmm, ja gaat mij ook verder niks aan. Maja veel succes ermee, moet nu weg

[Verwijderd]

Op dinsdag 20 november 2001 15:49 schreef Tommy4u het volgende:

Ik zit in de tweede klas.. maar moet nu stage lopen.. kut zooi... maar die opdracht lukt nog wel

Dan doe zeker geen TKA?

[Y0ur1]

Op dinsdag 20 november 2001 15:57 schreef Dutch_man het volgende:

[..]

Dan doe zeker geen TKA?

Nee MBO ICT

[Verwijderd]

Op dinsdag 20 november 2001 15:55 schreef Scorpion het volgende:

[..]

Ik zou zeggen pak een pascal boek, en ga dat lezen.

he bedankt voor de tip. denk je nou echt dat ik hier iets zou stellen als ik het boek niet had gelezen

[Y0ur1]

Op dinsdag 20 november 2001 15:58 schreef Tommy4u het volgende:

[..]

he bedankt voor de tip. denk je nou echt dat ik hier iets zou stellen als ik het boek niet had gelezen

Ik als eerste jaars zou dit nog voor ekaar kunnen krijgen en ik heb pas 5 hoofdstukken van de 15.
Dus ga eens lezen!

[Verwijderd]

Op dinsdag 20 november 2001 16:05 schreef YT-Croc het volgende:

[..]

Ik als eerste jaars zou dit nog voor ekaar kunnen krijgen en ik heb pas 5 hoofdstukken van de 15.
Dus ga eens lezen!

sorry maar pascal vind ik echt geen fuck aan,,, die vent mag ik niet.. maar het is me al gelukt... thnx

[Y0ur1]

Op dinsdag 20 november 2001 16:08 schreef Tommy4u het volgende:

[..]

sorry maar pascal vind ik echt geen fuck aan,,, die vent mag ik niet.. maar het is me al gelukt... thnx

Wei heb je dan? Ik heb Hoogeveen