Programación General > Pascal

 ReadLn Ignorado!

(1/1)

TheAnkh:
Hola! Tengo un problemita con un programa de Tragaperras que estoy haciendo, quiero poner una pausa con ReadLn, pero el programa no la toma en cuenta y sigue de largo :S

Aquí les paso el código... Las variables con nombre de letra indican la posición de los 9 cuadros de la tragaperras

A B C
D E F
G H I

La variable tirador sirve para "tirar la palanca" y que los números cambien 10 veces al azar.

Es la pausa de la línea 38.. Esté ahí, o no esté... El programa sigue de largo.



--- Código: Text ---program Maq; uses crt; var        saldo,apuesta,tirador,a,b,c,d,e,f,g,h,i: integer;  BEGINsaldo:=50;clrscr;repeatBEGIN        writeln('Bienvenido a MaqTra - Su saldo es de: $',saldo);        write('Apuesta: ');        read(apuesta);        for tirador:=1 to 10 do        BEGIN                clrscr;                writeln('Los n£meros est n girando...');                a:=random(6);                b:=random(6);                c:=random(6);                d:=random(6);                e:=random(6);                f:=random(6);                g:=random(6);                h:=random(6);                i:=random(6);                writeln(a,'  ',b,'  ',c);                writeln;                writeln(d,'  ',e,'  ',f);                writeln;                writeln(g,'  ',h,'  ',i);                writeln;                delay(500);        END;        readln;ENDuntil saldo<=0;writeln('Su saldo se acab¢');write('Gracias por utilizar MaqTra');END.  



Edit: Si pongo dos Readln; seguidos, entonces sí funciona (pero sólo uno de ellos) :S, ¿Por qué será?

MinDokan:
readkey; también debería funcionar y cumplir la misma función.

Saludos. MDk.

Navegación

[0] Índice de Mensajes