ödev hata var???

1 view
Skip to first unread message

abdullah erdi önüt

unread,
Apr 1, 2009, 9:27:01 AM4/1/09
to Bilgisayar_Programlama_Kou2o
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

enest...@gmail.com

unread,
Apr 2, 2009, 6:20:17 AM4/2/09
to Bilgisayar_Programlama_Kou2o
eger " run-time error " falan yazıyosa tckimlik nosunu character
yap...

hocanın derste yaptığı vergi hsaplama prggramı

program vergi_hsabi
integer::gelir
real::vergi
character(15)::ad,soyad,tckimlik
5 print*,"adinizi ve soyadinizi girin"
read*,ad,soyad
print*,"tc kimlik nosunu gir"
read*,tckimlik
print*,"vergisini hesaplayacaginiz geliri girin"
25 read*,gelir
if((gelir.gt.1000).and.(gelir.lt.2400)) then
vergi=gelir*0.01
end if
if((gelir.gt.2400).and.(gelir.lt.4000)) then
vergi=gelir*0.02
else if ((gelir.gt.4001).and.(gelir.lt.10000)) then
vergi=gelir*0.05
else if (gelir.le.0) then
print*,"pozitif sayi gir"
goto 25
else
vergi=gelir*0.10
end if
print*,"ad soyad kimlik"
print*,ad,soyad,tckimlik
write(*,*) "gelir ve vergisi=",gelir," TL",vergi," TL"
goto 5
end program

abdullah erdi önüt

unread,
Apr 3, 2009, 10:56:59 AM4/3/09
to Bilgisayar_Programlama_Kou2o
hehhehehe verdıgı hatayı solemeyı unutmusum....kusura
bakmayın...verdıgı hataya gelınce verdıgı hata arkadaslar mesala 2500
tl dedıgımız zaman dogru vergıyı hesaplıyor yalnız 10000 tl dedıgımız
zamanda 1.if e gore hareket edıyor ve yuzde 2 oran alıyor.......bunu
bulan olursa olur....
Reply all
Reply to author
Forward
0 new messages