(*
primero con su telefono
inteligente Android
descargar en Play Store
la aplicacion
Pascal N-IDE es muy buena;
copien el codigo fuente
y ejecuten el programa
Gracias.
Armando Fuenmayor
patusnalgason@hotmail.com
armandof1938@gmail.com
WhatsApp +58 412-2689131
el programa consiste en:
Piensa en un número entre 1 y 63.
Se mostrará 6 tarjetas, en cada
una de ellas debes teclear la letra
[S] y luego Enter si está el
número que pensaste o
[N] si no está el número.
Teclear Enter para continuar
*)
uses aDialog, Graph,
crt , aTTSpeech ;
type
arre = array[1..6] of integer;
var
yes : Boolean ;
x : arre ;
x1 : arre =(1 ,2 , 4 ,8 , 16, 32);
su : Integer ;
res , carac : char;
verdad1 ,verdad : boolean;
con1, sa, con, contar, Gd, Gm : Integer;
// retorna un numero
// al azar o aleatorio
function loteria(nu:integer):integer ;
begin
randomize;
loteria := random(nu) + 1;
end;
// resibe un numero
// entre 1 o 300 y
// retorna una cadena
function cartas(n:integer):string;
const
max = 300 ;
var
palabra : array[1..max] of string;
begin
palabra[1]:= '123456';
palabra[2]:= '213456';
palabra[3]:= '312456';
palabra[4]:= '412356';
palabra[5]:= '512346';
palabra[6]:= '612345';
palabra[7]:= '642315';
palabra[8]:= '612354';
palabra[9]:= '521346';
palabra[10]:= '312645';
palabra[11]:= '532146';
palabra[12]:= '612435';
palabra[13]:= '542316';
palabra[14]:= '413256';
palabra[15]:= '621345';
palabra[16]:= '512643';
palabra[17]:= '632145';
palabra[18]:= '512436';
palabra[19]:= '652341';
palabra[20]:= '453216';
palabra[21]:= '641325';
palabra[22]:= '542613';
palabra[23]:= '642135';
palabra[24]:= '532416';
palabra[25]:= '653241';
palabra[26]:= '452316';
palabra[27]:= '643125';
palabra[28]:= '546213';
palabra[29]:= '641235';
palabra[30]:= '534216';
palabra[31]:= '653214';
palabra[32]:= '452361';
palabra[33]:= '643152';
palabra[34]:= '546231';
palabra[35]:= '641253';
palabra[36]:= '534261';
palabra[37]:= '563214';
palabra[38]:= '542361';
palabra[39]:= '463152';
palabra[40]:= '465231';
palabra[41]:= '461253';
palabra[42]:= '354261';
palabra[43]:= '536214';
palabra[44]:= '524361';
palabra[45]:= '436152';
palabra[46]:= '456231';
palabra[47]:= '461235';
palabra[48]:= '351264';
palabra[49]:= '124356';
palabra[50]:= '264351';
palabra[51]:= '362451';
palabra[52]:= '462351';
palabra[53]:= '562341';
palabra[54]:= '625341';
palabra[55]:= '642351';
palabra[56]:= '623541';
palabra[57]:= '523461';
palabra[58]:= '326451';
palabra[59]:= '532461';
palabra[60]:= '624351';
palabra[61]:= '543162';
palabra[62]:= '413562';
palabra[63]:= '613452';
palabra[64]:= '516432';
palabra[65]:= '631452';
palabra[66]:= '514362';
palabra[67]:= '365241';
palabra[68]:= '345216';
palabra[69]:= '364125';
palabra[70]:= '543261';
palabra[71]:= '364215';
palabra[72]:= '352416';
palabra[73]:= '635241';
palabra[74]:= '435216';
palabra[75]:= '361425';
palabra[76]:= '354621';
palabra[77]:= '634125';
palabra[78]:= '354216';
palabra[79]:= '465321';
palabra[80]:= '523641';
palabra[81]:= '634152';
palabra[82]:= '564231';
palabra[83]:= '614253';
palabra[84]:= '453261';
palabra[85]:= '635214';
palabra[86]:= '425361';
palabra[87]:= '546312';
palabra[88]:= '462531';
palabra[89]:= '546123';
palabra[90]:= '345261';
palabra[91]:= '532614';
palabra[92]:= '652431';
palabra[93]:= '431652';
palabra[94]:= '645231';
palabra[95]:= '416235';
palabra[96]:= '635124';
palabra[97]:= '231456';
palabra[98]:= '234156';
palabra[99]:= '321456';
palabra[100]:= '142356';
palabra[101]:= '152346';
palabra[102]:= '162345';
palabra[103]:= '264315';
palabra[104]:= '261354';
palabra[105]:= '251346';
palabra[106]:= '231645';
palabra[107]:= '253146';
palabra[108]:= '261435';
palabra[109]:= '543216';
palabra[110]:= '341256';
palabra[111]:= '362145';
palabra[112]:= '531264';
palabra[113]:= '623145';
palabra[114]:= '351246';
palabra[115]:= '654231';
palabra[116]:= '532164';
palabra[117]:= '461325';
palabra[118]:= '452613';
palabra[119]:= '462135';
palabra[120]:= '352164';
palabra[121]:= '563241';
palabra[122]:= '425316';
palabra[123]:= '564312';
palabra[124]:= '456213';
palabra[125]:= '564123';
palabra[126]:= '342516';
palabra[127]:= '352146';
palabra[128]:= '452631';
palabra[129]:= '431562';
palabra[130]:= '542631';
palabra[131]:= '416253';
palabra[132]:= '342561';
palabra[133]:= '325146';
palabra[134]:= '423561';
palabra[135]:= '431526';
palabra[136]:= '452136';
palabra[137]:= '412653';
palabra[138]:= '635421';
palabra[139]:= '153624';
palabra[140]:= '152436';
palabra[141]:= '143652';
palabra[142]:= '145623';
palabra[143]:= '146235';
palabra[144]:= '135264';
palabra[145]:= '214356';
palabra[146]:= '643251';
palabra[147]:= '236451';
palabra[148]:= '246351';
palabra[149]:= '256341';
palabra[150]:= '265341';
palabra[151]:= '364251';
palabra[152]:= '362541';
palabra[153]:= '352461';
palabra[154]:= '263451';
palabra[155]:= '524631';
palabra[156]:= '632451';
palabra[157]:= '453162';
palabra[158]:= '143562';
palabra[159]:= '461352';
palabra[160]:= '451632';
palabra[161]:= '631542';
palabra[162]:= '451362';
palabra[163]:= '536241';
palabra[164]:= '325416';
palabra[165]:= '536412';
palabra[166]:= '463251';
palabra[167]:= '356421';
palabra[168]:= '356241';
palabra[169]:= '352641';
palabra[170]:= '643521';
palabra[171]:= '631425';
palabra[172]:= '325461';
palabra[173]:= '346125';
palabra[174]:= '365421';
palabra[175]:= '146532';
palabra[176]:= '152364';
palabra[177]:= '163452';
palabra[178]:= '156423';
palabra[179]:= '164253';
palabra[180]:= '145326';
palabra[181]:= '263514';
palabra[182]:= '245361';
palabra[183]:= '254631';
palabra[184]:= '246531';
palabra[185]:= '254613';
palabra[186]:= '234561';
palabra[187]:= '352614';
palabra[188]:= '652413';
palabra[189]:= '341652';
palabra[190]:= '364521';
palabra[191]:= '341625';
palabra[192]:= '365124';
palabra[193]:= '123546';
palabra[194]:= '421356';
palabra[195]:= '431256';
palabra[196]:= '123564';
palabra[197]:= '451236';
palabra[198]:= '614235';
palabra[199]:= '462315';
palabra[200]:= '613254';
palabra[201]:= '542136';
palabra[202]:= '431265';
palabra[203]:= '523164';
palabra[204]:= '651342';
palabra[205]:= '423165';
palabra[206]:= '415326';
palabra[207]:= '213564';
palabra[208]:= '126453';
palabra[209]:= '632154';
palabra[210]:= '124536';
palabra[211]:= '526341';
palabra[212]:= '645321';
palabra[213]:= '416325';
palabra[214]:= '654213';
palabra[215]:= '426135';
palabra[216]:= '532641';
palabra[217]:= '165324';
palabra[218]:= '145236';
palabra[219]:= '164325';
palabra[220]:= '154623';
palabra[221]:= '164235';
palabra[222]:= '153426';
palabra[223]:= '265314';
palabra[224]:= '453621';
palabra[225]:= '624315';
palabra[226]:= '546321';
palabra[227]:= '264153';
palabra[228]:= '253461';
palabra[229]:= '356214';
palabra[230]:= '564213';
palabra[231]:= '346152';
palabra[232]:= '346521';
palabra[233]:= '436125';
palabra[234]:= '524613';
palabra[235]:= '543621';
palabra[236]:= '523614';
palabra[237]:= '364152';
palabra[238]:= '562431';
palabra[239]:= '612534';
palabra[240]:= '345126';
palabra[241]:= '125436';
palabra[242]:= '526431';
palabra[243]:= '362415';
palabra[244]:= '146325';
palabra[245]:= '623451';
palabra[246]:= '623415';
palabra[247]:= '423156';
palabra[248]:= '263541';
palabra[249]:= '523416';
palabra[250]:= '324651';
palabra[251]:= '523146';
palabra[252]:= '243651';
palabra[253]:= '154362';
palabra[254]:= '435162';
palabra[255]:= '634512';
palabra[256]:= '156432';
palabra[257]:= '634521';
palabra[258]:= '543612';
palabra[259]:= '236541';
palabra[260]:= '234516';
palabra[261]:= '326415';
palabra[262]:= '254361';
palabra[263]:= '236415';
palabra[264]:= '235416';
palabra[265]:= '625413';
palabra[266]:= '452163';
palabra[267]:= '613425';
palabra[268]:= '534621';
palabra[269]:= '612543';
palabra[270]:= '524316';
palabra[271]:= '416532';
palabra[272]:= '512364';
palabra[273]:= '653421';
palabra[274]:= '516423';
palabra[275]:= '642153';
palabra[276]:= '453126';
palabra[277]:= '365214';
palabra[278]:= '345162';
palabra[279]:= '235461';
palabra[280]:= '246513';
palabra[281]:= '245613';
palabra[282]:= '324561';
palabra[283]:= '235641';
palabra[284]:= '451263';
palabra[285]:= '316524';
palabra[286]:= '465213';
palabra[287]:= '634215';
palabra[288]:= '463512';
palabra[289]:= '231546';
palabra[290]:= '524136';
palabra[291]:= '321546';
palabra[292]:= '514236';
palabra[293]:= '153246';
palabra[294]:= '516234';
palabra[295]:= '216435';
palabra[296]:= '126354';
palabra[297]:= '125346';
palabra[298]:= '123645';
palabra[299]:= '253416';
palabra[300]:= '126435';
cartas := palabra[n] ;
end;
// convierte un entero
// a cadena de caracteres
function entecade(zz:integer) : string ;
var
c : string;
begin
c := '';
str(zz,c);
entecade := c;
end;
function caraente(c:char) : Integer ;
begin
case c of
'1' : caraente := 1;
'2' : caraente := 2;
'3' : caraente := 3;
'4' : caraente := 4;
'5' : caraente := 5;
'6' : caraente := 6;
end;
end;
// retorna verdadero si
// el caracter es 1 .. 6
function valcar(c:char) : boolean;
begin
if (ord (c) > 48) and (ord(c) < 55) then
begin
valcar := true
end
else
begin
valcar := false ;
end;
end;
procedure primer;
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 4);
outtextxy(3,6,' ADIVINA EL NÚMERO');
settextstyle(defaultfont, horizdir, 7);
circle(260,118,50);
setcolor(YEllOW);
outtextxy(244,85,'?');
settextstyle(defaultfont, horizdir, 3);
setcolor(RED);
outtextxy(1,170 ,'Piensa en un número entre 1 y 63.');
outtextxy(1,203,' Se mostrará 6 tarjetas, en cada');
outtextxy(2,250,'una de ellas debes teclear la letra');
outtextxy(1,270,' [S] y luego Enter⤴ si está el');
outtextxy(1,315,' número que pensaste o ');
outtextxy(1,350,' [N] si no está el número.');
outtextxy(1,380,' Teclear Enter⤴ para continuar');
end;
procedure taruno(g:integer);
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta '+entecade(g)+': ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70,' 1 3 5 7 9 11');
outtextxy(30,130,'13 15 17 19 21 23');
outtextxy(30,190,'25 27 29 31 33 35');
outtextxy(30,250,'37 39 41 43 45 47');
outtextxy(30,310,'49 51 53 55 57 59');
outtextxy(30,370,' 61 63 ');
outtextxy(30,360,' [S/N]' );
end;
// Muestra la tarjeta N° 02
procedure tardos(g:integer);
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta '+entecade(g)+': ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70 ,' 2 3 6 7 10 11');
outtextxy(30,130,'14 15 18 19 22 23');
outtextxy(30,190,'26 27 30 31 34 35');
outtextxy(30,250,'38 39 42 43 46 47');
outtextxy(30,310,'50 51 54 55 58 59');
outtextxy(30,370,' 62 63 ');
outtextxy(30,360,' [S/N]' );
end;
// Muestra la tarjeta 03
procedure tartres(g:Integer );
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta ' +entecade(g)+ ': ¿El número está aquí?');
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta 3: ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70,' 4 5 6 7 12 13');
outtextxy(30,130,'14 15 20 21 22 23');
outtextxy(30,190,'28 29 30 31 36 37');
outtextxy(30,250,'38 39 44 45 46 47');
outtextxy(30,310,'52 53 54 55 60 61');
outtextxy(30,370,' 62 63 ');
outtextxy(30,360,' [S/N]' );
end;
// Muestra la tarjeta N° 4
procedure tarcuatro(g:integer);
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta '+entecade(g)+': ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70 ,' 8 9 10 11 12 13');
outtextxy(30,130,'14 15 24 25 26 27');
outtextxy(30,190,'28 29 30 31 40 41');
outtextxy(30,250,'42 43 44 45 46 47');
outtextxy(30,310,'56 57 58 59 60 61');
outtextxy(30,370,' 62 63 ');
outtextxy(30,360,' [S/N]' );
end;
// Muestra la tarjeta N° 05
procedure tarcinco(g:integer );
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3, 6,'Tarjeta '+entecade(g)+': ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70 ,'16 17 18 19 20 21');
outtextxy(30,130,'22 23 24 25 26 27');
outtextxy(30,190,'28 29 30 31 48 49');
outtextxy(30,250,'50 51 52 53 54 55');
outtextxy(30,310,'56 57 58 59 60 61');
outtextxy(30,370,' 62 63 ');
outtextxy(30,360,' [S/N]' );
end;
// Muestra la tarjeta N° 06
procedure tarseis(g:integer);
begin
cleardevice;
setcolor(BLUE);
settextstyle(defaultfont, horizdir, 3);
outtextxy(3,6,'Tarjeta '+entecade(g)+': ¿El número está aquí?');
rectangle(500,418,27,66);
setfillstyle(1,white);
bar(500,418,27,66);
settextstyle(defaultfont, horizdir, 4);
setcolor(RED);
outtextxy(30,70 ,'32 33 34 35 36 37');
outtextxy(30,130,'38 39 40 41 42 43');
outtextxy(30,190,'44 45 46 47 48 49');
outtextxy(30,250,'50 51 52 53 54 55');
outtextxy(30,310,'56 57 58 59 60 61');
outtextxy(30,370,' 62 63 ');
outtextxy(30,360,' [S/N]' );
end;
procedure finaz( kk :integer);
var
i , j : integer ;
begin
clearDevice;
if (kk = 0) then
begin
clearDevice;
setcolor(BLUE);
setTextStyle(DefaultFont, HorizDir, 4);
OutTextXY(3, 6, ' No pensastes en ningún ');
OutTextXY(3, 60, ' número ');
end
else
begin
for i := 3 to 21 do
for j := 21 downto 1 do
begin
setcolor(Yellow);
SetTextStyle(DefaultFont, HorizDir, i);
outTextXY(1+i, j, ' '+entecade(kk)+' ');
if (i mod 2 = 0 ) then
clearDevice;
end;
delay(500);
setcolor(BLUE);
SetTextStyle(DefaultFont, HorizDir, 4);
OutTextXY(5, 240, 'ES EL NÚMERO ');
end;
end;
procedure abrirmodografico;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
end;
// retorna verdadero si
// todos son 1
function epalabrapresion(p1,p2,p3,p4,p5,p6:integer):boolean;
begin
if (p1=1) and (p2 = 1)
and (p3=1) and (p4 = 1)
and (p5=1) and (p6 = 1) then
begin
epalabrapresion := true
end
else
begin
epalabrapresion := false ;
end;
end ;
function vali(cad:string):boolean;
var
c1, c2, c3,
c4, c5, c6, y : integer ;
begin
c1 := 0;
c2 := 0;
c3 := 0;
c4 := 0;
c5 := 0;
c6 := 0;
if length(cad) = 6 then
begin
for y := 1 to 6 do
begin
if valcar(cad[y]) then
begin
case cad[y] of
'1' : inc(c1);
'2' : inc(c2);
'3' : inc(c3);
'4' : inc(c4);
'5' : inc(c5);
'6' : inc(c6);
end
end
else
begin
vali := false;
break;
end;
end;
vali := epalabrapresion(c1,c2,c3,c4,c5,c6);
end
else
begin
vali := false;
break;
end ;
end;
// on numeros del 1 al 6
// de forma vatiada
procedure top(cad : string);
var
i : integer ;
begin
if vali(cad) then
begin
for i := 1 to 6 do
begin
x[i]:=caraente(cad[i]);
end;
end
else
begin
dialogalert('Error modificaron las constantes','
Comentarios sobre la versión: Versión 3.9 (0)
No hay comentarios