MENÚ EN PSEINT

1.- ES UN EJEMPLOS PARA SACAR LAS ÁREAS DE ALGUNAS FIGURAS BÁSICAS :

Algoritmo OPERACIONES_BASICAS
Definir R,N Como Entero
Leer N
Menu(N)
FinAlgoritmo
SubProceso area_del_rectangulo(N)
A=0
Escribir 'digite un numero'
Leer B
Escribir 'diguite otro numero'
Leer H
A<-B*H
Escribir'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_cuadrado(N)
A=0
Escribir 'ingrese la medida del lado'
leer L
A<-L*L
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_circulo(N)
A=0
Escribir ' Diguite un numero'
leer r
ra<-r*r
A<-ra*3.1416
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso area_del_trapecio(N)
A=0
Escribir'Diguite un numero'
leer B
Escribir'Digite otro numero'
leer b
Escribir'Digite otro numero'
leer h
A=(B+b)/2*h
Escribir 'El area es:',A
Esperar Tecla
FinSubProceso
SubProceso Menu(N)
Escribir 'Menú operaciones Basicas'
Repetir
Limpiar Pantalla
Escribir 'Menú operaciones Basicas'
Escribir '________________________'
Escribir '1.area_del_rectangulo'
Escribir '2.area_del_cuadrado'
Escribir '3.area_del_circulo'
Escribir '4.area_del_trapecio'
Escribir '5.fin'
Escribir 'Elija una opcción'
leer opc
Segun opc Hacer
1:area_del_rectangulo(N)
2:area_del_cuadrado(N)
3:area_del_circulo(N)
4:area_del_trapecio(N)
De Otro Modo:
Escribir 'Fin'
FinSegun
Escribir "Presione enter para continuar"
        Esperar Tecla
Hasta Que opc=5    
FinSubProceso








2.-ES PARA  REALIZAR ALGUNAS OPERACIONES BÁSICAS:

SubProceso factorial(N)
R<-R*I
Para I<-1 Hasta N Con Paso 1 Hacer
R<-N*I
Fin Para
Escribir'el factoreal es:',R
Esperar Tecla
FinSubProceso
SubProceso raiz_cuadrada(N)
R<-raiz(N)
Escribir 'la raiz es:',R
Esperar Tecla
FinSubProceso
SubProceso Multiplos_menores_ascendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R<-N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
FinSubProceso
SubProceso Multiplos_menores_descendentes(N)
R<-N
Para I<-1 Hasta 50 Con Paso 1 Hacer
R=N*I
Escribir 'Los mltiplos en forma ascententes son:',R
Esperar Tecla
Fin Para
Esperar Tecla
FinSubProceso
SubProceso numeros_divicibles(N)
Si (num%3) = 0 Entonces
Escribir "El numero SI es divisible por tres",R
Sino
Escribir "El numero NO es divisible por tres",R
FinSi
FinSubProceso
SubProceso transformar_a_texto(N)
R<-N
N<-TEXTO
Escribir 'el numero transformado a palabras es:',TEXTO
Esperar Tecla
FinSubProceso

SubProceso Menu(N)
Escribir 'Menú operaciones Basicas'
Repetir
Limpiar Pantalla
Escribir 'Menú operaciones Basicas'
Escribir '________________________'
Escribir '1.factorial'
Escribir '2.raiz_cuadrada'
Escribir '3.multiplos_menores_ascendentes'
Escribir '4.multiplos_menores_descendentes'
Escribir '5.numeros_divisibles'
Escribir '6.transformar_a_texto'
Escribir '7.fin'
Escribir 'Elija una opcción'
leer opc
Segun opc Hacer
1:factorial(N)
2:raiz_cuadrada(N)
3:multiplos_menores_ascendentes(N)
4:multiplos_menores_descendentes(N)
5:numeros_divicibles(N)
6:transformar_a_texto(N)
Escribir 'Fin'
FinSegun
Escribir "Presione enter para continuar"
        Esperar Tecla
Hasta Que opc=7    
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir R,N Como Entero
Leer N
Menu(N)
FinAlgoritmo
















3.-ES PARA  SABER SI ES MAYOR DE EDAD

Funcion Promedio(ed,N)
ed<-0
auxed<-0
Escribir 'ingresa la cantidad de personas'
leer n
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'ingresa tu edad'
Leer ed
auxed <- auxed+ed
Fin Para
prom<-(auxed)/n
escribir 'el promedio de edad es:',prom
Esperar Tecla
FinFuncion

Funcion Edad_mayor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MAYOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed>16 Entonces
EscribiR 'ES MAYOR DE EDAD'
Sino
Escribir 'ES MENOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion

