Programación General > Pascal

 asteriscos

(1/1)

Divil:
Hola, necesito ayuda para hacer un programa con while y/o repeat que haga lo siguiente:
*
**
***
****
*****
y otro:
*
_*
__*
___*
____*
pero no lo puedo hacer escribiendo write(' * ');

MinDokan:

--- Cita de: "Divil" ---Hola, necesito ayuda para hacer un programa con while y/o repeat que haga lo siguiente:
*
**
***
****
*****
y otro:
*
_*
__*
___*
____*
pero no lo puedo hacer escribiendo write(' * ');
--- Fin de la cita ---

Hola devil, pasé un rato por el foro para mirar, y como tengo tiempo te voy a tirar una mano.
Eso que te plantean es para que aprendas a usar las estructuras while y repeat, y la única forma de comprenderla es practicando. De hecho yo lo estoy haciendo mientras te ayudo :P

Mirá, algo así.

--- Código: Pascal --- var cont:integer;    car:string;cont:=0; // un contador para el while, para que termine alguna vez...car:=''; //car limpio     while cont<5 do //5, que van a ser las 5 líneas      begin      car:=car+'*'; //pascal puede sumar cosas del mismo tipo. num con num, car con car... por ejemplo.      cont:=cont+1; //incremento contador, por eso antes lo puse en 0.      writeln(car); //escribo car y listo      end; //cierro el while. 
Posiblemente te esté haciendo todo, pero es lo más simple para explicar,  :( , mi consejo es que lo leas, y trates de entender el código.

Saludos y suerte, después subí como lo hiciste ;)

Divil:
Gracias! Pura vida!

MinDokan:

--- Cita de: "Divil" ---Gracias! Pura vida!
--- Fin de la cita ---
De nada.
Saludos.

Navegación

[0] Índice de Mensajes