Ayuda con sistemas de prestamo

[Neftali [Germán.Estévez]]

¿Tienes alguna duda concreta en la que te podamos ayudar o sólo buscas el código hecho?

[Casimiro Noteví]

je, je... se nota que estamos en época de exámenes, hay muchos visitantes esperando que le hagan su trabajo y además algunos esperan a última hora, "lo necesito para HOY"
Está claro que en el futuro se dedicarán a otra cosa, porque la programación no la van a aprender así

[Ñuño Martínez]

Uyuyuy... Preveo que la cosecha de calabazas de este va a ser superior a la del año pasado.

Yo ya me he resignado y no pienso renovar la matrícula de la universidad. Aparte de lo harto que estoy, me han convencido de que no sirve de mucho.

[Aleca]

Empezado por Casimiro Notevi

je, je... se nota que estamos en época de exámenes, hay muchos visitantes esperando que le hagan su trabajo y además algunos esperan a última hora, "lo necesito para HOY"
Está claro que en el futuro se dedicarán a otra cosa, porque la programación no la van a aprender así

me sacaste las palabras de la boca (va del teclado) esta mañana estaba pensando lo mismo.

[Jpopular]

Hola de nuevo...........

Primeramente gracias por responder, y si, estoy algo "apurado" por que es un trabajo que el profesor dejo para hoy pero por problemas energéticos en mi casa no pude avanzar con esto el fin de semana.

Se que en las normas no se puede estar haciéndoles "tareas" a las personas que las piden, por lo que me disculpo por esto.

Pero como les decía en el primer post, el profesor solo quiere tres cosas que haga el programa, y son captura de datos, calculo del préstamo y despliegue de resultados. En la primera parte ya esta hecho, pero cuando intento hacer el segundo me presentan errores que no he podido resolver, les dejo la parte del problema para ver si me dan una mano:

 
procedure TForm1.Button2Click(Sender: TObject);
var
vprestamo,ano1:integer;
const
int1=0.22;
int2=0.18;
begin
vprestamo:=strtoint(edit1.Text);
if vprestamo <= 50000 then
ano1:=vprestamo * int1
edit2.Text:=inttostr(ano1)
else
ano1:=vprestamo * int2;
edit2.text:=inttostr(ano1);
end;
end.

Se que esta mal hecho y por eso quisiera que me den una mano.

Gracias por todo....

See yaa...

[sergiovalp]

Te faltaron los begin / end y el tipo de dato real.

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
vprestamo:integer;
ano1:real;
const
int1=0.22;
int2=0.18;
begin
  vprestamo:=strtoint(edit1.Text);
  if vprestamo <= 50000 then
  begin
    ano1:=vprestamo * int1;
    edit2.Text:=format('%f8,2',[ano1]);
  end
  else
  begin
    ano1:=vprestamo * int2;
    edit2.Text:=format('%f8,2',[ano1]);
  end;
end;

atte
Sergio

[Aleca]

otra opcion

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  vprestamo,ano1: Currency;
const
  int1=0.22;
  int2=0.18;
begin
  vprestamo:=strtoint(edit1.Text);
  if vprestamo <= 50000 then
  begin
    ano1:=vprestamo * int1;
    edit2.Text:=Floattostr(ano1);
  end
  else
  begin
    ano1:=vprestamo * int2;
    edit2.text:=Floattostr(ano1);
  end;
end;

[Neftali [Germán.Estévez]]

Empezado por Jpopular

Hola de nuevo.

En la primera parte ya esta hecho, pero cuando intento hacer el segundo me presentan errores que no he podido resolver, ...

Hola.

Ves, así las cosas ya se ven de otra manera (y las respuestas también son diferentes...).

Ya te han comentado un par de cosas, tal vez con eso se solucione, de todas formas ayudará que nos digas exactamente, cuales son los errores que te salen.

Es vital para saber qué corregir.

Un saludo.