Programación General > Pascal

 Floyd

(1/1)

Kilmiss:
program prog;
uses wincrt;
var x,y,j,i,num:integer;
begin
x:=1;
writeln('numero');
readln(num);
for i:=1 to num do
begin
for j:=1 to i do
 begin
  y:=x+i;
  write(y-j);
  x:=x+1;
 end;
writeln;

end;
end.

---------------

deberia salirme un triangulo tal que
1
3 2
6 5 4
10 9 8 7

pero me sale
1
3 3
6 6 6
10 10 10 10

y es que el valor de x me aumenta en la misma cantidad que aumenta la columna( j ) y por eso se me repiten, pero claro, si le pongo otra cantidad ya no me salen los valores de la primera columna.. en fin, alguien sabe que algoritmo puedo utilizar??? gracias!!

mamex:
Que tal, mira yo lo hice en C, y traté de pasarlo a pascal, éste es el codigo k me kedó:


--- Código: Text --- program prog;uses wincrt;var c,y,j,i,num:integer;begin  writeln('numero');  readln(num);  for i:=0 to num-1 do  begin    (*Tamaño del triangulo hasta antes de este renglon*)    tam = ((i+1)*i)/2;    for j:=0 to i do    begin      c=tam+(i+1-j);      write(c);    end;    writeln;  end;end.  
Espero y esto te ayude   :hola:

Kilmiss:
probare hoy!! gracias chico! : )

nataliaseron:
Espero y esto te ayude   :hola:[/QUOTE]
Hola!!! me podes pasar el código en pascal del algoritmo de floyd si lo tenes? lo  necesito urgente para la universidad!!!! gracias.
Gracias
Natalia

editado No se hacen tareas, mucho menos se envian al correo personal.
¿Acaso además quieres que lo entreguen por ti?

erluiso:
Yo di pascal en la universidad te lo busco a ver si lo encuentro

Navegación

[0] Índice de Mensajes