martes, enero 11, 2011

Rosas.


Con este sencillo código, y el ya antiguo Qbasic.

INPUT "nombre del archivo -finalice con .txt-"; n$
OPEN n$ FOR OUTPUT AS #1
INPUT "¿Cuantas rosas quiere?"; x
FOR i = 1 TO x
PRINT #1, " @-'-- "
NEXT
CLOSE

No nos pone límites como el Excel... al vetusto y humilde programilla le pedimos un millón y en unos segundos dispusimos de un archivo .TXT de más de 8 Mb... y sí... con un millón de rosas.