hata nerde

[ayku...@hotmail.com]

program Vergi_Hesaplama

character::ad
integer::G,TCno
real::vergi
print*,"Adinizi girin lutfen"
read*,ad
print*,"Tc kimlik numaranizi girin lutfen"
read*,TCno
print*,"gelirinizi girin lutfen"
read*,G
if (G.LT.2400)then
vergi=G*2/100
print*,ad,TCno,vergi
end if



end program


beyler bu programda adimizi yazdiktan sonra bize verdiği print
kısmında yazdiğimiz adin sadece ilk harfi cikiyo,ikinci çözüm
bulamadığım nokta ise tc kimlik no kısmına en fazla 10 sayı
girebiliorum,,yardımlarınızı bekliyorum,teşekkurler

[abdullah erdi önüt]

benım bıldıgım kadarıyla bu 11 haneli olması için bi yere parantez
içinde 11 yzıyorduk ama bende onu unttum buyuk ıohtımal sorun ondan
kaynaklanıyor.haberın olsun.ayrıca ısım olayındada sorunun ondan
kaynaklandıgını zannedıyorum....ıyı calısmalar....:D

[ayku...@hotmail.com]

denedim parantez icinde de;olmuyor oyle ,mesela 11 yazdıysam alt alta
11 karakter gırebılceım olarak algılıo:S

[Murat]

character(12)::ad, adres, soyad*16

 

yazımında ad ve adres degiskeni karakter olarak tanımlanıp toplam 12 harflik isim alabilir demektir...soyad degiskeni ise 16 ya kadar isim alabilir..

 

 

 

 

 

 

2009/3/29 <ayku...@hotmail.com>

[abdullah erdi önüt]

bak adam bılıyor...saolasın....

On 29 Mart, 13:51, Murat <makar...@gmail.com> wrote:
> character(12)::ad, adres, soyad*16
>
> yazımında ad ve adres degiskeni karakter olarak tanımlanıp toplam 12
> harflik isim alabilir demektir...soyad degiskeni ise 16 ya kadar isim
> alabilir..
>

> 2009/3/29 <aykutu...@hotmail.com>

[ayku...@hotmail.com]

character de işe yaradı ama tcno en fazla 11 rakam alabiliyor,integer
(11)::TCno yazınca da hata veriyor?

[abdullah erdi önüt]

aynı sorunla bende karsılastım sımdı odevı yapıyordum bılen varsa
yassında yapalım ok.?