//ALUMNO: GARCIA GODINEZ VICTOR BARUCH
// P16_3P: HACER EN PSEINT UN ALGORITMO Y DIAGRAMA DE FLUJO QUE MANEJE UN MENU DE
OPCIONES, EN DONDE LAS OPCIONES SON:
//CALCULO DEL AREA. SOLICITE LOS DATOS NECESARIO (DMAY,DEMN, Y a) PARA CALCULAR EL
AREA Y PERIMETRO DE UN ROMBO A=(DMAY*DMEN)/2) P=4*a
//SUMA N VALORES . SOLICITAR UN N NUMERO DE DATOS, DESPUES PEDIR VALORES PARA CADA
DATO Y COMO SALIDA MOSTRAR LA SUMA DE LOS DATOS. (IMPLEMENTE EL CICLO REPETITIVO
CON UN MIENTRAS..HACER)
//RAIZ CUBICA DE UN NUMERO. PEDIR UN NUMERO Y CALCULAR LA RAIZ CUBICA DE ESE
NUMERO
//SALIR.
//IMPLEMENTE LA INSTRUCCION SEGUN..HACER PARA EL MENU DE OPCIONES
//IMPLEMENTE LA INSTRUCCION REPETIR..HASTA QUE BAMDERA , PARA QUE LA OPCION DE
SALIDA SEA UNICAMENTE EL NUMERO 4
//IMPLEMENTE PARA LA OPCION 1 Y 3 LA INSTRUCCION REPETIR..HASTA BANDERA PARA
PREGUNTAR SI SE DESEA REALIZAR OTRO CALCULO
//IMPLEMENTE PARA LA OPCION 2 LA INSTRUCCION MIENTRAS..HACER BANDERA PARA PREGUNTAR
SI SE DESEA REALIZAR OTRO CALCULO
Algoritmo P16_3P
Definir DMAY,DMEN,a,AR,PE,N,NM,raz,SUMA,X, DAT,ND Como Real
Definir RESP Como Cadena
RESP ='S'
Definir opci Como ENTERO
opci=1
Repetir
Escribir '1. AREA Y PERIMETRO DE UN ROMBO '
Escribir '2. SUMA N VALORES '
Escribir '3. RAIZ CUBICA DE UN NUMERO '
Escribir '4. SALIR '
Escribir 'DIGITE LA OPCION DESEADA: 'Sin Saltar
Leer opci
Limpiar Pantalla
Segun opci Hacer
1:
Repetir
Escribir 'EL VALOR DE LA DIAGONAL MAYOR:'Sin Saltar
Leer DMAY
Escribir 'EL VALOR DE LA DIAGONAL MENOR:'Sin Saltar
Leer DMEN
Escribir 'DAME EL VALOR DE UNO DE LOS LADOS:'Sin
Saltar
Leer a
AR=(DMAY*DMEN)/2
PE=4*a
Escribir 'EL AREA DEL ROMBO ES:',AR
Escribir 'EL PERIMETRO DEL ROMBO ES:',PE
Escribir 'DESEAS REPETIR ESTA OPRACION (s/n)? 'Sin
Saltar
Leer RESP
RESP <- Mayusculas(RESP)
Mientras QUE RESP<>'N'
2:
Mientras RESP<>'N' Hacer
Escribir 'DAME EL NUMERO DE DATOS AL SUMAR:'Sin
Saltar
Leer ND
SUMA=0
Para X<-1 Hasta ND Hacer
ESCRIBIR "DAME EL DATO ",X,":" SIN SALTAR
Leer DAT
SUMA=DAT+SUMA
FinPara
ESCRIBIR "LA SUMA DE LOS DATOS ES = ",SUMA
Escribir 'DESEAS REPETIR ESTA OPRACION (s/n)? 'Sin
Saltar
Leer RESP
RESP <- Mayusculas(RESP)
FinMientras
3:
Repetir
Escribir "DAME EL NUMERO AL CALCULAR:" Sin Saltar
Leer NM
raz=(NM)^(1/3)
Escribir "LA RAIZ CUBICA DEL NUMERO ES: ", raz
Escribir 'DESEAS REPETIR ESTA OPRACION (s/n)? 'Sin
Saltar
Leer RESP
RESP <- Mayusculas(RESP)
Mientras Que RESP<>'N'
FinSegun
Mientras Que opci<>4
FinAlgoritmo