Funcion Edad_menor(ed,N)
Escribir 'ESTE PROCESO ES PARA SABER SI ES MENOR DE EDAD'
Escribir 'ingrese el año de nacimiento'
Leer A
Escribir 'diguite el año actual'
Leer a
ed<-A-a
Si ed<-16 Entonces
EscribiR 'ES MENOR DE EDAD'
Sino
Escribir 'ES MAYOR DE EDAD'
Fin Si
Esperar Tecla
FinFuncion

SubProceso Menu(ed)
Definir  opc Como Entero
Repetir
Limpiar Pantalla
Escribir 'opciones que puede seleccionar'
Escribir '1.edad promedio'
Escribir '2.edad mas alta'
Escribir '3.edad mas baja'
Escribir '4.fin'
Escribir 'elija una opcion'
Leer opc
Segun opc hacer
1:Promedio(ed,N)
2:Edad_mayor(ed,N)
3:Edad_menor(ed,N)
De Otro Modo:
Escribir 'error'
FinSegun
Hasta Que opc = 4
Esperar Tecla
FinSubProceso
Algoritmo OPERACIONES_BASICAS
Definir ed,N Como Entero
Para I<-1 Hasta N Con Paso 1 Hacer
Escribir 'INGRESE LA CANTIDAD DE PERSONAS'
Leer N
Escribir 'INGRESA TU EDAD'
leer ed
Fin Para
Menu(N)
FinAlgoritmo




                                                      Ejercisios con la descripcion mientras
4._Programa para calcular el promedio general del grupo en una asignatura  
                           
Algoritmo Promedio_notas
    Definir as,nom como entero
    Definir c Como Entero
    Definir q1,q2,prom,sp,pg como real
    c=0
    prom=0
    sp=0
    leer as
    Leer nom
    Mientras nom < > entonces
        Leer q1
        Leer q2
        c=c+1
        prom=(q1+q2)
        sp=sp+prom
        Leer nom
    Fin Mientras
    pg=sp/c
    Escribir "el proceso general de "s" estudiantes as es":pg
FinAlgoritmo


5._Programa con los datos del ejercisoio anterior el cual genera con las normas de los estudiantes que aprobaron y reprobaron

Algoritmo Promedio_notas
    Definir as,nom como cadena
    Definir c Como Entero
    Definir q1,q2,prom,sp,pg como real
    c=0
    sp=0
    Escribir "Ingrese la asignatura"
    leer as
    Escribir "Ingrese un nombre"
    Leer nom
    Mientras nom <> " " hacer 
        Escribir "Ingrese la primera nota"
        Leer q1
        Escribir "Ingrese la segunda nota"
        Leer q2
        c=c+1
        prom=(q1+q2)/2
        sp=sp+prom
    Fin Mientras
    pg=sp/c
    Escribir "el promedio general de ",c"estudiantes ",as,es,"pg
FinAlgoritmo



6._Calcular el salario de un grupo de trabajadores dada la cantidad de horas y la tarifa por cada una se solicita desplegar el salario que resive cad empleado

Algoritmo Salario
    Definir h,t,a,c como cadena
    Escribir "ingrese el numero de mepleados"
    Leer c
    Para a<-1+c Hasta c Con Paso 1 Hacer
        vh=1,5
        Escribir "ingrese un nombre"
        Leer nom
        Escribir "ingrese el numero de horas trabajadas"
        Leer ht
        vm=ht,xvh,x4
        Escribir "su salario mensual es",vm
    Fin Para
FinAlgoritmo


7._Escribir un programa para ingresar un dia de la semana y desplegar el mensaje dia laboral o dia de descanso

Algoritmo dias_de_la_semana
    Definir d,s como cadena
    Escribir "ingrese un dia de la cemana"
    Leer d
    s=mayuscula(d)
    Si s="luneso" o s="martes" o s="miercoles" os="jueves" os="viernes" Entonces
        Escribir "es un dia laborable"
    Sino
        Si s="sabado" o s="domingo" Entonces
            Escribir "es un dia de descanso"
        Sino
            Escribir "no es un dia de la semana"
        Fin Si
    Fin Si
FinAlgoritmo





6 comentarios:

  1. Quiero saber como seleccionar que tecla presionar en la función "esperar tecla"

    ResponderEliminar
  2. quisiera saber de un programa que, la recibir losmontos de compras mensules de cuatro departamentos de la factoria,

    ResponderEliminar
  3. proporciones un menu y cuatro subprocesos

    ResponderEliminar
  4. el 1°hallar las compras mensuales de la factria
    2°optener el monto del departamento que optubo la mayor compra del mes de mayo.
    3°hallar elmonto anual de compras

    ResponderEliminar
  5. Ingresar 10 nombres, aplicando el comando mientras.

    ResponderEliminar
  6. 1 hacer un menú alimentos para animales perros ,gatos pajaros hamster
    2 mostrar el precio de cada alimento
    3mostrar el total de la compra del cliente

    ResponderEliminar

Tu PSeInt

Unidad 6