KDV Programı

'Programlama' forumunda ...... tarafından 7 Ağu 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir

    Kdv oranını bulup kdv sini ve kdv dahil fiyatını gösterir


    Kod:
    uses crt;
    var
    anapara,kdvoran,kdv:real;
    begin
    textcolor(3);
    writeln('Anaparayi Giriniz: ');
    readln(anapara);
    writeln('Kdv Oranini Giriniz: ');
    readln(kdvoran);
    kdv:=(anapara/100)*kdvoran;
    writeln('Kdv si ',kdv:100:2,'  dir.');
    writeln(' Kdv Dahil Fiyati :',(anapara+kdv):100:2,' dir.');
    readln;
    end.
     

Bu Sayfayı Paylaş