Algoritmicos

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];

colorpelo: Array [1..150];

colorpiel: Array [1..150];

co,cp,cpi,e:Char;

edad: Array [1..150] Of Real;

i: Integer;

n: String;

nacionalidad: Array [1..150] Of String;

nom:String;

nombre: Array [1..150];

p:;

peso: Array [1..150] Of Real;

prom: Real;

prom1: Real;

prom2: Real;

prom4: Real;

s: String;

sexo: Array [1..150] Of String;

suma: Real;

suma2: Real;

suma3: Real;

suma4: Real;

t:Real;

telefono: Array [1..150]Of Real;

Begin

For i:=1 To 150 Do Begin

WriteLn('INGRESAR EL NOMBRE ');

ReadLn(nom);

nombre[i] := nom;

WriteLn('INGRESAR SEXO (femenino,masculino)');

ReadLn(s);

sexo[i] := s;

WriteLn('INGRESAR EDAD');

ReadLn(e);

edad[i] := e;

WriteLn('INGRESAR EL PESO');

ReadLn(p);

peso[i] := p;

WriteLn('INGRESAR COLOR DE PELO(negro,castaño,rubio,gris,rojo anaranjado)');

ReadLn(cp);

colorpelo[i] := cp;

WriteLn('INGRESAR COLOR DE PIEL(negra,blanca,trigueña,castaño oscuro)');

ReadLn(cpi);

colorpiel[i] := cpi;

WriteLn('INGRESAR COLOR DE OJOS(verde,azul,negro,gris,castaño)');

ReadLn(co);

colorojos[i] := co;

WriteLn('INGRESAR NACIONALIDAD(peruana,otras)');

ReadLn(n);

nacionalidad[i] := n;

WriteLn('INGRESAR TELEFONO');

ReadLn(t);

telefono[i] := t;

End;

suma := 0;

suma2 := 0;

For i:=1 To 150 Do Begin

If sexo[i]='masculino' Then Begin

suma := suma+edad[i];

End

Else Begin

suma2 := suma2+edad[i];

End;

...