algoritmo


Gracias a Martín (Gustavo) 1

program Project1; {$mode objfpc}{$H+} uses{$IFDEF UNIX}{$IFDEF UseCThreads}cthreads,{$ENDIF}{$ENDIF}Classes{ you can add units after this }; {$R *.res}varnumero1,numero2,numero3,resultado: integer;seleccion:char;function suma(a,b,c:integer):integer;var resultado:integer;beginresultado:=a+b+c;suma:=resultado;end;function producto(a,b,c:integer):integer;var resutado:integer;beginresultado:=a*b*c;producto:=resultado;end; beginwriteln (‘ingrese los valores’);readln (numero1);readln (numero2);readln (numero3);writeln (‘que calculo desea realizar? (1 = suma / 2 = producto’);readln (seleccion);case seleccion of‘1’: writeln (suma(numero1,numero2,numero3));‘2’: writeln (producto(numero1,numero2,numero3));elsewriteln (‘no se ha ingresado […]


Ordenamiento Shell 1

El ordenamiento Shell (Shell sort en inglés) es un algoritmo de ordenamiento. El método se denomina Shell en honor de su inventor Donald Shell.Aunque es fácil desarrollar un sentido intuitivo de cómo funciona este algoritmo, es muy difícil analizar su tiempo de ejecución.El Shell sort es una generalización del ordenamiento […]