EJERCICIO DEL COMANDO SEGÚN
De los ejercicios de la clase 9 introducirlos en el comando según.
Proceso Menu_de_numeros
Definir Op, n1, n2,n3, respuesta, A, B, area como real;
Escribir "**** MENÚ ****";
Escribir "Ingrese la opcion que desea conocer...";
Escribir "Ingrese 1 si quiere conocer la suma de 3 numeros y el mayor de ellos";
Escribir "Ingrese 2 Si quiere conocer si un número es positivo o negativo";
Escribir "Ingrese 3 si quiere conocer si un número es par o impar";
Escribir "Ingrese 4 si quiere conocer si un número es cero";
Escribir "Ingrese 5 si quiere conocer el área de un rectangulo";
Leer Op;
Segun Op Hacer
1:
Escribir "Ingrese sus tres numeros: ";
Leer n1;
Leer n2;
Leer n3;
Si n1>n2 y n1>n3 Entonces
Escribir "Su numero mayor es: ", n1;
Sino
Si n2>n1 y n2>n3 Entonces
Escribir "Su numero mayor es: ", n2;
Sino
Si n3>n1 y n3>n2 Entonces
Escribir "Su numero mayor es: ", n3;
Sino
Escribir "Tus numeros todos son iguales";
FinSi
finsi
FinSi
Respuesta<-n1+n2+n3;
Escribir "La suma de ellos 3 es: ", Respuesta;
2:
Escribir "Introduce tu numero: ";
Leer n1;
Si n1>0 Entonces
Escribir "Tu Numero si es positivo";
Sino
Escribir "Tu numero es negativo";
FinSi
3:
Escribir "Ingrese su numero";
Leer n1;
Si n1 MOD 2=0 Entonces
Escribir "El numero es par";
Sino
Escribir "El numero es impar";
FinSi
4:
Escribir "Introduce tu numero: ";
Leer n1;
Si n1=0 Entonces
Escribir "Tu Numero si es Cero";
Sino
Escribir "Tu numero no es Cero";
FinSi
5:
Escribir "Ingrese la Base del Rectángulo";
Leer B;
Escribir "Ingrese la altura del rectángulo";
Leer A;
area<-B*A;
si B >0 Y A >0 Entonces
Escribir "El área de tu rectángulo es ", area;
sino
Escribir "Datos erróneos";
finsi
De Otro Modo:
Escribir "No a elegido una opción";
FinSegun
FinProceso
No hay comentarios:
Publicar un comentario