Pascal/Turbo Pascal - Sacar numero a archivo de texto

 
Vista:

Sacar numero a archivo de texto

Publicado por Alejandro (2 intervenciones) el 06/05/2004 17:43:39
Quisiera saber si en TURBO PASCAL version 5.5 se puede pasar numeros a un archivo de texto.
El tema es el siguiente, yo hago un programa que imprime 1 millon de numeros de una sola variable, el tema es que yo quiero ver estos numeros y copiarlos, pero el programa va muy rapido, lo que me gustaria hacer es que copie estos numeros a un archivo de texto, para yo poder verlos y hacer con ellos graficos u otro tipo de cosas.
Agradeceria que me ayudaran ya que es algo muy importante para mi y lo necesito de urgencia

Saludos
Alejandro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sacar numero a archivo de texto

Publicado por Hurricane (73 intervenciones) el 07/05/2004 02:07:47
Alejandro, esto es ólo un ejemplo, pero te puede servir:

Program GrabaNumeros;

Var
Ch :Text;
Num :LongInt;

Begin
Assign(Ch,'C:\NUMEROS.TXT');
ReWrite(Ch);
For Num := 1 to 10000 do
WriteLn(C, Num);
Close(Ch);
End. {GrabaNumeros}

Bastaría con que modificaras el ciclo FOR, o lo cambiaras por la rutina que te genera los números. Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sacar numero a archivo de texto

Publicado por Alejandro (2 intervenciones) el 07/05/2004 02:16:42
Gracias..
Voy a probarlo aunque me suena raro el assign y close. Yo uso Turbo Pascal 5.5.

Saludos
Alejandro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sacar numero a archivo de texto

Publicado por Alejandro (2 intervenciones) el 07/05/2004 06:10:26
Gracias Hurricane, lo que me pasaste realmente funciono y me sirvio de mucho.
Te debo una amigo...

Saludos
Alejandro

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar