Arşiv Anasayfa Açık Kaynak

Sayfalar: 1

vize final not hesaplama Gönderen: cdmesut Tarih: 18 November 2007 23:15:14
biliyorum çok basit bir program ama bir koyayım dedim......

arkadaşlarım hesaplamayı yanlış yapıyor diyor ama ben hep doğru buluyorum hayret..

program + kaynak kod (delphi 7 )    -   http://www.gsxreg.com/download.php?file=605fe845013966e903f25daa136ba4f2


hesaplama biçimi  :  vize puanının yüzde 20 si ile final in yüzde 80 i hesaplanıp gerçek ders puanı çıkıyor
                                eğer ödev verilirse  vize yüzde 75 ödev yüzde 25 final yüzde 80 ders puanı


 mersin üniversitesi bilgisayar  programcılığı uzaktan eğitim bölümnün birinci sınıfındayım daha delphiye geçmedim ... sadece qbasic ile mimi hesaplama yapıyoruz )



kod : 


procedure TForm1.Button1Click(Sender: TObject);

var
 
vize,odev,fina,vizetop,internetsinavi,odevtop,finaltop,kompetoplam,yuzdesi,b
aska,baska2,baskatop:Real;
begin
 vize:=strToFloat (edit1.text);
  odev:=strToFloat (edit2.text);
 fina:=strToFloat (edit3.text);
  vizetop:=vize*0.75;
  odevtop:=odev*0.25 ;
  internetsinavi := vizetop+odevtop;
  yuzdesi := internetsinavi*0.20;
  finaltop  := fina * 0.80;
  kompetoplam :=  yuzdesi+   finaltop;
  Label1.Caption:=  FloatToStr(kompetoplam);
  Label2.Caption:=  FloatToStr(internetsinavi);
   baska := vize*0.20;
   baska2 :=fina*0.80;
   baskatop := baska +baska2;
   Label8.Caption:= FloatToStr( baskatop);


end;

end.

---