Programación General > Pascal

 Piramide Pascal

(1/1)

pegui:
Hola a todos, Necesito ayuda porque tengo que hacer un programilla en pascal que por medio de bucles anidados, “mientras” me construya una pirámide de dígitos como la imagen de abajo, de tal manera que el número de líneas de la pirámide está dado por un número introducido por teclado.

                              1
                            010
                          10101
                        0101010
                      101010101
                    01010101010

Necisito que alguien me ayude sobre cual es la condiccion a poner en el while, porque no consigo dar con ello.
Gracias.

PROCEDURE piramide ()
VAR
     Numero:Integer;
BEGIN
     Write('Introduce un Número por teclado:');
     Read(Numero);
     WHILE ( ) DO

END;

Enko:
si el numero que lees es la altura de la piramide, entonces>

--- Código: Text --- while i <= Numero dobegin   for j:=1 to i do   begin       //aqui escribes los ceros o los unos.   end;   i := i + 1;end;   
Saludos

pegui:
En la solucíon que me has dado, como meto los unos y los ceros porque dependen del número que me metan.
si me meten un 1 solo muestro un 1, pero si me meten un 2 tengo que mostrar:
1
010
entonces nunca se lo que tengo que mostrar depende del numero introducido.Como hago????

Enko:
Es cuestion de tener una variable booleana e ir cambiando su valor entre verdadero o falso cada vez que  escribes un 1 o un 0.

--- Código: Text --- var   b: boolean;begin................if b then     Write('1')else    Write('0');end;b := not b;  Saludos

Navegación

[0] Índice de Mensajes