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

admin07.12.2010 - 22:45
Biri Bana bu program icin yardım edebilirmi ?

Klavyeden girilen KDV'siz fiyat bilgisine %18 KDV ekleyerek ekrana yazan program...
Acil yardım ederseniz sevinirim arkadaslar...
Konuyu dogru yere actigimi bilmiyorum yanlissa gerekli yere tasiyabilirmi admin veya moderator arkadaslar...

Linkback: https://www.buyuknet.com/klavyeden-girilen-kdvsiz-fiyat-bilgisine-18-kdv-ekleyerek-ekrana-yazan-program-t32012.0.html

admin07.12.2010 - 23:32
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


Kod: [Seç]
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

Kod: [Seç]
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


Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
Klavyeden girilen KDV'siz fiyat bilgisine %18 KDV ekleyerek ekrana yazan program
Klavyeden girilen KDV'siz fiyat bilgisine %18 KDV ekleyerek ekrana yazan program
(Ortalama: 5 üzerinden 1 - 5 Oy)
5