COK GELISMIS VERGI HESABI...

[abdullah erdi önüt]

program vergi
character(12)::isim,cevap*1
integer::tc,g
real::v
5 print*,"lutfen ad soyad giriniz?"
read*,isim
print*,"lutfen vergi numaranizi veya tc numaranizi giriniz?"
read*,tc
print*,"lutfen gelirinizi giriniz?"
read*,g
if((2401<=gelir).and.(gelir<4000))then
v=g*2/100
end if
if((4001<=gelir).and.(gelir<10000))then
v=g*5/100
end if
if((10001<=gelir).and.(gelir<20000))then
v=g*8/100
end if
if((20001<=gelir).and.(gelir<100000))then
v=g*12/100
end if
if((100001<=gelir))then
v=g*25/100
end if
if((gelir<=2400))then
v=g*2/100
end if
print*,"ADI,SOYADI_________________",isim
print*,"TC NO______________________",tc
print*,"GELIRI_____________________",g
print*,"VERECEGI VERGI_____________",v
print*,"__________(*) (*)_________"
print*,"_________'' _______"
print*,"__________ ---- _______"
print*,"PROGRAMDAN CIKMAK ISTERMISINIZ?"
print*,"EVET-E"
print*,"HAYIR-H"
read*,cevap
if((cevap=="h").or.(cevap=="H"))then
goto 5
else
goto 10
end if
10 end program
GORUSLERINIZE SUNULMUSTUR......



arkadaslar bu programdada hem aynı vergı oranıyla hesaplıyor nedenı
sızce nedır?tesekkur ederım.......

[Murat]

DÖNEM İÇERİSİNDE SÖYLEDİĞİM gruba en fazla mesaj gönderen arkadasa final sınavından 10 puan ekstra verme ödülü hala devam ediyor. Finale kadar süresi var...Şu anda Abdullah Erdi ÖNÜT Bey önde gidiyor....

2009/5/14 abdullah erdi önüt <apo...@gmail.com>