Tutardan KDV Oranını Ayıklayan Program

'S-T' forumunda ÜmiT KoTaN tarafından 5 Ocak 2009 tarihinde açılan konu

  1. Tutardan KDV Oranını Ayıklayan Program konusu Girilen Fiyat ve KDV oranından sonra KDV Dahil seçildiğinde girilen tutarın içinden KDV'yi ayıklıyor. Hariç seçildiğinde ise girilen tutara KDV'yi ekliyor.Uses Wincrt;

    Var
    KDV_Oran,BFiyat:Integer;
    SFiyat:Real;
    KDV_Durum:Char;

    Begin
    WriteLn('KDV Hesaplama Programı');
    WriteLn('Lütfen Ürünün Birim Fiyatını Giriniz');
    ReadLn(BFiyat);
    WriteLn('Lütfen KDV Oranını giriniz');
    ReadLn(KDV_Oran);
    WriteLn('Girdiğiniz fiyata KDV Dahil / Hariç?');
    WriteLn('Seçiniz D/H');
    KDV_Durum:=UpCase(ReadKey);
    If KDV_Durum='D' Then
    Begin
    SFiyat:=BFiyat/((KDV_Oran+100)/100);
    WriteLn('Ürünün Birim Fiyatı : ',Round(SFiyat));
    WriteLn('Ürünün KDV Tutarı : ',BFiyat-Round(SFiyat));
    WriteLn('KDV Dahil Tutar : ',Round(SFiyat)+BFiyat-Round(SFiyat));
    End
    Else
    Begin
    SFiyat:=BFiyat*((KDV_Oran+100)/100);
    WriteLn('Ürünün Birim Fiyatı : ',BFiyat);
    WriteLn('Ürünün KDV Tutarı : ',Round(SFiyat)-BFiyat);
    WriteLn('KDV Dahil Tutar : ',BFiyat+Round(SFiyat)-BFiyat);
    End;
     

Bu Sayfayı Paylaş