Pascalda kdv programı

[mustafa]

Eskiden yazdığım basit kdv hesaplayıcı program

Kod: (Tümünü Seç)

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.');
writeln('BilisimTurk.Org');
readln;
end.