Olá pessoal eu tenho as seguintes linhas:
procedure TForm2.Button1Click(Sender: TObject); Var VMd, PMd, VUMd, TJAd, CLd, DOp, HOd : Real; CMD, FRCd, CFAd, CAOd, CTAd, HTop : Real;begin VMd:=StrToFloat(Edit1.Text); PMd:=StrToFloat(Edit2.Text); VUMd:=StrToFloat(Edit3.Text); CLd:=StrToFloat(Edit4.Text); TJAd:=StrToFloat(Edit5.Text); DOp:=StrToFloat(Edit6.Text); HOd:=StrToFloat(Edit7.Text); CMD:=(VMd*0.06); FRCd:=((VMd)*((1+(TJAd/100))^VUMd)*(TJAd/100))/(((1+(TJAd/100))^VUMd)-1); (Meu problema está aqui, como faço para elevar o resultado do cálculo em laranja pelo VUMd (sabendo que o VUMd pode ser variável)? CFAd:=VMd+CMD+FRCd; HTop:=DOp*HOd; CAOd:=PMd*CLd*HTop*2.73*0.95; CTAd:=CAod+CFAd; ShowMessage('Custo Total Anual de Operação = R$ ' + IntToStr(CTAd));
"Esse seria um cálculo para informar qual seria o custo anual de operação de um motor a Diesel" Desde já agradeço.