Pascal/Turbo Pascal - while y textcolor...

Estoy haciendo un programa que debe leer mi nombre, pero lo complicado es que me piden que haga que cambie a todos los colores eso no tiene problema, lo que pasa es que debe detenerse cuando llegue al color azul, utilizando la estructura "While".

Mi duda es mas si esto es posible hacer esto, por que ya intente todo lo que se me ocurrio...gracias

El color azul en modo texto VGA corresponde al valor 1, aunque Turbo Pascal define una constante Blue que vale 1 por comodidad y claridad. Sabiendo esto tu programa podría ser así:

uses crt;

var
Nombre: string;
Color: byte;

begin
clrscr;
Write:('Dime tu nombre: ');
ReadLn(Nombre);
randomize;
Color:=Random(16);
while not (Color = Blue) do
begin
TextColor(Color);
WriteLn(Nombre);
Color:=Random(16);
end; { while }
end. { main }

Gracias!!!Me sirvio mucho la ayuda.
cuando lo corre no se detiene en azul :(, ¿porque?
porque si lo corre bn pero se detiene en cualquier color,¿ no podria ser un error del random?

Hola Pris! No es un problema de random, es simplemente que se detiene cuando aparece el azul, pero no lo muestra... modifico el código de Diego para que lo haga:

uses crt;

var
Nombre: string;
Color: byte;

begin
clrscr;
Write('Dime tu nombre: ');
ReadLn(Nombre);
randomize;
repeat
Color:=Random(16);
TextColor(Color);
WriteLn(Nombre);
until(Color = Blue);
ReadLn;
end. { main }

Uso el repeat porque al menos 1 vez lo tengo que hacer, debido a que la condición de corte, también se incluye (que sea de color azul, e imprimirlo igual).

Hasta luego!

Si habia pensado en until, pero como todavia no nos lo han enseñado a utilizar, me quede solo con la idea del "while".

Muchas Gracias a los dos !!

Ok Pris... de todas formas, si quieres hacerlo con WHILE, lo único que debes hacer es, fuera del while, para que se realice sólo cuando encuentre el azul, repetir las instrucciones TextColor y Write... nuevamente con el ejemplo de Diego:

uses crt;

var
Nombre: string;
Color: byte;

begin
clrscr;
Write:('Dime tu nombre: ');
ReadLn(Nombre);
randomize;
Color:=Random(16);
while not (Color = Blue) do
begin
TextColor(Color);
WriteLn(Nombre);
Color:=Random(16);
end; { while }
{ aqui agregas la linea para estableces el color, y escribir el nombre }
TextColor(Color);
WriteLn(Nombre);
ReadLn; { así puedes ver el resultado, no relevante }
end. { main }

Un beso!

de hecho me sirve mas esta por que no se bn si me acepten repeat, pero como las dos funcionan voy a utilizar las dos