ayuda con algoritmo

[salvadoresc]

no lo que pasa es que lo hicimos en el 2003 para una tarea de la universidad...

al 2005 aun no le he metido mano no he tenido tiempo y como no le hago mucho a la programacion... al menos no trabajo de eso pero si me gusta casi solo diseñando en el photoshop paso jejeje 

[vlad]

No se si ya lo terminaste, pero basado en la idea de Trance aqui te dejo los códigos necesarios para las 3 piramides en Pascal.

La verdad investigué un poco por lo del formateo de cadenas y todo eso, la verdad existe el comando "Format", pero su uso dista mucho de parecerse al que acostumbro usar en VB6... así que mejor opté por imitar lo que haría un Format bien aplicado.

A la Izquierda:

Código: [Seleccionar]

Program Prueba;
VAR
Contador : Integer;
Espacios : Integer;
PosicionY : Integer;
PosicionX : Integer;

BEGIN
FOR PosicionY := 0 to 4 DO
    BEGIN
    For PosicionX := 0 to PosicionY DO
         BEGIN
         INC(Contador);
         Write(Contador);
         If contador < 10 Then Write(' ');
         write(' ');
         END;
    WriteLn;
END;
END.

Al Centro:

Código: [Seleccionar]

Program Prueba;
VAR
Contador : Integer;
Espacios : Integer;
PosicionY : Integer;
PosicionX : Integer;

BEGIN
FOR PosicionY := 0 to 4 DO
    BEGIN

    FOR Espacios := 1 to 4 - PosicionY  DO
         BEGIN
         Write(' ')
         END;

     For PosicionX := 0 to PosicionY DO
         BEGIN
         INC(Contador);
         If contador < 10 Then Write(' ');
         Write(Contador);
         write(' ');
         END;
    WriteLn;
END;
END.

A la derecha:

Código: [Seleccionar]

Program Prueba;
VAR
Contador : Integer;
Espacios : Integer;
PosicionY : Integer;
PosicionX : Integer;

BEGIN
FOR PosicionY := 0 to 4 DO
    BEGIN

    FOR Espacios := 1 to 12 - (PosicionY * 3) DO
         BEGIN
         Write(' ')
         END;

     For PosicionX := 0 to PosicionY DO
         BEGIN
         INC(Contador);
         If contador < 10 Then Write(' ');
         Write(Contador);
         write(' ');
         END;
    WriteLn;
END;
END.

Lo hice en Turbo Pascal 7.0 que encontré acá:

Código: [Seleccionar]

http://www.terra.es/personal/ffrrbb/elrincondelpascal/Download/TurboPascal.htm

Tambien te adjunto el práctico manual que te enseña todo lo básico en 1:00hora:

Código: [Seleccionar]

http://hacksharing.hacksal.com/file.php?file=726af0c94717a03391ce79c442a1de87
PD: Ojalá que tu profe no ande por estos rumbos... 

[moyo18]

muchas grcias bladimir, bueno el codigo no lo necesitaba, solo el algoritmo, pero con eso me baso a hacer el algoritmo, muchisimas gracias jeje, pero gueno intentare hacerlo por mi cuenta tambien para aprender, y pues nah mi profe ni se da vuelta por estoy rumbos porq no entiende espa;ol, solo habla ingles  , y leere el manula porq empezaoms con pascal y luego pasamos a delphi.