Essays.club - Ensayos gratis, notas de cursos, notas de libros, tareas, monografías y trabajos de investigación
Buscar

Juego de Colores

Enviado por   •  27 de Abril de 2018  •  1.014 Palabras (5 Páginas)  •  315 Visitas

Página 1 de 5

...

if Edit3.Color=clyellow then

c[3]:=4;

if Edit3.Color=clgreen then

c[3]:=5;

if Edit3.Color=clfuchsia then

c[3]:=6;

if Edit3.Color=clmaroon then

c[3]:=7;

if Edit4.Color=clBlack then

c[4]:=1;

if Edit4.Color=clred then

c[4]:=2;

if Edit4.Color=clblue then

c[4]:=3;

if Edit4.Color=clyellow then

c[4]:=4;

if Edit4.Color=clgreen then

c[4]:=5;

if Edit4.Color=clfuchsia then

c[4]:=6;

if Edit4.Color=clmaroon then

c[4]:=7;

if Form42.Edit1.Color=clBlack then

d[1]:=1;

if Form42.Edit1.Color=clred then

d[1]:=2;

if Form42.Edit1.Color=clblue then

d[1]:=3;

if Form42.Edit1.Color=clyellow then

d[1]:=4;

if Form42.Edit1.Color=clgreen then

d[1]:=5;

if Form42.Edit1.Color=clfuchsia then

d[1]:=6;

if Form42.Edit1.Color=clmaroon then

d[1]:=7;

if Form42.Edit2.Color=clBlack then

d[2]:=1;

if Form42.Edit2.Color=clred then

d[2]:=2;

if Form42.Edit2.Color=clblue then

d[2]:=3;

if Form42.Edit2.Color=clyellow then

d[2]:=4;

if Form42.Edit2.Color=clgreen then

d[2]:=5;

if Form42.Edit2.Color=clfuchsia then

d[2]:=6;

if Form42.Edit2.Color=clmaroon then

d[2]:=7;

if Form42.Edit3.Color=clBlack then

d[3]:=1;

if Form42.Edit3.Color=clred then

d[3]:=2;

if Form42.Edit3.Color=clblue then

d[3]:=3;

if Form42.Edit3.Color=clyellow then

d[3]:=4;

if Form42.Edit3.Color=clgreen then

d[3]:=5;

if Form42.Edit3.Color=clfuchsia then

d[3]:=6;

if Form42.Edit3.Color=clmaroon then

d[3]:=7;

if Form42.Edit4.Color=clBlack then

d[4]:=1;

if Form42.Edit4.Color=clred then

d[4]:=2;

if Form42.Edit4.Color=clblue then

d[4]:=3;

if Form42.Edit4.Color=clyellow then

d[4]:=4;

if Form42.Edit4.Color=clgreen then

d[4]:=5;

if Form42.Edit4.Color=clfuchsia then

d[4]:=6;

if Form42.Edit4.Color=clmaroon then

d[4]:=7;

t:=0; v:=0;

for i:=1 to 4 do

if (c[i]=d[i]) then

begin

t:=t+1;

c[i]:=0;

d[i]:=0;

end;

for i:=1 to 4 do

begin

for j:=1 to 4 do

if (c[i]=d[j]) and (ij)and ((c[i]0) or (d[j]0)) then

begin

v:=v+1;

c[i]:=0;

d[j]:=0;

end;

end;

edit51.Text:=inttostr(v);

edit41.Text:=inttostr(t);

edit1.Enabled:=false;

edit2.Enabled:=false;

edit3.Enabled:=false;

edit4.Enabled:=false;

edit41.Enabled:=false;

edit51.Enabled:=false;

edit5.visible:=true;

edit6.visible:=true;

edit7.visible:=true;

edit8.visible:=true;

edit42.visible:=true;

edit52.visible:=true;

...

Descargar como  txt (9.1 Kb)   pdf (58.7 Kb)   docx (19.2 Kb)  
Leer 4 páginas más »
Disponible sólo en Essays.club