Programación General > Pascal

 Problemas A La Hora De Imprimir Una Cadena

(1/1)

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

Enko:

--- Citar --- writeln('*');

--- Fin de la cita ---

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 --- for i:=1 to Length(cad) do  Write('*');  

marnueses:
¡¡¡Muchísimas gracias Enko!!!
Sin tu ayuda habría seguido trabada en este error un buen rato...  :rolleyes:

Navegación

[0] Índice de Mensajes