procedure TForm1.Button1Click(Sender: TObject);
var
sakat1,sakat2:integer;
sonuc:real;
begin
sakat1:=strtoint(edit1.text );
sakat2:=strtoint(edit2.Text );
sonuc:=(sakat1*0.4) + (sakat2*0.6);
edit3.Text:=floattostr(sonuc);
if sonuc>=70 then edit4.Text:='geçti'
else
edit4.Text :='kaldı';
end;
end.
nazım demir
demirnazim@hotmail.com