Os pongo la prueba que hice para que la veais y ver si se puede mejorar de alguna manera. Tengo una funcion que divide Hexas enormes y otra que hace lo mismo con enteros. El limite me lo da el divisor ya que no se si sería posible partir la operacion en partes para que el divisor fuese mas grande (mi nivel de matematicas no da para mas
).
Código PHP:
//---------------------------------------------------------------------------
#include <vcl.h>
#include <limits>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool dividirHex(AnsiString dividendo, AnsiString divisor, AnsiString *cociente, AnsiString *resto, int *error);
bool dividirInt(AnsiString dividendo, AnsiString divisor, AnsiString *cociente, AnsiString *resto, int *error);
enum Error{SinError=0, Overflow, DivForZero};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//Funcion para comprobar que un valor no sobrepase el maximo permitido para un Int64 sin signo
//El primer parametro es el valor a comprobar y el segundo parametro es para indicar si el valor
//es hexadecimal o no
bool IsOverflow(AnsiString valor, bool IsHexa)
{
bool overflow=false;
AnsiString valorLimite = std::numeric_limits<unsigned long long>::max();
if(IsHexa == true)
valorLimite = AnsiString().sprintf("%I64X", valorLimite);
if(valorLimite.Length() == valor.Length()){
for(int i=1; i <=valor.Length(); i++)
{
if(valorLimite[i] > valor[i]){
break;
}else if (valorLimite [i] < valor[i]){
overflow=true;
break;
}
}
}else if(valorLimite.Length() > valor.Length()){
overflow= false;
}else{
overflow=true;
}
return overflow;
}
//---------------------------------------------------------------------------
//Funcion para dividir valores hexadecimales extragrandes
//Practicamente el limite nos lo da el valor del divisor ya que el dividendo puede ser
//tan grande como el maximo menos 1 de AnsiString
bool dividirHex(AnsiString dividendo, AnsiString divisor, AnsiString *cociente, AnsiString *resto, int *error)
{
unsigned __int64 auxDividendo, auxDivisor, auxCociente, auxResto;
bool salir=false;
bool retval=false;
bool primeraPasada=true;
int largoDividendo, largoPorcion=1;
auxDivisor = StrToInt64(AnsiString("0x" + divisor));
if(auxDivisor == 0){
retval = false;
*error = DivForZero;
}else{
if(!IsOverflow (divisor, true)){
*cociente="";
*resto="";
do {
largoDividendo=dividendo.Length ();
if(largoDividendo != 0){
if(primeraPasada == true){
auxDividendo = StrToInt64("0x" + dividendo.SubString(1,largoPorcion));
while(auxDivisor > auxDividendo && salir != true){
largoPorcion++;
if(largoPorcion > largoDividendo){
*cociente = "0";
*resto = dividendo;
*error = 0;
salir = true;
retval = true;
}
if(!salir)
auxDividendo = StrToInt64("0x" + dividendo.SubString(1,largoPorcion));
}
primeraPasada=false;
}else{
largoPorcion=1;
auxDividendo = StrToInt64("0x" + *resto + dividendo.SubString(1,largoPorcion));
}
if(!salir){
dividendo = dividendo.SubString(largoPorcion+1,largoDividendo);
auxResto=auxDividendo % auxDivisor;
auxCociente=auxDividendo / auxDivisor;
if(auxCociente > 0){
*cociente=*cociente + AnsiString ().sprintf("%I64X", auxCociente);
*resto = AnsiString().sprintf("%I64X", auxResto);
}else{
*cociente=*cociente + "0";
*resto = AnsiString().sprintf("%I64X", auxResto);
}
}
}else{
salir=true;
if(primeraPasada == true){
*cociente="0";
*resto="0";
}
retval=true;
*error=0;
}
}while(salir != true);
}else{
*error=Overflow;
retval=false;
}
}
return retval;
}
//---------------------------------------------------------------------------
//Funcion para dividir valores enteros extragrandes
//Practicamente el limite nos lo da el valor del divisor ya que el dividendo puede ser
//tan grande como el maximo menos 1 de AnsiString
bool dividirInt(AnsiString dividendo, AnsiString divisor, AnsiString *cociente, AnsiString *resto, int *error)
{
unsigned __int64 auxDividendo, auxDivisor, auxCociente, auxResto;
bool salir=false;
bool retval=false;
bool primeraPasada=true;
int largoDividendo, largoPorcion=1;
auxDivisor = StrToInt64(divisor);
if(auxDivisor == 0){
retval = false;
*error=DivForZero;
}else{
if (!IsOverflow (divisor, false)){
*cociente="";
*resto="";
do {
largoDividendo=dividendo.Length ();
if(largoDividendo != 0){
if(primeraPasada == true){
auxDividendo = StrToInt64(dividendo.SubString(1,largoPorcion));
while(auxDivisor > auxDividendo){
largoPorcion++;
if(largoPorcion > largoDividendo){
*cociente = "0";
*resto = dividendo;
*error = 0;
salir = true;
retval = true;
}
if(!salir)
auxDividendo = StrToInt64(dividendo.SubString(1,largoPorcion));
}
primeraPasada=false;
}else{
largoPorcion=1;
auxDividendo = StrToInt64(*resto + dividendo.SubString(1,largoPorcion));
}
if(!salir){
dividendo = dividendo.SubString(largoPorcion+1,largoDividendo);
auxResto=auxDividendo % auxDivisor;
auxCociente=auxDividendo / auxDivisor;
if(auxCociente > 0){
*cociente=*cociente + AnsiString(auxCociente);
*resto = AnsiString(auxResto);
}else{
*cociente=*cociente + "0";
*resto = AnsiString(auxResto);
}
}
}else{
salir=true;
if(primeraPasada == true){
*cociente="0";
*resto="0";
}
retval=true;
*error=0;
}
}while(salir != true);
}else{
*error=Overflow;
retval=false;
}
}
return retval;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonCalcularClick(TObject *Sender)
{
AnsiString Cociente,Resto;
int error;
if(RadioGroupBase->ItemIndex == 0)
dividirInt(EditDividendo->Text, EditDivisor->Text, &Cociente, &Resto, &error);
else
dividirHex(EditDividendo->Text, EditDivisor->Text, &Cociente, &Resto, &error);
EditCociente->Text = Cociente;
EditResto->Text = Resto;
switch(error)
{
case 0:
StatusBar->SimpleText = "Operacion realizada satisfactoriamente";
break;
case 1:
StatusBar->SimpleText = "Hay overflow en el divisor";
break;
case 2:
StatusBar->SimpleText = "No se puede dividir por 0";
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditFiltradoKeyPress(TObject *Sender, char &Key)
{
if(RadioGroupBase->ItemIndex == 1){
if((Key < '0' || Key > '9') && (Key < 'a' || Key > 'f') && (Key < 'A' || Key > 'F') && Key != '\b')
Key = 0;
}else{
if((Key < '0' || Key > '9') && Key != '\b')
Key = 0;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroupBaseClick(TObject *Sender)
{
if(RadioGroupBase->ItemIndex == 1)
{ //Lo paso a Hexa
if(!IsOverflow(EditDividendo->Text,false) &&
!IsOverflow(EditDivisor->Text,false) &&
!IsOverflow(EditCociente->Text,false) &&
!IsOverflow(EditResto->Text,false)){
if(EditDividendo->Text != "" &&
EditDivisor->Text != "" &&
EditCociente->Text != "" &&
EditResto->Text != "")
{
unsigned __int64 aux;
aux = StrToInt64(EditDividendo->Text);
EditDividendo->Text = AnsiString().sprintf("%I64X", aux);
aux = StrToInt64(EditDivisor->Text);
EditDivisor->Text = AnsiString().sprintf("%I64X", aux);
aux = StrToInt64(EditCociente->Text);
EditCociente->Text = AnsiString().sprintf("%I64X", aux);
aux = StrToInt64(EditResto->Text);
EditResto->Text = AnsiString().sprintf("%I64X", aux);
StatusBar->SimpleText = "";
}else{
StatusBar->SimpleText = "Hay algún valor no válido";
}
}else{
EditDividendo->Text = "0";
EditDivisor->Text = "0";
EditCociente->Text = "0";
EditResto->Text = "0";
StatusBar->SimpleText = "Overflow";
}
}else{ //Lo paso a Int
if(!IsOverflow(EditDividendo->Text,true) &&
!IsOverflow(EditDivisor->Text,true) &&
!IsOverflow(EditCociente->Text,true) &&
!IsOverflow(EditResto->Text,true)){
if(EditDividendo->Text != "" &&
EditDivisor->Text != "" &&
EditCociente->Text != "" &&
EditResto->Text != "")
{
EditDividendo->Text = StrToInt64("0x" + EditDividendo->Text);
EditDivisor->Text = StrToInt64("0x" + EditDivisor->Text);
EditCociente->Text = StrToInt64("0x" + EditCociente->Text);
EditResto->Text = StrToInt64("0x" + EditResto->Text);
StatusBar->SimpleText = "";
}else{
StatusBar->SimpleText = "Hay algún valor no válido";
}
}else{
EditDividendo->Text = "0";
EditDivisor->Text = "0";
EditCociente->Text = "0";
EditResto->Text = "0";
StatusBar->SimpleText = "Overflow";
}
}
}
//---------------------------------------------------------------------------
19-04-2015
).
Temas Similares
Mode Lineal
