Delphi - Números muy grandes (billones)

   
Vista:

Números muy grandes (billones)

Publicado por Javi (1 intervención) el 26/04/2009 13:11:18
Necesito ayuda. Estoy intentando multiplicar 160 *256 *256 * 256 y el resultado obtenido es un número negativo y no es el correcto (2.701.131.776).

Sabeís como puedo conseguir la operación matemática correcta ? luego tengo que comparar dicho resultado con otro número también expresado en billones.

Muchas gracias
Javi.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Números muy grandes (billones)

Publicado por Eva  (484 intervenciones) el 27/04/2009 00:59:26
El resultado correcto es 2.684.354.560

Prueba a ir multiplicando primero los dos pirmeros, el resultado por el tercero y el resultado anterior por el cuarto.

Mejor te lo pongo aquí.

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d: integer;
Total: extended;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
Total := a * b;
Total := Total * c;
Total := Total * d;
ShowMessage(FormatFloat('###,###,###,###,###,###',Total));
end;

Esto funciona correctamente y da 2.684.354.560
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar