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.
program Maq;
uses crt;
var
saldo,apuesta,tirador,a,b,c,d,e,f,g,h,i: integer;
BEGIN
saldo:=50;
clrscr;
repeat
BEGIN
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;
END
until 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á?
Mostrar Mensajes
.