Algoritmo PIA_MP_PEGM
Escribir "--------------PIA: METODOLOGIA DE LA PROGRAMACION----------------"
Escribir ""
Escribir " Escuela Indsutrial y Preparatoria Tecnica Pablo Livas"
Escribir " Nombre: Pablo Emilio Guerrero Moctezuma Matricula:2069544"
Escribir " Grupo: 221 Maestro(a):ERIKA ALEJANDRA LEE MARTINEZ"
Escribir ""
Definir resp, op Como Entero
resp=0
Repetir
Escribir "Seleccione la opcion del menu la cual quiera ejecutar:"
Escribir ""
Escribir "1.-Calcular Ärea de un cuadrado"
Escribir "2.-Realizar operaciones basicas entre dos numeros"
Escribir "3.-Menu de Operaciones Matematicas"
Escribir "4.-Caracteristica de una letra"
Escribir "5.-Horas y sueldo de un empleado durante 6 dias"
Escribir "6.-pagos y total de 20 mensualidades"
Escribir "7.-Buscar numero en matriz 3x3"
Escribir "8.-Cantidad de pares e impares en 10 elementos"
leer op
Escribir ""
Segun op Hacer
1:
Escribir "opcion No.1"
definir Area Como Entero
definir Lado Como Entero
Escribir "dame el valor de el lado del cuadrado"
leer Lado
Area=Lado*Lado
escribir "el area del cuadrado es: ",Area
2:
Escribir "opcion No.2"
definir w Como Entero
definir x Como Entero
definir sama Como Entero
Definir rasta Como Entero
definir maltiplicacion Como Entero
definir davision Como real
Escribir "Ingrese el primer numero"
leer w
Escribir "Ingrese el segundo numero"
leer x
sama= w+x
escribir "el resultado de la suma de los dos numeros es:", sama
rasta=w-x
Escribir "el resultado de la resta de los dos numeros es:", rasta
maltiplicacion=w*x
Escribir "el resultado de la multiplicacion de los dos numeros es:",
maltiplicacion
davision=w/x
Escribir "el resultado de la division de los dos numeros es:", davision
3:
Escribir "opcion No.3"
Definir a Como Real
definir b Como Real
Definir opcion Como Entero
definir suma Como Real
Definir resta Como Real
definir multiplicacion Como Real
definir division Como Real
definir potenciaA Como Real
Escribir "Ingrese un numero"
leer a
Escribir "Ingrese otro numero"
leer b
Escribir "**elige del siguiente menu la operacion que quieras hacer con
estos numeros**"
escribir "1. suma"
Escribir "2. resta"
Escribir "3. multiplicacion"
Escribir "4. division"
escribir "5. potencia"
leer opcion
Segun opcion Hacer
1:
suma= a+b
escribir "el resultado de la suma es:", suma
2:
resta= a-b
Escribir "el resultado de la resta es:", resta
3:
multiplicacion= a*b
escribir "el resultado de la multiplicacion es:",
multiplicacion
4:
division= a/b
Escribir "el resultado de la division es:", division
5:
potenciaA= a+b*(a+b)
Escribir "el resultado de la pontencia es:", potenciaA
De Otro Modo:
Escribir "la opcion no se encuentra en el menu"
FinSegun
4:
Escribir "opcion No.4"
Definir letra Como Caracter
Escribir "ingresa una letra (En MAYUSCULAS)"
Leer letra
Segun letra Hacer
"A" o "E" o "A" o "E"o "F" o "H" o "I" o "K" o "L" o "M" o "N" o "T"
o "V" o "W" o "X" o "Y" o "Z":
Escribir "La letra es recta"
"C" o "O" o "S" o "U" o "Q":
Escribir "La letra es curva"
"B" o "D" o "G" o "J" o "P" o "R":
Escribir "La letra es curva y recta"
FinSegun
5:
Escribir "opcion No.5"
Definir HrXDia, Dia, SumaHr Como Entero
Definir PagoXHr, SueldoFInal Como Real
Dia=1
SumaHr=0
Escribir "dame el costo de la hora trabajada: $"
leer PagoXHr
Repetir
Escribir "dame la cantidad de horas trabajadas en el dia " , Dia ":"
leer HrXDia
SumaHr=SumaHr+HrXDia
Dia=Dia+1
Hasta Que dia>6
SueldoFInal= SumaHr*PagoXHr
Escribir "la cantidad total de horas que trabajó el empleado es:" SumaHr
Escribir "el sueldo total es:" SueldoFInal
6:
Escribir "opcion No.6"
Definir Mes, Pago, PagoT Como Entero
Mes=1
PagoT=0
Mientras Mes<=20 Hacer
Si Mes=1 Entonces
Pago=10
SiNo
Pago=Pago*2
Fin Si
Escribir "la mensualidad No. ", Mes, " es de:$", Pago
PagoT=PagoT+Pago
Mes=Mes+1
Fin Mientras
Escribir "el costo total del producto despues de las 20 mensualidades es:
$", PagoT
7:
Escribir "opcion No.7"
Definir i,j,Matriz,num,cont,risp Como Entero
Dimension Matriz[3,3]
risp <- 0
Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 3 Hacer
Matriz[i,j]<-azar(9)
FinPara
FinPara
Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 3 Hacer
Escribir Matriz[i,j],' ' Sin Saltar
FinPara
Escribir ' '
FinPara
Repetir
Escribir 'Dime el numero que buscas en la matriz'
Leer num
cont <- 0
Para i<-1 Hasta 3 Hacer
Para j<-1 Hasta 3 Hacer
Si Matriz[i,j]=num Entonces
Escribir 'el numero ',num,' se encuentra en
la fila: ',i,' y en la columna: ',j
cont <- cont+1
FinSi
FinPara
FinPara
Si cont=0 Entonces
Escribir 'el numero solicitado no se encuentra en la matriz'
FinSi
Escribir '¿Deseas buscar algun otro numero? || escribe 1 para si'
Leer risp
Hasta Que risp<>1
8:
Escribir "opcion No.8"
Definir Pares, Impares, Nam Como Entero
Dimension Nam[10]
pares=0
Impares=0
Para i=1 Hasta 10 Con Paso 1 Hacer
nam[i]=0
Escribir "dame el valor de la posición No. " i " :"
leer Nam[i]
Si (Nam[i] Mod 2)=0 Entonces
pares=pares+1
SiNo
Impares=Impares+1
Fin Si
Fin Para
Escribir "La cantidad de numeros pares en el arreglo es:" pares
Escribir "La cantidad de numeros Impares en el arreglo es:" Impares
De Otro Modo:
Escribir "la opcion no se encuentra en el menú"
Fin Segun
Escribir "¿Desea ejecutar algun otra opcion del menú?||escriba 1 si su respuesta es SI"
leer resp
Hasta Que resp<>1
FinAlgoritmo