procedure TForm1.Button1Click(Sender: TObject);
var
ara,odev,final:integer;
bn:real;
begin
edit5.clear;
ara:=strtoint(edit1.text);
odev:=strtoint(edit2.text);
final:=strtoint(edit3.text);
bn:=(ara*0.4)+(odev*0.1)+(final*0.5);
edit4.text:=floattostr(bn);
if ((bn>=50) and not(final<=30)) then
begin
edit5.text:='Başarılı';
end
else
begin
edit5.text:='Başarısız';
end;
end;
end.
Hiç yorum yok:
Yorum Gönder