Klavyeden girilen KDV'siz fiyat bilgisine %18 KDV ekleyerek ekrana yazan program

Açtıgınız başlık konuyla ılgılı olsaydı daha kolay yardım yapılabılırdı konu baslıgını degıstırırsenız daha guzel olabılır

aşagıdakı program kodları belkı ısınıze yarayabılır


Tutardan KDV Oranını Ayıklayan Program

girilen fiyat ve kdv oranından sonra kdv dahil secildiğinde girilen tutarın içinden kdv yi ayıklıyor hariç seçildiğinde ise girilen tutara kdv 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;
End.
Klavyeden Girelen Bir Urunun Fiyatini Bulan program

uses Crt;
var
urun : string [15];
fiyat:real;
kdv : real;
begin
write('Lutfen Urun Adini Giriniz.....:'); readln(urun);
Write('Lutfen Fiyatini Girin ........:'); readln(fiyat);
kdv:=fiyat*1.2;
write(urun);write('  KDV li Fiyati.............:',kdv);
readln;
end.
sunlar işinize yarayabılır