Pascal / Sentencias repetitivas
Publicado por Ibai (5 intervenciones) el 20/03/2021 14:05:35
Hola buenas, al ejercicio que os adjunto quedría añadir que si no cumple la condición de tres intentos, que escriba :
''Usuario y contraseña incorrectos''. No se donde tengo que colocar ese ELSE que me falta, este de aquí seria el programa sin acabar :
''Usuario y contraseña incorrectos''. No se donde tengo que colocar ese ELSE que me falta, este de aquí seria el programa sin acabar :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
PROGRAM Usuario_Contraseina_Intentos ;
VAR
iUsuario : Integer ; iContraseina : Integer ; iIntentos : Integer ;BEGIN
iIntentos := 0 ;
REPEAT
iIntentos := iIntentos + 1 ;
IF iIntentos <= 3 THEN
Write ('Diga su codigo de usuario: ') ;
ReadLn (iUsuario) ;
Write ('Diga su contraseina: ') ;
ReadLn (iContraseina) ;
WriteLn ;
UNTIL (iUsuario = 1000) AND (iContraseina = 1234) ;
WriteLn ('Usuario y contraseina correctos') ;
ReadLn
END.Valora esta pregunta
0