Tema: Ayuda, programa muy básico para encontrar areas
Ver Mensaje Individual
  #3  
Antiguo 15-03-2008
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
  
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
 
Código Delphi [-]
Function Area_Triangulo(b: Double;h: Double): Double;
begin
Result:=b*h/2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FloatToStr(Area_Triangulo(40,50));
end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita