ajuda em delphi 7

[julera]

Leia a velocidade máxima permitida em uma avenida e a velocidade com que o motorista

estava dirigindo nela e calcule a multa que uma pessoa vai receber, sabendo que são pagos: a) 50 reais se o motorista estiver ultrapassar em até 10km/h a velocidade permitida (ex.: velocidade máxima: 50km/h; motorista a 60km/h ou a 56km/h); B) 100 reais, se o motorista ultrapassar de 11 a 30 km/h a velocidade permitida. c) 200 reais, se estiver acima de 31km/h da velocidade permitida

[julera]

Leia a velocidade máxima permitida em uma avenida e a velocidade com que o motorista

estava dirigindo nela e calcule a multa que uma pessoa vai receber, sabendo que são pagos: a) 50 reais se o motorista estiver ultrapassar em até 10km/h a velocidade permitida (ex.: velocidade máxima: 50km/h; motorista a 60km/h ou a 56km/h); B) 100 reais, se o motorista ultrapassar de 11 a 30 km/h a velocidade permitida. c) 200 reais, se estiver acima de 31km/h da velocidade permitida

alguém pode ajudar a fazer istooo

plz

obrigadooo!!

[William - TI]

Desculpa a demora

Fiz o programa para você porem não sei como postar aki. me manda seu e-mail que envio para você.

ou se não você coloca dois edits um botã e um label no seu form e da dois cliques no botào e coloca este codigo.

procedure TForm1.Button1Click(Sender: TObject);

var

ultrapassou : real;

begin

if strTofloat(edit2.Text) > strTofloat(edit1.Text) then begin

ultrapassou :=strTofloat(edit2.Text) - strTofloat(edit1.Text);

if (ultrapassou >=0.01) and (ultrapassou <=10) then begin

label1.Caption :='Multa de 50';

end;

if (ultrapassou >=10.01) and (ultrapassou <=30) then begin

label1.Caption :='Multa de 100';

end;

if (ultrapassou >=30.01) then begin

label1.Caption :='Multa de 200';

end;

end;

end;

fiz algumas alteraços tipo e se o carro passar a 10.5 no caso não receberia a multa por isso fiz uma adaptação para pegar em qualquer velocidade.