SoloCodigo

Programación General => Pascal => Mensaje iniciado por: marnueses en Miércoles 6 de Julio de 2005, 18:23

Título: Problemas A La Hora De Imprimir Una Cadena
Publicado por: marnueses en Miércoles 6 de Julio de 2005, 18:23
Hola a todos,  ;) espero que la duda que os planteo nos os parezca muy estúpida. Estoy estudiando el lenguaje Pascal y para probar mis conocimientos estoy tratando de realizar el juego del ahorcado. El problema que se me presenta, por ahora, es que a la hora de sustituir los caracteres de la palabra oculta por '*' estos no se me alinean como quisiera sino que se presentan verticalmente al lado izquierdo de la pantalla.
*
*
*
*
Os adjunto el código que uso para ver si encontráis alguna solución, probablemente será alguna tontería pero llevo un par de día comiéndome la cabeza y no lo he conseguido arreglar.
Gracias de antemano por vuestro tiempo y esfuerzo.  :D
program fichero_palabras;
uses    crt;
var     cad:string;
        i:integer;
        archivotexto:text;
        BEGIN
        clrscr;
        assign(archivotexto, 'C:\TP\prueba\hombre.txt');
        reset(archivotexto);
        readln(archivotexto,cad);
        textbackground(cyan);
        textcolor(white);
        window(1,1,80,25);
        gotoxy(25,12);
        for i:=1 to length(cad) do
             writeln('*');
        close(archivotexto);
        readln;
        END.  :comp:
Título: Re: Problemas A La Hora De Imprimir Una Cadena
Publicado por: Enko en Jueves 7 de Julio de 2005, 02:02
Citar
writeln('*');

WriteLn: Write Line, lo que hace es escribir y hacer un salto de linea, es decir, pasar al reglon de abajo.
Usa Write();
Código: Text
  1.  
  2. for i:=1 to Length(cad) do
  3.   Write('*');
  4.  
  5.  
Título: Re: Problemas A La Hora De Imprimir Una Cadena
Publicado por: marnueses en Jueves 7 de Julio de 2005, 17:10
¡¡¡Muchísimas gracias Enko!!!
Sin tu ayuda habría seguido trabada en este error un buen rato...  :rolleyes: