ejercicio-34 ordenar vector con procediimientos.
SubAlgoritmo CargarVectores(pVecApellidos,pVecPromedios Por Referencia, pLARGO Por Valor)
Definir i Como Entero
Para i desde 0 hasta (pLARGO-1) hacer
Imprimir "Ingrese el apellido";
Leer pVecApellidos[i];
Imprimir "Ingrese el promedio";
Leer pVecPromedios[i];
FinPara
FinSubAlgoritmo
SubAlgoritmo OrdenarVectores(pVecApellidos,pVecPromedios Por Referencia,pLARGO Por Valor)
Definir aux Como Real
Definir aux2 Como Cadena
Definir i,j Como Entero
Para j desde 0 hasta (pLARGO-2) con paso 1 hacer
Para i desde 0 hasta (pLARGO-2-j) con paso 1 Hacer
Si (pVecPromedios[i]>pVecPromedios[i+1]) Entonces
aux= pVecPromedios[i];
pVecPromedios[i]= pVecPromedios[i+1];
pVecPromedios[i+1]= aux;
aux2= pVecApellidos[i];
pVecApellidos[i]=pVecApellidos[i+1];
pVecApellidos[i+1]= aux2;
FinSi
FinPara
FinPara
FinSubAlgoritmo
SubAlgoritmo ImprimirVectores(pVecApellidos,pVecPromedios,pLARGO Por Valor)
Definir i Como Entero
Para i desde 0 hasta (pLARGO-1) con paso 1 Hacer
Imprimir pVecApellidos[i]," ",pVecPromedios[i];
FinPara
Imprimir " "
FinSubAlgoritmo
Algoritmo Ejercicio_34
Definir LARGO Como Entero;
LARGO=4;
Definir vecApellidos como Cadena;
Dimension vecApellidos[LARGO];
Definir vecPromedios Como Real;
Dimension vecPromedios[LARGO];
CargarVectores(vecApellidos,vecPromedios,LARGO);
ImprimirVectores(vecApellidos,vecPromedios,LARGO);
OrdenarVectores(vecApellidos,vecPromedios,LARGO);
ImprimirVectores(vecApellidos,vecPromedios,LARGO);
vecPromedios[2]=1;
OrdenarVectores(vecApellidos,vecPromedios,LARGO);
ImprimirVectores(vecApellidos,vecPromedios,LARGO);
FinAlgoritmo
-------------------------
SubProceso ordenarvector
si promedio(i)>promedio(i+) entonces
aux=promedio(i);
promedio(i)=promedio(i+);
promedio(i+)=aux;
FinSi
FinSubProceso
SubProceso informe
escribir 'alumno:',apellido(1);
escribir 'promedio:',promedio(1);
escribir 'alumno:',apellido(5);
escribir 'promedio:',promedio(5);
FinSubProceso
Algoritmo sin_titulo
definir i,aux Como Entero
Dimension apellido[10];
Dimension promedio[10];
para i desde 0 hasta 9 Hacer
escribir 'alumno:';
leer apellido(i);
escribir 'promedio';
leer promedio(i);
FinPara
para i desde 0 hasta 9 Hacer
si i=3 entonces
Escribir 'modificar 3:';
leer promedio(i);
Sino
si i=5 entonces
Escribir 'modificar 5:';
leer promedio(i);
FinSi
FinSi
FinPara
FinAlgoritmo
SubProceso ImprimirSaludo
Imprimir 'hola que tal';
FinSubProceso
Algoritmo sin_titulo
definir num Como Entero
Imprimirsaludo;
num=5;
imprimir(num);
Imprimirsaludo
FinAlgoritmo
subproceso Calcularpromedio(num1,num2,num3 por valor)
definir promedio como real
promedio=(num1+num2+num3)/3
imprimir 'el promedio es:',promedio
FinSubProceso
Algoritmo sin_titulo
definir nota1,nota2,nota3 Como real;
nota1=1;
nota2=4;
nota3=4;
Calcularpromedio(nota1,nota2,nota3);
FinAlgoritmo
Algoritmo sin_titulo
definir precioPersona Como Real;
definir cantidadPersonas Como Entero;
definir preciobrutoExcursion Como Real;
definir precionetoExcursion como real;
definir gastoSegurobruto15 Como Real;
definir gastoSeguro1020 Como Real;
definir gastoSeguroneto como real;
definir gastoSeguroBruto como real;
Escribir 'incluya precio por persona:';
leer precioPersona;
escribir 'incluya Cantidad Personas:';
leer cantidadPersonas;
si cantidadPersonas<20 entonces
escribir 'no se puede calcular nada';
Sino
// calculos
preciobrutoExcursion=(precioPersona * cantidadPersonas);
gastoSegurobruto15=(preciobrutoExcursion*0.15)-preciobrutoexcursion;
//gastoSegurobruto15=(gastoSegurobruto15-preciobrutoExcursion);
si (cantidadPersonas > 20 y cantidadPersonas < 30)entonces
gastoSeguro1020=(gastoSegurobruto15*0.1)-gastoSegurobruto15;
FinSi
si (cantidadPersonas > 30)entonces
gastoSeguro1020=(gastoSegurobruto15*0.1)-gastoSegurobruto15;
FinSi
gastoseguroneto=gastoSegurobruto15+gastoSeguro1020;
precionetoExcursion=(preciobrutoExcursion-gastoSeguro1020);
escribir 'costo de la excursion:',precionetoExcursion;
escribir 'monto corresponde la empresa de seguro:', gastoSeguroneto;
FinSi
FinAlgoritmo
-----------------------------------------
Algoritmo sin_titulo
definir num1,num2,num3,num4,num5 como enteros;
definir acumulapar,acumulaimp como real;
escribir 'incluya los numeros desde la posicion 1hasta 5:';
leer num1;
leer num2;
leer num3;
leer num4;
leer num5;
acumulaimp=0;
acumulapar=0;
si (num1 % 2 = 0) entonces
acumulapar=acumulapar+num1;
FinSi
si (num1 % 2 = 1) entonces
acumulaimp=acumulaimp+num1;
FinSi
si (num2 % 2 = 0) entonces
acumulapar=acumulapar+num2;
FinSi
si (num2 % 2 = 1) entonces
acumulaimp=acumulaimp+num2;
FinSi
si (num3 % 2 = 0) entonces
acumulapar=acumulapar+num3;
FinSi
si (num3 % 2 = 1) entonces
acumulaimp=acumulaimp+num3;
FinSi
si (num4 % 2 = 1) entonces
acumulaimp=acumulaimp+num4;
FinSi
si (num4 % 2 = 0) entonces
acumulapar=acumulapar+num4;
FinSi
si (num5 % 2 = 1) entonces
acumulaimp=acumulaimp+num5;
FinSi
si (num5 % 2 = 0) entonces
acumulaimp=acumulaimp+num5;
FinSi
escribir 'la suma de numeros par son:', acumulapar;
escribir 'la suma de numeros par son:', acumulaimp;
FinAlgoritmo
---------------------------------------
Algoritmo sin_titulo
definir num1, num2, aux Como Entero;
escribir 'incluya un numero mayor:';
leer num1;
Escribir 'incluya un numero menor:';
leer num2;
aux=0;
si (num1 < num2) entonces
aux=num1;
num1=num2;
escribir 'el numero menor es:',aux;
escribir 'el numero mayor es:', num1;
FinSi
FinAlgoritmo
----------------------------------------------
Algoritmo sin_titulo
definir usuario Como Caracter;
definir contrasena Como Caracter;
escribir 'incluya usuario para entrar:';
leer usuario;
escribir 'incluya contraseña:';
leer contrasena;
si (usuario='fernando' y contrasena='italia1234') c cc entonces
escribir 'Acceso Libre al sistema lo felicito';
Sino
escribir 'acceso denegado';
finsi
si (usuario='FERNANDO' y contrasena='ITALIA1234') Entonces
escribir 'Acceso Libre al sistema lo felicito';
Sino
escribir 'acceso denegado';
FinSi
si (usuario='jose' y contrasena='cordoba2017') entonces
escribir 'Acceso Libre al sistema lo felicito';
Sino
escribir 'acceso denegado';
FinSi
si (usuario='JOSE' y contrasena='CORDOBA2017') Entonces
escribir 'Acceso Libre al sistema lo felicito';
Sino
escribir 'acceso denegado';
FinSi
FinAlgoritmo
----------------------------------------------
Algoritmo sin_titulo
definir nombreAlumno,nombreauxiliar Como Caracter;
definir nota,i,u,suma Como Entero;
Definir promemenor,ppal,promedio,promemay como entero;
definir primeralumno Como Logico;
primeralumno=verdadero;
suma=0;
ppal=0;
promemay=0;
promemenor=0;
para i=1 hasta 2 hacer
escribir 'nombre alumno',i;
leer nombreAlumno;
para u= 1 hasta 4 Hacer
escribir 'incluya nota numero',u;
leer nota;
suma=suma+nota;
FinPara
promedio=suma/u;
si (primeralumno) entonces
ppal=promedio;
nombreauxiliar=nombreAlumno;
primeralumno=falso;
sino
si promedio > ppal Entonces
promemay=promedio;
nombreauxiliar=nombreAlumno;
FinSi
si promedio < ppal Entonces
promemenor=promedio;
nombreauxiliar1=nombreAlumno;
FinSi
Finsi
FinPara
escribir'nombre del alumno mayor promedio:',nombreauxiliar;
escribir'el promedio mayor es:',promemay;
escribir'nombre del alumno menor promedio:',nombreauxiliar1;
escribir'el promedio menor es:',promemenor;
FinAlgoritmo
-------------------------------------
Algoritmo sin_titulo
definir numero,sumapares,sumaimpar,cantidadpares,cantidadimpar Como Entero;
definir u,numeromayor,numeromenor,cantidadrango,auxmayor,auxmenor Como Entero;
definir consulta Como Caracter;
u=0;
sumapares=0;
sumaimpar=0;
cantidadpares=0;
cantidadimpar=0;
numeromayor=0;
numeromenor=0;
cantidadrango=0;
auxmayor=0;
auxmenor=0;
consulta="s";
Mientras consulta="s" Hacer
escribir 'incluya numeros hasta que no quiera hacerlo:';
leer numero;
si (numero%2=0) entonces
cantidadpares = cantidadpares + 1;
sumapares=sumapares+numero;
FinSi
si (numero%2=1) entonces
cantidadimpar = cantidadimpar + 1;
sumaimpar=sumaimpar+numero;
FinSi
si (numero>=0 y numero<=10) entonces
cantidadrango=cantidadrango+1;
FinSi
si u=1 Entonces
auxmayor=numero;
auxmenor=numero;
sino
si numero>auxmayor Entonces
auxmayor=numero;
FinSi
SI numero<auxmenor Entonces
AUXMENOR=numero;
FinSi
FinSi
Escribir 'DESEA SEGUIR INGRESANDO NUMEROS s/n:';
LEER consulta;
U=U+1;
FinMientras
escribir'------------- resultados --------------';
ESCRIBIR'CUANTOS PARES;',cantidadpares;
Escribir 'CANTIDAD DE Impares:',cantidadimpar;
Escribir 'suma pares:',sumapares;
Escribir 'suma impares:',sumaimpar;
Escribir 'cantidad de numeros entre 0 y 10:',cantidadrango;
escribir 'numero mayor de todos los ingresados:',auxmayor;
escribir 'numero menor que todo los inbgresados:',auxmenor;
Escribir 'cantidad de numeros que ingresaste son:',u;
FinAlgoritmo
-------------------------------
Algoritmo sin_titulo
definir nombreAlumno Como Caracter;
definir nota,i,u,suma Como Entero;
definir auxiliarpromedio,promedioauxiliar1,auxiliarpromedioma,promedio Como Real;
definir nombreauxiliar1,nombreauxiliarma,nombreauxiliar como caracter;
definir primeralumno Como Logico;
primeralumno=verdadero;
suma=0;
para i=1 hasta 2 hacer
escribir 'Alumno:',i;
escribir 'nombre alumno:';
leer nombreAlumno;
para u= 1 hasta 3 Hacer
escribir 'incluya nota',u;
leer nota;
suma=suma+nota;
FinPara
promedio=suma/u;
si (primeralumno) entonces
promedioauxiliar1=promedio;
nombreauxiliar1=nombreAlumno;
primeralumno=falso;
FinSi
si promedio > promedioauxiliar1 Entonces
nombreauxiliarma=nombreAlumno;
auxiliarpromedioma=promedio;
FinSi
si promedio < promedioauxiliar1 Entonces
nombreauxiliar=nombreAlumno;
auxiliarpromedio=promedio;
FinSi
FinPara
escribir'nombre del alumno mayor promedio:',nombreauxiliarma;
escribir'el promedio mayor es:',auxiliarpromedioma;
escribir'nombre del alumno menor promedio:',nombreauxiliar;
escribir'el promedio menor es:',auxiliarpromedio;
FinAlgoritmo
--------------------------------
Algoritmo sin_titulo
definir edad Como Entero;
definir despormujer como entero;
definir mayora65 como entero;
definir menora10 como entero;
definir preciot como entero;
definir mujer como logico;
mujer=verdadero;
///mayora65=verdadero;
///menora10=verdadero;
escribir 'incluya valor de tickette';
leer preciot;
escribir 'incluya edad:';
leer edad;
escribir 'sexo:';
si (edad > 65) o (edad < 10) entonces
descuen=(preciot * 0.15)-preciot;
Escribir 'desastres';
si
FinSi
FinAlgoritmo
--------------------
Algoritmo sin_titulo
definir i Como Entero;
dimension nombres[5];
dimension edades[5];
definir apre1,apre2 como entero;
para i desde 0 hasta 4
escribir 'nombre alumno:',i;
leer nombres(i);
Escribir 'edad alumno:',i;
leer edades(i);
FinPara
para i desde 0 hasta 4
si i=p o edades(i)>apre1 Entonces
apre1=edades(i);
escribir 'mayor'
FinSi
si edades(i) < apre1 Entonces
escribir 'menor';
FinSi
FinPara
FinAlgoritmo
------------------------
Algoritmo sin_titulo
definir nombre1,nombre2 Como Caracter;
definir i como entero;
definir existe como logico
Dimension nombre[5];
existe=Verdadero;
para i desde 0 hasta 4 hacer
escribir "nombre:";
leer nombre(i);
FinPara
escribir 'nombre 1 a buscar:'
leer nombre1;
escribir 'nombre 2 a buscar:'
leer nombre2;
para i desde 0 hasta 4 Hacer
si nombre1 = nombre(i) Entonces
escribir 'existe el nombre:',nombre1;
existe=Verdadero;
Sino
si nombre2 = nombre(i) Entonces
escribir 'existe el nombre:',nombre2;
existe=verdadero;
Sino
FinSi
FinSi
si (existe)entonces
escribir'no existe'
FinSi
FinPara
FinAlgoritmo
------------------------
Algoritmo sin_titulo
Dimension edades[10];
definir i como entero;
para i desde 0 hasta 9 hacer
escribir 'edad:',i;
leer edades[i];
//i=i+1;
finPara;
//Escribir 'edades:';
//leer edades(4);
para i desde 0 hasta 9 hacer
escribir 'posicion:',edades(i);
FinPara
FinAlgoritmo
----------------
Algoritmo sin_titulo
definir sumap,sumaimp,cantp Como Entero
definir sumaneg, cantimp, cantneg Como Entero
dimension numero0[5];
dimension numero1[5];
dimension numero2[10];
definir i,p Como Entero
i=0;
Mientras (i<=4) Hacer
Escribir 'numero par v 1',i;
leer numero0(i);
Escribir 'numero par v 2',i;
leer numero1(i);
i=i+1;
FinMientras
//cargar el vector 2 con el uno
i=0;
Repetir
numero2(i)=numero0(i);
//Escribir '---',i,".." ,numero2(i);
i=i+1
Hasta Que (i=5);
p=5;
i=0;
Repetir
numero2(p)=numero1(i);
//Escribir '---',i,".." ,numero2(i);
i=i+1
p=p+1
Hasta Que (p=10);
// para i desde 0 hasta 9 hacer
// Escribir '---',i,".." ,numero2(i);
// FinPara
i=0
para i desde 0 hasta 9 hacer
//suma y cantidad de numeros par
si (numero2(i)/2=0) entonces
sumap=sumap+numero2(i);
cantp=cantp+1
FinSi
//suma y cantidad de n umeros impares
si (numero2(i)/2=1)Entonces
sumaimp=sumaimp+1;
cantimp=cantimp+numero2(i);
FinSi
si numero2(i)<0 Entonces
sumaneg=sumaneg+numero2(1);
cantneg=cantneg+1;
FinSi
FinPara
Escribir 'suma de numeros pares:',sumap;
escribir 'cantidad de numeros pares son:',cantp;
Escribir 'suma de numeros impar:',sumaimp;
Escribir 'cantidad de numeros impares:',cantimp;
Escribir 'cantidad de numeros negativos:',cantneg;
Escribir 'suma de numeros negativos:',sumaneg;
FinAlgoritmo
------------------
Algoritmo sin_titulo
definir i Como Entero;
dimension nombres[5];
dimension edades[5];
definir apre1,apre2 como caracter;
definir suma,promedioedad como real;
definir auxm,aux,posim,posima como entero;
para i desde 0 hasta 4 hacer
Escribir 'nombre alumno:';
leer nombres(i);
Escribir 'incluya edad del alumno numero ',i;
leer edades(i);
suma=suma+edades(i);
FinPara
//.....................................
promedioedad=suma/i;
//............edad mayor.........................
para i desde 0 hasta 4 Hacer
si i=0 Entonces
auxm=edades(i);
Sino
si i > 0 y edades(i) > auxm Entonces
auxm=edades(i);
posima=i;
finsi
FinSi
FinPara
//...............................................
Escribir 'persona mayor:',nombres(posim);
Escribir 'edad del mayor:',auxm;
Escribir 'posicion:',posima;
//-------------------edad menor-----------------------------------
para i desde 0 hasta 4 Hacer
si i=0 Entonces
aux=edades(i);
Sino
si i>0 y edades(i) < aux Entonces
aux=edades(i);
posim=i;
finsi
FinSi
FinPara
Escribir 'persona menor:',nombres(posim);
Escribir 'edad del menor:',aux;
Escribir 'posicion:',posim;
escribir 'el promedio es:',promedioedad;
FinAlgoritmo
------------------
Algoritmo sin_titulo
definir long Como Entero
long=2;
Dimension nombres[long];
Dimension apellidos[long];
Dimension estadocivil[long];
Dimension edades[long];
Dimension salario[long];
definir c,i,s Como Entero
definir salpromedio,edadpromedio,edadprosolt,promesal,promedad,promesol Como Real;
para i desde 0 hasta long-1 Hacer
escribir 'datos del empleado numero:',i
Escribir 'nombre:';
leer nombres(i);
escribir 'apellido:';
leer apellidos(i);
escribir 'esta CASADO SI=S;NO=O:';
leer estadocivil(i);
escribir 'edad:';
leer edades(i);
Escribir 'salario:';
leer salario(i);
FinPara
C=0;
S=0;
Para i DESDE 0 HASTA long-1 HACER
//promedio general de salario
salpromedio=salpromedio+salario(i);
//edad promedio
edadpromedio=edadpromedio+edades(i);
c=c+1;
si estadocivil(i)="N" entonces
edadprosolt= edadprosolt+edades(i);
S=S+1;
FinSi
FinPara
promedad=edadpromedio/c;
promesal=salpromedio/c;
promesol=edadprosolt/s;
para i desde 0 hasta long-1 Hacer
si edades(i) > promesal Entonces
Escribir 'apellidos mayores son:';
Escribir ':',apellidos(i);
FinSi
FinPara
escribir 'apellidos de los empleados entre 44 y 55 años de edad:'
para i desde 0 hasta long-1 hacer
si edades(i) >= 44 y edades(i) <=55 Entonces
escribir 'apellidos:', apellidos(i);
FinSi
finpara
escribir 'nombre de los empleados con apellido gonzalez';
para i desde 0 hasta long-1 Hacer
si apellidos(i) = 'GONZALEZ' Entonces
ESCRIBIR':',nombres(i);
Escribir':',apellidos(i);
FinSi
FinPara
Escribir 'Promedio Gral de Fabrica Es....:',promesal;
escribir 'Edad Promedio..................:',promedad;
Escribir 'Promedio edad de los solteros..:',promesol;
escribir'nombre y apellidos de los casados con un salario menor de 20000p';
para i desde 0 hasta long-1 Hacer
si estadocivil(i)='S' y salario(i)<20000 entonces
escribir'nombre:',nombres(i);
escribir 'apellidos:',apellidos(i);
//Sino
// ESCRIBIR'NO SE ENCONTRARON'
FinSi
FinPara
FinAlgoritmo
--------------------------
No hay comentarios:
Publicar un comentario