Programa en gWbasic.
Publicado por m.a. (7 intervenciones) el 11/05/2018 13:25:54
10 Print = 1 " Consulta General "
20 Print = 2 " Consulta Nombre "
30 Input " Dime la Opcion " ; A$
40 If A = 1 Then Print " Opcion Consulta General " Goto 100
50 Input " Dime un Nombre " ; A$
60 If A = 2 Then Print " Opcion Consulta Nombre " Goto 100
70 Goto 10
20 Print = 2 " Consulta Nombre "
30 Input " Dime la Opcion " ; A$
40 If A = 1 Then Print " Opcion Consulta General " Goto 100
50 Input " Dime un Nombre " ; A$
60 If A = 2 Then Print " Opcion Consulta Nombre " Goto 100
70 Goto 10
Valora esta pregunta
0