SoloCodigo

Programación General => Pascal => Mensaje iniciado por: darmigmar en Jueves 2 de Diciembre de 2004, 05:14

Título: Números Primos
Publicado por: darmigmar en Jueves 2 de Diciembre de 2004, 05:14

Hola, what's up?  B)  :hola:

Acá les dejo un programa que averigua números primos desde el número que elijan hasta que presionen la tecla Q.

lala

Título: Re: Números Primos
Publicado por: Dunadan en Sábado 11 de Diciembre de 2004, 23:13

Buenas,  es la primera vez que posteo en este foro, aparte hace no mucho que programo, asi q si mis preguntas son bobas, al menos avisé  :P

Estuve viendo tu programa, esta bueno y es entendible, salvo que no entendi un linea, a ver si me podes aclarar....

Código: Text

1. If Relacion=true then
2.       begin
3.         Write(#13); <<<<< esta no entiendo
4.         TextColor(lightblue);
5.         Writeln(Num);
6.         fin:=readkey;
7.         TextColor(white)
8.       end;
9.  
10.  

Write nunca lo utilice asi, pienso que sera algun codigo ascii, el de retorno de carro, pero no estoy seguro.  Bueno, espero no haberte confundido con mi pregunta.

Sayounara

Título: Re: Números Primos
Publicado por: darmigmar en Lunes 13 de Diciembre de 2004, 03:07

Tenés razón, es el código ascii 13, que sirve para ir hasta el principio del renglón en el que se encuentra el cursor, y se enuncia en un write.

Código: Text

1.  
2.  
3. If Relacion=true then
4.      begin
5.        Write(#13); {va al principio del renglón donde esté el cursor}
6.        TextColor(lightblue); {cambia el color del texto, para marcar que es primo}
7.        Writeln(Num); {sobreescribe el número con el color cambiado}
8.        fin:=readkey; {lee si presionas la tecla para terminar}
9.        TextColor(white) {cambia el color del texto para que los próximos números
10.                                          no primos no tengan el mismo color que los primos}
11.      end;
12.  
13.