Ultimo Problema: Tipos De Variables!!

[azaagh]

es lo unico que me falta para terminar el programa :p :

tengo 2 variables de tipo integer y una real

var
cataque :integer;
vdefensa : integer;
robo : real;


y quiero realizar esta operacion

robo := (cataque / 5) - (vdefensa / 5);


cual es el problema?? pues que justo despues tengo un:

robo := (cataque / 5) - (vdefensa / 5);
case robo of
-99..0: x:=10;
....
...
end;


y el case me OBLIGA a que la variable sea ENTERA....

vamos, que si sabeis alguna funcion para convertir un real (delphi dice que el resultado es de tipo extendido:confused: ) en entero:p

PD: os preguntareis como he conseguido hacer un programa sin saber cosas basicas como esta....no? :D

[__marcsc]

Hola,

la función Trunc te devuelve la parte entera de un Real.
La función Round te lo redondea. No sé qué te interesará más para tu caso.

Saludos.

[cbrrr]

si la variable robo la has de usar en un case, por qué no la defines directamente como integer??


var
cataque :integer;
vdefensa : integer;
robo : integer;
begin
robo := (cataque div 5) - (vdefensa div 5);
case robo of
-99..0: x:=10;
....
....
end;
end;

Nota que también he cambiado el / por div