Sacar porciento en Delphi

[Lord Delfos]

El problema es que tu variable CO es de tipo Integer. Las variables de tipo integer solamente pueden contener números enteros.

Cuando hacés

CO:=StrtoINt(edit1.text)*StrtoINt(edit2.text)/100);

Lo que obtenés es un número real, porque la división con "/" genera un número real (independientemente de si el resultado es "con coma" o sin ella). Ahí está el problema.

¿Solución? Pues declarar CO como una variable real.

Código Delphi [-]
var MV, PO: Integer;
     CO: Real;

begin
  MV:= StrToInt(edit1.text);
  PO:= StrToInt(edit2.text);
  CO:= StrToInt(edit1.text) * StrToInt(edit2.text) / 100;
  edit3.Text:= FormatFloat('%f', [CO]);
end;

PD: También te sobraba un paréntesis en esa linea.

PD2: Comentario obligado a todo usuario nuevo. ¡Bienvenido! y pegale una leída a la guía de estilo.

PD3: ¡Fijate bien dónde ponés los hilos! El foro de Debates es, como su nombre lo indica, para debates.

[Ñuño Martínez]

Hola y bienvenido, hervicen.

Sólo comentarte que, la próxima vez que hagas una consulta a causa de un error, estaría bien que citaras dicho error. Más que nada porque un compilador puede devolver miles de posibles errores, por lo que muchas veces decir únicamente "me sale un error" no es ni por mucho suficiente. De hecho, hoy has tenido suerte, pero en el futuro puede no ser así.

Pues eso: ¡ánimo y al toro!

[hervicen]

Muchas gracias.....

Me sirve de Mucho..
Ademas voy a tener presente todas sus sugerencias..

[[AzidRain]]

Ñuño, sin que tenga que ver gran cosa con resolver el problema de nuestro nuevo amigo, que comes que adivinas, me parece que el clásico "Me sale un error" o "Me marca error" es creo por mucho la frase mas socorrida del usuario final...a quien no le ha tocado. OJO: No estoy atacando a hervicen ni criticando su post, pero me acordé de lo que muchos casos de usuarios.

[Ñuño Martínez]

Tienes razón, AzidRain. Es más: ayer mismo recibí por enésima vez un mensaje de correo de un usuario diciendo que "no funciona". Literalmente. >.<

[hervicen]

ESpero que me tengan Paciencia, pues como les explique estoy nuevesito en esto de programacion en delphi.

he estado intentando resolver un problema de interes compuesto y lo he planteado de esta forma:

Var
Prestamo, Plazo, Interes: Integer;
Cuotas: Real;
begin
Prestamo:=StrtoINt(edit1.Text);
Plazo:=StrtoINt(edit2.Text);
Interes:=StrtoINt(edit3.Text);
Cuotas:=(Prestamo*(1+(Interes/100))^Plazo)/Plazo;
edit4.text:=formatFloat([Cuotas]);
end;

Al correrlo me arroja el siguiente error:

[Error]Unit1.pas(43):Pointer type Required.

Si me pudieran ayudar de favor..!!!!

[Lord Delfos]

Eso es porque el símbolo "^" no es la potencia. Es el símbolo de dereferencia de punteros...

Lo que tendrías que hacer es usar la función Power:

Código Delphi [-]

uses ..., Math, ...;

[...]

Cuotas:= (Prestamo * Power((1+(Interes/100)), Plazo)) / Plazo;