program rojoonegro;
uses crt;
var
nu,jugada,jugo,oxo,din:longint;
apu,ape,apue,apo:longint;
begin
randomize;
clrscr;
apu:=3000; {dinero en euros recomendado}
writeln('introduce dinero a perder en la ruleta apuesta minima 1e apuesta maxima ?? ');
readln(apu);
if apu=0 then apu:=3000;
apo:=apu;
ape:=apu;
apue:=1;
jugo:=1;
din:=1;
repeat
nu:=nu+1;
writeln('jugada nø',nu,' tu capital es:',apu,' tu apuesta es de:',din);
if apu>ape then
begin
ape:=apu;
end;
{en la ruleta sale}
jugada:=random(37);
if ((jugada mod 2)=0) and (jugada>0) then OXO:=2;
if ((jugada mod 2)<>0) and (jugada>0) then OXO:=1;
if jugada=0 then OXO:=0;
{writeln('tu dinero total es: ',apu);}
apue:=apue+din;
{writeln('tu apuesta es: ',apue);
writeln('el la ruleta sale ',oxo);}
{writeln('tu juegas ',jugo); }
if oxo=jugo then
begin
{ganaste}
apu:=apu+apue;
din:=1;
apue:=1;
jugo:=jugo+1;
if jugo>2 then jugo:=1;
{ writeln('ganaste!!');}
end
else
begin
{perdiste}
apu:=apu-apue;
din:=din+din;
{ writeln('perdiste!!'); }
end;
{writeln('din=',din); }
{delay(20);}
{writeln('----------------');}
until (keypressed) or (apu<0);
writeln;
writeln('estas a 0 despues de ',nu,' jugadas');
writeln('recuerde q empezo con ',apo,' euros');
writeln('la maxima cantidad ganada fue de ',ape,' euros');
writeln('mi consejo salir corriendo de las rachas malas si pierde 64e');
writeln('equivalen a las tendencias bajistas d bolsa ;-D ');
writeln('retirate con la ganancias');
writeln('quien sabe pero parece q esto funciona a veces si a veces no con 200e');
writeln('con cantidades inferiores a 200e no hay para promediar las tendencias');
writeln('bajistas de este juego... ');
readln;
readln;
end.
este programa usa: uses crt; fue realizado en pascal en windows95 para un antiguo pemtiun mi pagina es
http://es.geocities.com/mariaudache/probando.htmSALUDOS.
