|
|
|
|
|
En esta sección pienso poner todos los algoritmos
de programación que vaya encontrando . En un principio pondré
los más comunes y luego irán apareciendo los más rebuscados
. Utilizaré el lenguaje de programación Pascal para implementarlos
pero su paso a pseudocódigo es muy fácil y de ahí
a otro lenguaje de programación es también fácil .
Si tienes algún algoritmo que creas que puede
servir a alguien , no tienes nada más que enviármelo junto
a una descripción de lo que hace y lo colgaré en esta página
junto a tu nombre .
Espero que esta nueva sección sea del provecho
de los programadores .
| Este
procedimiento ordena
un vector de enteros por el método
de la burbuja . Le introducimos el vector
a ordenar y el rango del vector . Aunque es un algoritmo muy poco eficiente
, es muy util ver su funcionamiento . |
procedure
Burbuja( var V : array
[1..n]
of Integer; n : Integer );
var i,j,x : Integer;
begin
for i
:=2 to n do
for j := n downto i do
if V[j-1] > V[j] then begin
x := V[j-1];
V[j-1] := V[j];
V[j] := x
end
end ; |
| Esta
función calcula el producto de dos
matrices cuadradas de orden n x n . Las entradas
son las dos matrices y el orden ; y la salida es una matriz que es el producto
de las otras dos . |
function Prod_Mat ( A,B:array [1..n]
of
Integer
; n : Integer ):array [1..n] of Integer;
var C:array [1..n] of Integer;
i,j,k : Integer;
begin
for i:=1
to n do
for j:=
1 to n do begin
C[i,j]:=0;
for k:=1 to n do C[i,j]:=C[i,j] + ( A[i,k] * B[k,j]
)
end
end; |
| Esta
función calcula el factorial
de un número . La entrada es el número entero y la salida
es su factorial . |
function Fact ( n : Integer ): Integer;
begin
if n
<= 1 then Fact:=1
else
fact:= n * fact( n-1 )
end; |
| Esta
función calcula la potencia
de un número . La entrada es el número entero y la potencia y la salida es el número elevado a la potencia . Está en Visual Basic y ha sido cedido por richard.aparicio.externo@petrobras.com.bo |
public function exponente (x as integer, n as integer) as integer
if n = 0 then
exponente = 1
else exponente = x * exponente(x , n - 1)
end if
end function
|
| Algoritmo en Pascal cedido por Carlos Hernández |
program jtrompo;
var trompo: integer;
ch: char;
begin
ch:='s';
randomize;
while ch <> 'n' do
begin
trompo:=(random(5));
writeln(trompo);
if (trompo=5) then writeln ('toma todo');
if (trompo=3) then writeln ('pon uno');
if (trompo=2) then writeln ('pon dos');
if (trompo=1) then writeln ('toma uno');
if (trompo=4) then writeln ('toma dos');
if (trompo=0) then writeln ('todos ponen');
writeln('desea continuar marque s...n para salir del juego');
readln(ch);
end>;
end.
|
|
|
| Envíame tu algoritmo | |
|
|
|
