var
birimfiyati,
adeti,
iskonto,
kdvorani : extended;
iskontotutari,
kdvtutari,
iskontolufiyat,
tutar : real;
begin
birimfiyati := StrToFloat(Edit1.Text);
adeti := StrToFloat(Edit2.Text);
iskonto := StrToFloat(Edit3.Text);
kdvorani := StrToFloat(Edit4.Text);
birimfiyati := birimfiyati * adeti;
label6.Caption:='Birim Fiyatı: '+ FloatToStr(birimfiyati)+' TL';
iskontotutari := birimfiyati / 100 * iskonto;
iskontolufiyat:= birimfiyati - iskontotutari;
label7.Caption:= 'İskontolu Fiyat: '+ FloatToStr(iskontolufiyat)+' TL';
kdvtutari := iskontolufiyat / 100 * kdvorani;
label8.Caption := 'KDV : '+ FloatToStr(kdvtutari)+' TL';
tutar := iskontolufiyat + kdvtutari;
label4.Caption:= 'Tutar: '+ FloatToStr(tutar)+' TL';
birimfiyati,
adeti,
iskonto,
kdvorani : extended;
iskontotutari,
kdvtutari,
iskontolufiyat,
tutar : real;
begin
birimfiyati := StrToFloat(Edit1.Text);
adeti := StrToFloat(Edit2.Text);
iskonto := StrToFloat(Edit3.Text);
kdvorani := StrToFloat(Edit4.Text);
birimfiyati := birimfiyati * adeti;
label6.Caption:='Birim Fiyatı: '+ FloatToStr(birimfiyati)+' TL';
iskontotutari := birimfiyati / 100 * iskonto;
iskontolufiyat:= birimfiyati - iskontotutari;
label7.Caption:= 'İskontolu Fiyat: '+ FloatToStr(iskontolufiyat)+' TL';
kdvtutari := iskontolufiyat / 100 * kdvorani;
label8.Caption := 'KDV : '+ FloatToStr(kdvtutari)+' TL';
tutar := iskontolufiyat + kdvtutari;
label4.Caption:= 'Tutar: '+ FloatToStr(tutar)+' TL';