Springen naar inhoud

[programmeren] turbo pascal


  • Log in om te kunnen reageren

#1

cybertechno

    cybertechno


  • >25 berichten
  • 44 berichten
  • Gebruiker

Geplaatst op 21 februari 2008 - 18:38

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???

Dit forum kan gratis blijven vanwege banners als deze. Door te registeren zal de onderstaande banner overigens verdwijnen.

#2

jhnbk

    jhnbk


  • >5k berichten
  • 6905 berichten
  • VIP

Geplaatst op 21 februari 2008 - 18:47

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

Kijk alvast hier: http://math.uww.edu/...71/strings.html en hier: http://en.wikipedia....amming_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.

#3

cybertechno

    cybertechno


  • >25 berichten
  • 44 berichten
  • Gebruiker

Geplaatst op 21 februari 2008 - 18:52

Hoe dan ik begrijp het niet?

#4

Klintersaas

    Klintersaas


  • >5k berichten
  • 8614 berichten
  • VIP

Geplaatst op 21 februari 2008 - 19:56

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

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:

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!






0 gebruiker(s) lezen dit onderwerp

0 leden, 0 bezoekers, 0 anonieme gebruikers

Ook adverteren op onze website? Lees hier meer!

Gesponsorde vacatures

Vacatures