eu conseg fazer alguns mais não sei se ta certo... 2 procedure
var
sal_func,num_filho,val_filho,al_bruto:real;
begin
sal_func:=strtofloat(edit1.Text);
num_filho:=strtofloat(edit2.Text);
val_filho:=strtofloat(edit3.Text);
sal_bruto:=(sal_func+(num_filho*val_filho));
label4.Caption:=floattostr(sal_bruto-(sal_bruto*8/100));
end;
end.
3
procedure
var
saldo:real;
begin
saldo:=strtofloat(edit1.Text);
label2.caption:=floattostr(saldo+(saldo*10)/100);
end;
end.
4
procedure
var
alt1,alt2,alt3,peso1,peso2,peso3:real;
begin
alt1:=strtofloat(edit1.Text);
alt2:=strtofloat(edit2.Text);
alt3:=strtofloat(edit3.Text);
peso1:=strtofloat(edit4.Text);
peso2:=strtofloat(edit5.Text);
peso3:=strtofloat(edit6.Text);
label7.caption:=floattostr((alt1+alt2+alt3)/3);
label8.caption:=floattostr((peso1+peso2+peso3)/3);
end;
end.