Repeat until
Publicado por Misael (41 intervenciones) el 07/04/2015 01:49:01
Como hago este programa sin la opción 10 salir, necesito que cada bes que ingrese un numero del menú me pregunte si deseo salir s/n, si elige no me debelaba a la opción de ingresar un numero del menú, y si ingre la s = si que salga del programa;
este programa ya me funciono y compila perfectamente ahora necesito hacerle los cambios que mencione anteriormente.
Creo que es con: repeat y until gracias por su ayuda
les adjunto el programa:
este programa ya me funciono y compila perfectamente ahora necesito hacerle los cambios que mencione anteriormente.
Creo que es con: repeat y until gracias por su ayuda
les adjunto el programa:
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Program Menu;
Uses crt;
Var x:integer;Salir:char;Begin
Salir:= ‘n’;
While salir = ‘n’ doBegin
Clrscr;
Writeln(‘Menú Partes de la computadora’);
Writeln (‘1. Mouse’);
Writeln(‘2. Teclado’);
Writeln(‘3. Monitor’);
Writeln(‘4. Parlantes’);
Writeln(‘5. Unidad de DVD ’);
Writeln(‘6. Tarjeta Madre’);
Writeln(‘7. Procesador’);
Writeln(‘8. Disco Duro’);
Writeln(‘9. Memoria Ram’);
Writeln(‘10. Salir’);
Readln(x);
If ( x = 1 ) then
Begin
Writeln(‘aki va la definición dl mouse’);
End;
If ( x = 2 ) then
Begin
Writeln(‘aki va la definición dl Teclado’);
If ( x = 3 ) then
Begin
Writeln(‘aki va la definición dl monitor’);
End;
If ( x = 4 ) then
Begin
Writeln (‘aki va la definición dl parlantes’);
End;
If ( x = 5 ) then
Begin
Writeln (‘aki va la definición dl Unidad de DVD’);
End;
If ( x = 6 ) then
Begin
Writeln (‘aki va la definición dl Tarjeta Madre’’);
End;
If ( x = 7 ) then
Begin
Writeln (‘aki va la definición dl Procesador’);
End;
If ( x = 8 ) then
Begin
Writeln (‘aki va la definición dl Disco Duro’’);
End;
If ( x = 9 ) then
Begin
Writeln (‘aki va la definición dl Memoria Ram’);
End;
If ( x = 10 ) then
Writeln (‘DESEA SALIR S/N ’); READLN (SALIR);
End;
Repeat until keypressed
End.Valora esta pregunta
0
