17 Nisan 2014 Perşembe

Başarı Notu Hesaplayan code

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