PROGRAMACION EN PASCAL
program SegundoMenor;
var segmenor,men,a,b,c,d,e:integer;
Function Menor2(a,b:integer):integer;
begin
men:=a;
if b<a then men:=b;
Menor2:=men;
end;
Function Menor3(a,b,c:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
Menor3:=men;
end;
Function Menor4(a,b,c,d:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
if d<men then men:=d;
Menor4:=men;
end;
Function Menor5(a,b,c,d,e:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
if d<men then men:=d;
if e<men then men:=e;
Menor5:=men;
end;
begin
writeln('Introduzca los numeros');
readln(a,b,c,d,e);
//MENOR DE 2 PRIMEROS NUMEROS
men:= Menor2(a,b);
if men=a then men:=b;
writeln('El segundo menor de ',a,',',b,' es = ',men);
//MENOR DE 3 PRIMEROS DIGITOS
men:=Menor3(a,b,c);
if men=a then
segmenor:=Menor2(b,c) else
if men=b then
segmenor:= Menor2 (a,c) else
if men=c then
segmenor:=Menor2 (a,b);
writeln('El segundo menor de ',a,',',b,',',c,' es = ',segmenor);
//MENOR DE 4 PRIMEROS DIGITOS
men:=Menor4(a,b,c,d);
if men=a then
segmenor:=Menor3(b,c,d) else
if men=b then
segmenor:=Menor3(a,c,d) else
if men=c then
segmenor:=Menor3(a,b,d) else
if men=d then
segmenor:=Menor3(a,b,c);
writeln('El segundo menor de ',a,',',b,',',c,',',d,' es = ',segmenor);
//MENOR DE 5 PRIMEROS DIGITOS
men:=Menor5(a,b,c,d,e);
if men=a then
segmenor:=Menor4(b,c,d,e) else
if men=b then
segmenor:=Menor4(a,c,d,e) else
if men=c then
segmenor:=Menor4(a,b,d,e) else
if men=d then
segmenor:=Menor4(a,b,c,e) else
if men=e then
segmenor:=Menor4(a,b,c,d);
writeln('El segundo menor de ',a,',',b,',',c,',',d,',',e,' es = ',segmenor);
readln;
end.
program SegundoMayor;
var segmay,may,a,b,c,d,e:integer;
Function Mayor2(a,b:integer):integer;
begin
may:=a;
if b>a then may:=b;
Mayor2:=may;
end;
Function Mayor3(a,b,c:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
Mayor3:=may;
end;
Function Mayor4(a,b,c,d:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
if d>may then may:=d;
Mayor4:=may;
end;
Function Mayor5(a,b,c,d,e:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
if d>may then may:=d;
if e>may then may:=e;
Mayor5:=may;
end;
begin
writeln('Introduzca los 5 numeros');
readln(a,b,c,d,e);
//SEGUNDO MAYOR DE 2 DIGITOS
may:=mayor2(a,b);
if may=a then
segmay:=b else segmay:=a;
writeln('El segundo mayor entre ',a,',',b,' es = ',segmay);
//SEGUNDO MAYOR DE 3 DIGITOS
may:=mayor3(a,b,c);
if may=a then
segmay:=mayor2(b,c) else
if may=b then
segmay:=mayor2(a,c) else
if may=c then
segmay:=mayor2(a,b);
writeln('El segundo mayor entre ',a,',',b,',',c,' es = ',segmay);
//SEGUNDO MAYOR DE 4 DIGITOS
may:=mayor4(a,b,c,d);
if may=a then
segmay:=mayor3(b,c,d) else
if may=b then
segmay:=mayor3(a,c,d) else
if may=c then
segmay:= mayor3(a,b,d) else
if may=d then
segmay:= mayor3(a,b,c);
writeln('El segundo mayor entre ',a,',',b,',',c,',',d,' es = ',segmay);
//SEGUNDO MAYOR DE 5 DIGITOS
may:=mayor5(a,b,c,d,e);
if may=a then
segmay:=mayor4(b,c,d,e) else
if may=b then
segmay:=mayor4(a,c,d,e) else
if may=c then
segmay:= mayor4(a,b,d,e) else
if may=d then
segmay:= mayor4(a,b,c,e) else
if may=e then
segmay:= mayor4(a,b,c,d);
writeln('El segundo mayor entre ',a,',',b,',',c,',',d,',',e,' es = ',segmay);
readln;
end
program TercerMayor;
var termay,segmay,may,a,b,c,d,e:integer;
Function Mayor2(a,b:integer):integer;
begin
may:=a;
if b>a then may:=b;
Mayor2:=may;
end;
Function Mayor3(a,b,c:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
Mayor3:=may;
end;
Function Mayor4(a,b,c,d:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
if d>may then may:=d;
Mayor4:=may;
end;
Function Mayor5(a,b,c,d,e:integer):integer;
begin
may:=a;
if b>a then may:=b;
if c>may then may:=c;
if d>may then may:=d;
if e>may then may:=e;
Mayor5:=may;
end;
Function Segmayor2(a,b:integer):integer;
begin
may:=mayor2(a,b);
if may=a then
segmay:=b else segmay:=a;
segmayor2:=segmay;
end;
Function Segmayor3(a,b,c:integer):integer;
begin
may:=mayor3(a,b,c);
if may=a then
segmay:=mayor2(b,c) else
if may=b then
segmay:=mayor2(a,c) else
if may=c then
segmay:=mayor2(a,b);
segmayor3:=segmay;
end;
Function Segmayor4(a,b,c,d:integer):integer;
begin
may:=mayor4(a,b,c,d);
if may=a then
segmay:=mayor3(b,c,d) else
if may=b then
segmay:=mayor3(a,c,d) else
if may=c then
segmay:= mayor3(a,b,d) else
if may=d then
segmay:= mayor3(a,b,c);
segmayor4:=segmay;
end;
Function Segmayor5(a,b,c,d,e:integer):integer;
begin
may:=mayor5(a,b,c,d,e);
if may=a then
segmay:=mayor4(b,c,d,e) else
if may=b then
segmay:=mayor4(a,c,d,e) else
if may=c then
segmay:= mayor4(a,b,d,e) else
if may=d then
segmay:= mayor4(a,b,c,e) else
if may=e then
segmay:= mayor4(a,b,c,d);
segmayor5:=segmay;
end;
begin
writeln('Ingrese los 5 numeros');
readln(a,b,c,d,e);
//TERCER MAYOR DE 3 NUMEROS
segmay:=segmayor3(a,b,c);
if segmay=a then termay:=segmayor2(b,c) else
if segmay=b then termay:=segmayor2(a,c) else
if segmay=c then termay:=segmayor2(a,b);
writeln('El tercer mayor de ',a,',',b,',',c,' es el = ',termay);
//TERCER MAYOR DE 4 NUMEROS
segmay:=segmayor4(a,b,c,d);
if segmay=a then termay:=segmayor3(b,c,d) else
if segmay=b then termay:=segmayor3(a,c,d) else
if segmay=c then termay:=segmayor3(a,b,d) else
if segmay=d then termay:=segmayor3(a,b,c);
writeln('El tercer mayor de ',a,',',b,',',c,',',d,' es el = ',termay);
//TERCER MAYOR DE 5 NUMEROS
segmay:=segmayor4(a,b,c,d);
if segmay=a then termay:=segmayor4(b,c,d,e) else
if segmay=b then termay:=segmayor4(a,c,d,e) else
if segmay=c then termay:=segmayor4(a,b,d,e) else
if segmay=d then termay:=segmayor4(a,b,c,e) else
if segmay=e then termay:=segmayor4(a,b,c,d);
writeln('El tercer mayor de ',a,',',b,',',c,',',d,',',e,' es el = ',termay);
readln;
end.
program TercerMenor;
var termenor,segmenor,men,a,b,c,d,e:integer;
Function Menor2(a,b:integer):integer;
begin
men:=a;
if b<a then men:=b;
Menor2:=men;
end;
Function Menor3(a,b,c:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
Menor3:=men;
end;
Function Menor4(a,b,c,d:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
if d<men then men:=d;
Menor4:=men;
end;
Function Menor5(a,b,c,d,e:integer):integer;
begin
men:=a;
if b<a then men:=b;
if c<men then men:=c;
if d<men then men:=d;
if e<men then men:=e;
Menor5:=men;
end;
Function segmenor2(a,b:integer):integer;
begin
men:= Menor2(a,b);
if men=a then men:=b;
segmenor2:=men;
end;
Function segmenor3(a,b,c:integer):integer;
begin
men:=Menor3(a,b,c);
if men=a then
segmenor:=Menor2(b,c) else
if men=b then
segmenor:= Menor2 (a,c) else
if men=c then
segmenor:=Menor2 (a,b);
segmenor3:=segmenor;
end;
Function segmenor4(a,b,c,d:integer):integer;
begin
men:=Menor4(a,b,c,d);
if men=a then
segmenor:=Menor3(b,c,d) else
if men=b then
segmenor:=Menor3(a,c,d) else
if men=c then
segmenor:=Menor3(a,b,d) else
if men=d then
segmenor:=Menor3(a,b,c);
segmenor4:=segmenor;
end;
Function segmenor5(a,b,c,d,e:integer):integer;
begin
men:=Menor5(a,b,c,d,e);
if men=a then
segmenor:=Menor4(b,c,d,e) else
if men=b then
segmenor:=Menor4(a,c,d,e) else
if men=c then
segmenor:=Menor4(a,b,d,e) else
if men=d then
segmenor:=Menor4(a,b,c,e) else
if men=e then
segmenor:=Menor4(a,b,c,d);
segmenor5:=segmenor;
end;
begin
writeln('Ingrese los 5 numeros');
readln(a,b,c,d,e);
//TERCER MENOR DE 3 NUMEROS
segmenor:=segmenor3(a,b,c);
if segmenor=a then termenor := segmenor2(b,c) else
if segmenor=b then termenor := segmenor2(a,c) else
if segmenor=c then termenor := segmenor2(a,b);
writeln('El tercer menor de ',a,',',b,',',c,' es el = ',termenor);
//TERCER MENOR DE 4 NUMEROS
segmenor:=segmenor4(a,b,c,d);
if segmenor=a then termenor := segmenor3(b,c,d) else
if segmenor=b then termenor := segmenor3(a,c,d) else
if segmenor=c then termenor := segmenor3(a,b,d) else
if segmenor=d then termenor := segmenor3(a,b,c);
writeln('El tercer menor de ',a,',',b,',',c,',',d,' es el = ',termenor);
//TERCER MENOR DE 5 NUMEROS
segmenor:=segmenor5(a,b,c,d,e);
if segmenor=a then termenor := segmenor4(b,c,d,e) else
if segmenor=b then termenor := segmenor4(a,c,d,e) else
if segmenor=c then termenor := segmenor4(a,b,d,e) else
if segmenor=d then termenor := segmenor4(a,b,c,e) else
if segmenor=e then termenor := segmenor4(a,b,c,d);
writeln('El tercer menor de ',a,',',b,',',c,',',d,',',e,' es el = ',termenor);
readln;
end.
PROGRAMACION EN JAVA
//Menor utilizando variable auxiliar de 2 numeros.
public static int menorAux2(int a, int b){
if (a<b)return a;
else return b;
//Menor utilizando variable auxiliar de 3 numeros.
public static int menorAux3(int a, int b, int c){
int men=a;
if (b<men) men=b;
if (c<men) men=c;
return men;
//Menor utilizando variable auxiliar de 4 numeros.
public static int menorAux4(int a, int b, int c,int d){
int men=a;
if (b<men) men=b;
if (c<men) men=c;
if (d<men) men=d;
return men;
//Menor utilizando variable auxiliar de 5 numeros.
public static int menorAux5(int a, int b, int c,int d, int e){
int men=a;
if (b<men) men=b;
if (c<men) men=c;
if (d<men) men=d;
if (e<men) men=e;
return men;
}
//Menor utilizando variable auxiliar de 2 numeros.
public static int mayorAux2(int a, int b){
if (a>b)return a;
else return b;
//Menor utilizando variable auxiliar de 3 numeros.
public static int mayorAux3(int a, int b, int c){
int may=a;
if (b>may) may=b;
if (c>may) may=c;
return may;
//Mayor utilizando variable auxiliar de 4 numeros.
public static int mayorAux4(int a, int b, int c,int d){
int may=a;
if (b>may) may=b;
if (c>may) may=c;
if (d>may) may=d;
return may;
//Mayor utilizando variable auxiliar de 5 numeros.
public static int mayorAux5(int a, int b, int c,int d, int e){
int may=a;
if (b>may) may=b;
if (c>may) may=c;
if (d>may) may=d;
if (e>may) may=e;
return may;
//Menor utilizando operadores logicos 2 numeros.
public static int menorAnd2(int a, int b){
if (a<b) return a;
else return b;
//Menor utilizando operadores logicos 3 numeros.
public static int menorAnd3(int a, int b, int c){
if (a<b && a<c) return a;
if (b<a && b<c) return b;
else return c;
//Menor utilizando operadores logicos 4 numeros.
public static int menorAnd4(int a, int b, int c, int d){
if (a<b && a<c && a<d) return a;
if (b<a && b<c && b<d) return b;
if (c<a && c<b && c<d) return c;
else return d;
//Menor utilizando operadores logicos 5 numeros.
public static int menorAnd5(int a, int b, int c, int d, int e){
if (a<b && a<c && a<d && a<e) return a;
if (b<a && b<c && b<d && b<e) return b;
if (c<a && c<b && c<d && c<e) return c;
if (d<a && d<b && d<c && d<e) return d;
else return e;
//Mayor utilizando operadores logicos 2 numeros.
public static int mayorAnd2(int a, int b){
if (a>b) return a;
else return b;
//Mayor utilizando operadores logicos 3 numeros.
public static int mayorAnd3(int a, int b, int c){
if (a>b && a>c) return a;
if (b>a && b>c) return b;
else return c;
//Mayor utilizando operadores logicos 4 numeros.
public static int mayorAnd4(int a, int b, int c, int d){
if (a>b && a>c && a>d) return a;
if (b>a && b>c && b>d) return b;
if (c>a && c>b && c>d) return c;
else return d;
//Mayor utilizando operadores logicos 5 numeros.
public static int mayorAnd5(int a, int b, int c, int d, int e){
if (a>b && a>c && a>d && a>e) return a;
if (b>a && b>c && b>d && b>e) return b;
if (c>a && c>b && c>d && c>e) return c;
if (d>a && d>b && d>c && d>e) return d;
else return e;
//Menor de 2 numeros llamado a otras fuunciones.
public static int menorLlamanoF2(int a, int b){
return (menorAnd2(a,b));
//Menor de 3 numeros llamado a otras fuunciones.
public static int menorLlamanoF3(int a, int b, int c){
return menorAnd2(menorAnd2(a,b),c);
//Menor de 4 numeros llamando a otras funciones.
public static int menorLlamanoF4(int a, int b, int c,int d){
return menorAnd2(menorAnd2(a,b),menorAnd2(c,d));
}
//Menor de 5 numeros llamando a otra funciones.
public static int menorLlamanoF5(int a, int b, int c,int d, int e){
return menorAnd2(menorAnd2(c,d),e);
//Menor de 2 numeros llamado a otras fuunciones.
public static int mayorLlamanoF2(int a, int b){
return (mayorAnd2(a,b));
//Mayor de 3 numeros llamando a otra funciones.
public static int mayorLlamanoF3(int a, int b, int c){
return mayorAnd2(mayorAnd2(a,b),c);
//Mayor de 4 numeros llamando a otra funciones.
public static int mayorLlamanoF4(int a, int b, int c,int d){
return mayorAnd2(mayorAnd2(a,b),menorAnd2(c,d));
//Mayor de 5 numeros llamando a otra funciones.
public static int mayorLlamandoF5(int a, int b, int c,int d, int e){
return mayorAnd2(mayorAnd2(c,d),e);
//Segundo Menor de 2 numeros.
public static int segMenor2(int a, int b){
int men = menorAnd2 (a,b);
if (a == men) return b;
else return a;
//Segundo Menor de 3 numeros.
public static int segMenor3(int a, int b, int c){
int men = menorAnd3 (a,b,c);
if (a == men) return menorAnd2(b,c);
if (b == men) return menorAnd2(a,c);
else return menorAnd2(a,b);
//Segundo Menor de 4 numeros.
public static int segMenor4(int a, int b, int c,int d){
int men = menorAnd4 (a,b,c,d);
if (a == men) return menorAnd3(b,c,d);
if (b == men) return menorAnd3(a,c,d);
if (c == men) return menorAnd3(a,b,d);
if (d == men) return menorAnd3(a,b,c);
else return menorAnd3(a,b,c);
//Segundo Menor de 5 numeros.
public static int segMenor5(int a, int b, int c,int d, int e){
int men = menorAnd5 (a,b,c,d,e);
if (a == men) return menorAnd4(b,c,d,e);
if (b == men) return menorAnd4(a,c,d,e);
if (c == men) return menorAnd4(a,b,d,e);
if (d == men) return menorAnd4(a,b,c,d);
else return menorAnd4(a,b,c,d);
//Segundo Menor de 2 numeros.
public static int segMayor2(int a, int b){
int may = mayorAnd2 (a,b);
if (a == may) return b;
else return a;
//Segundo Menor de 3 numeros.
public static int segMayor3(int a, int b, int c){
int may = mayorAnd3 (a,b,c);
if (a == may) return mayorAnd2(b,c);
if (b == may) return mayorAnd2(a,c);
else return mayorAnd2(a,b);
//Segundo Menor de 4 numeros.
public static int segMayor4(int a, int b, int c,int d){
int may = mayorAnd4 (a,b,c,d);
if (a == may) return mayorAnd3(b,c,d);
if (b == may) return mayorAnd3(a,c,d);
if (c == may) return mayorAnd3(a,b,d);
if (d == may) return mayorAnd3(a,b,c);
else return mayorAnd3(a,b,c);
//Segundo Menor de 5 numeros.
public static int segMayor5(int a, int b, int c,int d, int e){
int may = mayorAnd5 (a,b,c,d,e);
if (a == may) return mayorAnd4(b,c,d,e);
if (b == may) return mayorAnd4(a,c,d,e);
if (c == may) return mayorAnd4(a,b,d,e);
if (d == may) return mayorAnd4(a,b,c,d);
else return mayorAnd4(a,b,c,d);
//Tercer menor de 3 numeros.
public static int terMenor3(int a, int b, int c){
int men = segMenor3(a,b,c);
if (a < men) return segMenor2(b,c);
if (b < men) return segMenor2(a,c);
else return segMenor2(a,b);
//Tercer menor de 4 numeros.
public static int terMenor4(int a, int b, int c,int d){
int men = segMenor4(a,b,c,d);
if (a < men) return segMenor3(b,c,d);
if (b < men) return segMenor3(a,c,d);
if (c < men) return segMenor3(a,b,d);
else return segMenor3(a,b,c);
//Tercer menor de 5 numeros.
public static int terMenor5(int a, int b, int c,int d, int e){
int men = segMenor5(a,b,c,d,e);
if (a < men) return segMenor4(b,c,d,e);
if (b < men) return segMenor4(a,c,d,e);
if (c < men) return segMenor4(a,b,d,e);
if (d < men) return segMenor4(a,b,c,e);
else return segMenor4(a,b,c,d);
//Tercer mayor de 3 numeros.
public static int terMayor3(int a, int b, int c){
int may = segMayor3(a,b,c);
if (a > may) return segMayor2(b,c);
if (b > may) return segMayor2(a,c);
else return segMayor2(a,b);
//Tercer mayor de 4 numeros.
public static int terMayor4(int a, int b, int c,int d){
int may = segMayor4(a,b,c,d);
if (a > may) return segMayor3(b,c,d);
if (b > may) return segMayor3(a,c,d);
if (c > may) return segMayor3(a,b,d);
else return segMayor3(a,b,c);
//Tercer mayor de 5 numeros.
public static int terMayor5(int a, int b, int c,int d, int e){
int may = segMayor5(a,b,c,d,e);
if (a > may) return segMayor4(b,c,d,e);
if (b > may) return segMayor4(a,c,d,e);
if (c > may) return segMayor4(a,b,d,e);
if (d > may) return segMayor4(a,b,c,e);
else return segMayor4(a,b,c,d);
