Algoritmicos
Enviado por darwinwww • 14 de Diciembre de 2014 • 868 Palabras (4 Páginas) • 174 Visitas
EJERCICIO 1:
Proceso personas
Dimension nombre[150]
Dimension sexo[150]
Dimension edad[150]
Dimension peso[150]
Dimension colorpelo[150]
Dimension colorpiel[150]
Dimension colorojos[150]
Dimension nacionalidad[150]
Dimension telefono[150]
para i<-1 hasta 150
escribir "INGRESAR EL NOMBRE "
leer nom
nombre[i]=nom
escribir "INGRESAR SEXO (femenino,masculino)"
leer S
sexo[i]=S
escribir "INGRESAR EDAD"
leer E
edad[i]=E
escribir "INGRESAR EL PESO"
leer P
peso[i]=P
escribir "INGRESAR COLOR DE PELO(negro,castaño,rubio,gris,rojo anaranjado)"
leer CP
colorpelo[i]=CP
escribir "INGRESAR COLOR DE PIEL(negra,blanca,trigueña,castaño oscuro)"
leer CPI
colorpiel[i]=CPI
escribir "INGRESAR COLOR DE OJOS(verde,azul,negro,gris,castaño)"
leer CO
colorojos[i]=CO
escribir "INGRESAR NACIONALIDAD(peruana,otras)"
leer N
nacionalidad[i]=N
escribir "INGRESAR TELEFONO"
leer T
telefono[i]=T
finpara
suma=0
suma2=0
para i<-1 hasta 150
si sexo[i]="masculino" entonces
suma=suma+edad[i]
Sino
suma2=suma2+edad[i]
FinSi
FinPara
prom=suma/2
prom1=suma2/2
escribir "EL PROMEDIO DE EDAD DEL SEXO MASCULINO ES:",prom
escribir "eEL PROMEDIO DE EDAD DEL SEXO FEMENINO ES:",prom1
suma3=0
suma4=0
para i<-1 hasta 150
si nacionalidad[i]="PERUANA" Entonces
suma3=suma3+peso[i]
Sino
suma4=suma4+peso[i]
FinSi
FinPara
prom2=suma3/2
prom4=suma4/2
escribir "EL PROMEDIO DE PESO POR NACIONALIDAD peruana ES:",prom2
escribir "EL PROMEDIO DE PESO POR NACIONALIDAD ES",prom4
FinProceso
EJERCICIO2:
Proceso ventitas
Escribir "Ingrese la cantidad de productos:"
Leer C
Dimension ARREGLO[C]
escribir "ingrese la descripcion de cada ventas"
leer D
Dimension descripcion[D]
escribir "ingrese la cantidad de las ventas"
leer S
Dimension ventas[S]
escribir "ingrese los precios de los productos"
leer P
Dimension precios[P]
Para Cada C de ARREGLO
Escribir "Ingrese cantidad:"
Leer C
Fin Para
Para Cada D de descripcion
Escribir "Ingrese la descripcion de cada cantidad:"
Leer D
Fin Para
Para Cada S de ventas
Escribir "Ingrese la cantidad de ventas"
Leer S
Fin Para
Para Cada P de ventas
Escribir "Ingrese los precios de los productos"
Leer P
Fin Para
cont=0
para cada S de ventas
cont=cont+1
FinPara
escribir "la cantidad de ventas de 30 dias es:" ,cont
suma=0
para cada S de ventas
suma=suma+venta
FinPara
FinProceso
EJERCICIO 2 (PASCAL)
Program personas;
Var
colorojos: Array [1..150];
...