Algoritmia - nesecito el algoritmo de prim en c, pascal o java

porfabor necesito el algoritmo de prim en c++ o en pascal o en java.
les agradesco por ayudarme

si lo conseguiste mandamelo tambien lo necesito

Hola!!!!
d verdad necesito el algoritmo!!!!!!!!!!!!!

oye yo tmb necesito el algoritmo en java por si te lo pasan porfas pasalo, te lo agradecere mucho!!!!!!!!!!!!!!!

Yo tambien necesito ese algoritmo pero solo en java si ya alguien lo
consiguió por favor mandemelo se lo agradezco mucho.

nesecito el algoritmo de prim en c, pascal o java por favor a mas tardar esta semana

Hola lilia:

En esta página está el algoritmo de prim

http://es.wikipedia.org/wiki/Algoritmo_de_Prim

Espero que te sirva

Hola Gente. Les comento. Tengo hecho en Free Pascal al Algoritmo de Dijkstra, funciona bien, pero yo le tengo que ingresar los valores. Como lo voy a utilizar para una GRAN de datos, necesito ingresar los datos de otra manera que no sea manual o uno por uno. Me dieron la buenísima idea de que los datos vayan entrando de un archivo tipo txt... el problema es que no tengo idea como lo hago!!!! Por favor si alguien sabe cómo hacer le agradezco su infinita ayuda.
Gracias

Hola Gema:

Veo que tienen algún problema para coger datos desde el fichero. Te paso el Algoritmo para leer datos desde un fichero de texto. Son Caracteres y los puede hacer caracter a cacter o definiendo cadenas. Yo te paso el de caracter a caracter, en mi caso estan separados por caracteres en blanco

PROCEDURE Cargar_Matriz (var Grafo:TMatriz;VAR Dimencion:Integer;OPC:Integer);
VAR
fichero: Text;
NVertice: Integer;
Cadena: String;
Car:Char;
Long,DimX,DimY,Dimen,Num,Error,I,J,K: Integer;
BEGIN
Case opc of
1: ASSIGN(fichero,'\P4\Matriz1.txt');
2: ASSIGN(fichero,'\P4\Matriz2.txt');
END;
RESET(fichero);
READLN(fichero,Car);
Val(Car,Dimension,Error);
Inicializarray (Matriz,Dimension);

I:=1; J:=1;k:=0;
Readln(Fichero,cadena);
Long := length (cadena);
While not Eof(fichero) do
Begin
For J := 1 to dimension do
Begin
for k := 1 to Long do
If cadena[k] <> ' ' then
begin
Val(Cadena[k],Num,Error);
Matriz [J,I] := Num;
i:=i+1
end;
Readln(fichero,Cadena);
I:=1
end;
Origen := True;
Mostrar_Matriz_pantalla (Matriz,Dimension,Origen)
End;
CLOSE(fichero);
END;

Tambien te envi el fichero de datos, para que te sea más comodo

4
1 2 3 4
4 3 2 1
2 3 1 4
3 1 6 2

El primer número indica el orden de la matriz

Bueno espero que te sirva
Marisa