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.
     
    ......, 7 Ağu 2009
    #1

Bu Sayfayı Paylaş