Código
var
calc: integer;
begin
if level>0 then
begin
calc := (50*(Level)*(Level)*(Level))-150*(Level)*(Level)+400*(Level);
result :=Calc div 3;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009