Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Buenos días,

Se me pide realizar un psudocódigo donde aparezca un menú con 3 opciones 1. Solicitar la contraseña, 2. Ver una pista y 3. Salir del programa.

El programa debería de servir para solicitar una contraseña y mostrar un mensaje de acierto en el caso de introducir la password correcta y un mensaje de error en el caso de introducirla erroneamente. No hay número de intentos, pero cada vez que introducimos la clave erronea el programa debe de volver al menú inicial. Si insertamos la contraseña correcta el programa debería de finalizar.

Tengo dudas de que este psudocódigo realmente funcionara y, sobre todo, finalizara el programa en el caso de acertar la contraseña.

1.   Inicio
2.   Mientras E <> 3 Hacer
2.1   Mostrar “Menú: 1. Intentar averiguar nombre secreto  - 2. Ver pista - 3. Salir”
2.2   Pedir E
2.3   Si E = 1 Entonces
2.3.1   Clave = “Albert Einstein”
2.3.2   Si Clave = “Albert Einstein” entonces
Mostrar “ Has acertado”
FinSi
Unload Form
2.3.3   Mientras Clave <> “Albert Einstein” Hacer
Mostrar “Has fallado”
Salir Mientras
2.4   Si E=2 Entonces
Mostrar “Es el físico más influyente del siglo XX”
FinSi
3.   Fin

Gracias por vuestra ayuda.

Un saludo.

Vaya día...

Se me pide hacer un programa que multiplique entre si los primeros tres números naturales (3 * 2 * 1=6), una vez nos aparece el resultado debemos de decidir si continuar. En el caso de continuar la ventana nos debería de mostrar el resultado de la multiplicación de los póximos 6 números naturales (1*2*3*4*5*6=720), si continuamos el de los próximos 9...12...15, etc.

El código usado es el siguiente:
Option Explicit

Dim i As Integer
Dim j As Integer
Dim Respuesta As Integer
Dim Multiplicacion As Integer

Private Sub Form_load()
j = 1
Respuesta = vbYes
Do While Respuesta = vbYes
For i = j To j + 2
Multiplicacion = Multiplicacion + i
Next i
j = j + 3
Respuesta = MsgBox("La multiplicación de los " & j - 1 & " numeros naturales es " & Multiplicacion & vbCrLf & "¿Quiere continuar?", vbYesNo, "¿Continuar?")
Loop
End Sub


Consigo la ventana, consigo que realice el primer cálculo bien y que los números naturales vayan aumentando de 3 en 3 correlativamente pero no consigo que los resultados de las multiplicaciones sean los correctos.

Por favor, ¿podría alguien echarme una mano?

Muchas gracias.

Buenos días,

Tengos dudas referentes al ejercicio 4 de la semana 10 de "Fundamentos de programación I" donde se me pide crear un psudocódigo referente a un programa que pide una contraseña y al tercer intento fallido debería de mostrar un mensaje indicando que se ha fallado tres veces.

El código usado es el siguiente:

1. Inicio
2. Mientras Clave <> 1234 Hacer
Mostrar “Por favor, introduzca password”
Pedir Clave
i=i+1
Si i>2 Entonces
 Mostrar “Ha introducido 3 veces la clave errónea”
Finalizar
FinSi
Repetir
3. Mostrar “Ha acertado la clave”
4. Fin


Preguntas:
- He puesto que la password correcta sería 1234 pero, ¿qué ocurriría si la password fuera texto o texto y números? ¿Habría que variar alguna linea del psudocódigo?

Gracias por vuestra ayuda

Buenas tardes,

En este ejercicio no soy capaz de que me aparezcan los datos correctamente. Los números de modelo de los vehículos no me aparecen dentro de cada correspondiente grupo de vehículos.

El código que llevo hasta ahora realizado es el siguiente:

Option Explicit

Dim i As Integer
Dim Modelo(1 To 8) As Integer

Private Sub Form_Load()
Form1.Caption = "Modelos de vehículos"
Label1.Alignment = 2
Label1.Font = True
Label2.Alignment = 2
Label2.Font = True
Label3.Alignment = 2
Label3.Font = True
i = 1
Modelo(1) = 350
Modelo(2) = 5000
Modelo(3) = 21
Modelo(4) = 100
Modelo(5) = 125
Modelo(6) = 750
Modelo(7) = 800
Modelo(8) = 850


Do While Modelo(i) <> 850

If Modelo(i) = 125 Then

End If
If Modelo(i) = 350 Then

End If
i = i + 1
Loop




End Sub

Los datos deberían de quedar del siguiente modo:

"Números de modelo de Fórmula 1" = 350
"Números de modelo de motocicletas" = 5000, 21, 100, 125
"Numeros de modelos de camiones" = 750, 800, 850

¿Cómo podría hacer para que los datos se mostraran en tres labels que he creado para mostrar los resultados?

Muchas gracias por la ayuda.

Un saludo.

Buenos días,

Me encuentro haciendo el ejercicio 4 correspondiente a la semana 9 y hay varias cosas que no entiendo del pseudocódigo del ejercicio.

Concretamente en la linea 4:

4. i=1 : Leer Dato(i)
Entiendo que si a la variable Dato(i) le dieramos, por ejemplo, un valor 10 (Dato(10)) el no poner i=1 haría que el programa empezase a leer Dato(0) cuando en este caso eso no sería posible. No sé si me explico.

Referente al ejercicio me preguntan que qué ocurriría en el caso de que eliminásemos la linea 4 del psudocódigo. Entiendo que si borramos esa linea, eliminaríamos el array que guarda el total de datos que va a leer el programa.

Cualquier ayuda, consejo u orientación será bien recibida.

Muchas gracias a todos.

Buenos días a todos,

Realizando el psudocódigo del ejercicio 5 de la semana 8 me encuentro en la siguiente situación. Me solicitan que en el pseudocódigo deben de aparecer un acumulador y un interruptor.

El psudocódigo que he creado es el siguiente:

1.Inicio
   2. TotalCajero = 600
   3. Mientras Totalcajero >= 0 Hacer
      Mostrar “Introduzca el importe a extraer”
      Pedir Cantidad
      TotalCajero = TotalCajero – Cantidad
   Repetir
   4. Mostrar “Se ha excedido de la cantidad máxima permitida”
5. Fin

La verdad es que no sé en qué momento o para qué situación disponer de un interruptor en este ejercicio. Entiendo que con este pseudocódigo ya quedaría reflejado que sólo puedo retirar un máximo diario de 600€ y me avisaría en el momento en que superase esa cantidad.

Cualquier correción o ayuda será bienvenida. Gracias.

Saludos.

Buenos días,

Realizando uno de los ejercicios que se nos solicitan durante el curso de Fundamentos, concretamente a la hora de crear un programa en VB que nos facilite el area de un rectángulo, me surge la siguiente pregunta:

He creado dos Label (Label1 y Label2) y a continuación dos TextBox (Text1 y Text2) donde dejo reflejado los valores que corresponden a la base y la altura del rectángulo. Escribiendo el código para el cálculo del area (AreaRectangulo=Base x Altura) he utilizado la siguiente linea:
AreaRectangulo= Text1 x Text2

El programa funciona correctamente y me calcula el area, me muestra el resultado correctamente en un tercer Label que he creado con ese propósito y demás.

Mi pregunta es, ¿es correcto realizar el cálculo con la linea AreaRectangulo= Text1 x Text2? ¿Existe otra manera de realizar ese cálculo?

Espero haberme expresado con suficiente claridad.

Muchas gracias de antemano por vuestra ayuda.