[programmeren] turbo pascal

Moderators: ArcherBarry, Fuzzwood

Reageer
Berichten: 44

[programmeren] turbo pascal

ik moet de volgende opdracht maken maar ik zit vast.

OPGAVE:

maak een programma waarin gevraagd wordt: 'geef de gebruikersnaam'

en op de tweede regel wordt gevraagd: 'geef het wachtwoord'

als die twee dingen zijn ingevoerd verschijnt er op de volgende regel:

'OK. U bent ingelogd' als bij gebruikersnaam 'leerling' is ingevoerd en als wachtwoord 'wxpwxp'

als het niet klopt dan verschijnt er ' Gebruikersnaam en/of wachtwoord foutief, u wordt niet ingelogd'

Aanwijzing-> gebruik IF(....) AND (....) THEN.......;

Ik heb al

program Computer;

uses crt;

var l,w:string;

begin

clrscr;

writeln (' Geef de gebruikersnaam: ');

readln (l);

writeln (' geef het wachtwoord: ');

readln (w)

...

ik heb de rest ni kan er iemand me helpen aub???

Gebruikersavatar
Berichten: 6.905

Re: [programmeren] turbo pascal

moet je geen maximale lengte zetten bij het declareren van je string?

Kijk alvast hier: http://math.uww.edu/~harrisb/courses/cs171/strings.html en hier: http://en.wikipedia.org/wiki/Pascal_programming_language
Het vel van de beer kunnen verkopen vraagt moeite tenzij deze dood voor je neervalt. Die kans is echter klein dus moeten we zelf moeite doen.

Berichten: 44

Re: [programmeren] turbo pascal

Hoe dan ik begrijp het niet?

Berichten: 8.614

Re: [programmeren] turbo pascal

Zoals jhnbk reeds zei: bij het declareren van een String moet je het maximale aantal tekens aangeven. Dit doe je tussen rechte haken, bijvoorbeeld:

Code: Selecteer alles

VAR l,w:String[15]
In dit voorbeeld is de maximale lengte van de String 15 tekens.

Verder zou je moeten weten dat je opdrachten in procedures moet verdelen en niet direct 'BEGIN' mag schrijven na de declaratie van de variabelen.

Het begin van je programma wordt dus:

Code: Selecteer alles

Program Computer;

Uses Crt;

VAR l,w:String[15]

Procedure Invoer;

  Begin

   ClrScr;

   Write(' Geef de gebruikersnaam: ');

   ReadLn(l);

   Write(' Geef het wachtwoord: ');

   ReadLn(w)

  End;

Procedure Verwerking;

  Begin
Denk nu eens na en volg de logica van de computer. Je moet eerst vragen of de gebruikersnaam 'leerling' is (lees: vragen of de gebruikersnaam gelijk is aan 'leerling'):
  • Als dat zo is moet je een tweede vraag stellen, namelijk of het wachtwoord gelijk is aan 'wxpwxp':
    • Als dat zo is moet je afdrukken 'OK. U bent ingelogd';
    • Als dat niet zo is moet je afdrukken 'Gebruikersnaam en/of wachtwoord foutief, u wordt niet ingelogd'.
  • Als dat niet zo is moet je afdrukken 'Gebruikersnaam en/of wachtwoord foutief, u wordt niet ingelogd'.
Nu zou het toch moeten lukken, niet?
Geloof niet alles wat je leest.


Heb jij verstand van PHP? Word Technicus en help mee om Wetenschapsforum nog beter te maken!

Reageer