Logo ojosabiertos.org No hay manera de referirse a lo desconocido.<br>Uno solo puede presenciarlo - Relatos de poder
ojosabiertos.org
No hay manera de referirse a lo desconocido.
Uno solo puede presenciarlo - Relatos de poder
FOX 1.001

Objetivo:

Este programa se usa para calcular los datos principales de numerología segun el sistema FOX

Manera de usarlo:

Das un click aquí y listo, sigues los datos.

Como lo interpreto:

Lees lo que dice el sitio en área de numerología FOX

No le hace nada malo a mi PC?

El código de este programa se pone a continuación, se proporciona en Turbo Pascal Versión 6.0 por varias razones:

  • Este programa se hizo en 1992 ..solo se le puso el comentario de www.ojosabiertos.org
  • Convertirlo a Java llevaría problemas y pruebas y pruebas....
  • VBScript o ActiveX solo funcionaría en ciertas máquinas
  • Se optimizó para usar menor espacio de Data, aunque puede parecer enredado por usar procesos internos, es mas eficiente de este modo que en un solo proceso.
  • Cumple con su objetivo, y ocupa poco espacio.

  • Como pueden ver el código es muy sencillo, cualquier duda con webmaster@ojosabiertos.org
    {
      Nombre     : Fox.pas
        Proyecto   : Ninguno.
                Código     : Turbo Pascal 6.0
                 Programó   : Orozco Aguilar Alfonso
      Fecha      : Noviembre 1992
    ---------------------------------------------------------------------------
    Objetivo : Cálculo de Numerología Fox
    --------------------------------------------------------------------------- }
    uses crt;
    
    var { public }
     Rej:Array [1..9] of Shortint;
     CadCent:StrIng[4];
     valifue:byte;
    
    procedure sumarej(n1,n2,n3:shortint;lif:string);
    var pass:Shortint;
    begin
     pass:=rej[n1]+  rej[n2]+rej[n3];
     if pass>valifue then
       begin; valifue:=pass; cadcent:=lif; end;
    end;
    
    procedure principal;
    var
     s : string;
     Total,Vocal,consonante,Valuename:byte;
     estaletra,letras,poder,Csh,mp:Shortint;
    
    Begin
     Repeat
     CadCent:='NONE';
     valifue:=0;
     Write('Introduzca el nombre (enter para salir): ');
     ReadLn(s);
     if s='' then halt;
     For csh:=1 to 9 do Rej[csh]:=0;
     ValueName:=0;
     poder:=0;
     mp:=0;
     Vocal:=9;
     Consonante:=9;
     letras:=0;
     For csh := 1 To Length(s) Do
     Begin
       s[csh] := UpCase(s[csh]);
       estaletra:=0;
       Case s[csh] Of
       'A','J','S'    : Estaletra:= 1; 
       'B','K','T'    : Estaletra:= 2; 
       'C','L','U'    : Estaletra:= 3; 
       'D','M','V'    : Estaletra:= 4; 
       'E','N','','W': Estaletra:= 5; 
       'F','O','X'    : Estaletra:= 6; 
       'G','P','Y'    : Estaletra:= 7; 
       'H','Q','Z'    : Estaletra:= 8; 
       'I','R'        : Estaletra:= 9; 
       End;
       if estaletra>0 then
         begin
            valuename:=valuename+estaletra;
            rej[estaletra]:=rej[estaletra]+1;
            letras:=letras+1;
         end;
       case s[csh] Of
         'A','E','I','O','U': VOCAL:=VOCAL+Estaletra;
         else;
           consonante:=consonante+estaletra;
       end;
     End;
     Repeat
       If Consonante >9 Then Consonante:=Consonante-9;
     Until (Consonante >=1) And (Consonante <=9);
     Repeat
      If Vocal >9 Then Vocal:=Vocal-9;
     Until (Vocal >=1) And (Vocal <=9);
     Total:=ValueName;
     Repeat
       If Total >9 Then Total:=Total-9;
     Until (Total >=1) And (Total <=9);
     clrScr;
     WriteLn('www.ojosabiertos.org - Programa Numerologa FOX Versin 1.001');
     WriteLn('');
     WriteLn('Estudio numerolgico de ',s);
     WriteLn('Valornumerico= ',Valuename);
     WriteLn;
     Writeln('Letras: ',letras);
     WriteLn('Valor Total     = ',Total);
     WriteLn('Valor Vocal     = ',Vocal);
     WriteLn('Valor Consonante= ',Consonante);
     writeln;
     for csh:=1 to 9 do
       begin
         if rej[csh]>mp then
           begin
             poder:=csh;
             mp:=rej[csh];
           end;
         Writeln(Csh,' ',Rej[csh]);
       end;
     WriteLn('Punto Fuerte= ',poder,' = ',((mp*100)/letras):0:2,'%');
     sumarej(1,2,3,'123');
     sumarej(4,5,6,'456');
     sumarej(7,8,9,'789');
     sumarej(1,4,7,'147');
     sumarej(2,5,8,'258');
     sumarej(3,6,9,'369');
     sumarej(1,5,9,'159');
     sumarej(3,5,7,'357');
     WriteLn;
     Write('Linea Principal de Fuerza= N',cadcent,' = ',((valifue*100)/letras):0:2,'%');
     WriteLn(' (puede haber otras).');
     WriteLn;
     Until 1=2;
    End;
    
    begin
     principal;
    end.
    

    Alfonso Orozco - Junio 2001
    ICQ 41907900
    Inicio | Buscar | Quienes Somos | Material Anterior | Reglas Bsicas | Reglas a detalle | Todo lo dems | Trivia | Links | Sitios Hermanos | Contacto
    custom_logo
    OJOSABIERTOS.ORG 2002