Programación General > Pascal

 Números Primos

(1/1)

darmigmar:
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

Dunadan:
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 ---If Relacion=true then      begin        Write(#13); <<<<< esta no entiendo        TextColor(lightblue);        Writeln(Num);        fin:=readkey;        TextColor(white)      end;  
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

darmigmar:
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 ---  If Relacion=true then     begin       Write(#13); {va al principio del renglón donde esté el cursor}       TextColor(lightblue); {cambia el color del texto, para marcar que es primo}       Writeln(Num); {sobreescribe el número con el color cambiado}       fin:=readkey; {lee si presionas la tecla para terminar}       TextColor(white) {cambia el color del texto para que los próximos números                                         no primos no tengan el mismo color que los primos}     end;  

Navegación

[0] Índice de Mensajes