Fortran

q1and...@hotmail.com

unread,

Mar 30, 2009, 3:40:14 PM3/30/09

to Bilgisayar_Programlama_Kou2o

ARKADASLAR 1 HATA VERİYORR BAKARSANIZ SEVİNİRİM .....=))

program hesap

integer::tc

real::vergi,gelir

character::ad,soyad

print*,"ad,soyad ve tc giriniz"

print*, "gelir giriniz"

read*,ad,soyad,tc,vergi,gelir

if ((2401<=gelir.and.gelir<4000)) then

vergi=gelir*2/100

if ((4001<=gelir.and.gelir<10000)) then

vergi=gelir*5/100

if ((10001<=gelir.and.gelir<20000)) then

vergi=gelir*8/100

if ((20001<=gelir.and.gelir<100000)) then

vergi=gelir*12/100

if (100001<=gelir) then

vergi=gelir*25/100

print*,ad,soyad,tc,vergi

end if
end program

Murat

unread,

Mar 30, 2009, 7:01:59 PM3/30/09

to bilgisayar_pro...@googlegroups.com

if ((2401<=gelir.and.gelir<4000)) then gibi iki şartı yazarken

if ((2401<=gelir).and.(gelir<4000)) then olarak ayırmak suretiyle yazmalısın...

kolay gelsin

2009/3/30 <q1and...@hotmail.com>

ayku...@hotmail.com

unread,

Mar 31, 2009, 3:30:41 AM3/31/09

to Bilgisayar_Programlama_Kou2o

if leri tek tek endifle bitirmen gerekmiyo mu

q1and...@hotmail.com

unread,

Mar 31, 2009, 4:31:35 AM3/31/09

to Bilgisayar_Programlama_Kou2o

tmmdır..yaptım.. saolsn

abdullah erdi önüt

unread,

Apr 1, 2009, 8:05:49 AM4/1/09

to Bilgisayar_Programlama_Kou2o

sorun neden kaynaklanıyormus pekı?

On 31 Mart, 11:31, q1and_b...@hotmail.com wrote:
> tmmdır..yaptım.. saolsn

abdullah erdi önüt

unread,

May 14, 2009, 3:06:16 AM5/14/09

to Bilgisayar_Programlama_Kou2o

sorun neden dolayı kaynaklanıyor acaba?

On 1 Nisan, 15:05, abdullah erdi önüt <apo...@gmail.com> wrote:
> sorun neden kaynaklanıyormus pekı?
>
> On 31 Mart, 11:31, q1and_b...@hotmail.com wrote:
>
>
>

> > tmmdır..yaptım.. saolsn- Alıntıyı gizle -
>
> - Alıntıyı göster -

Reply all

Reply to author

Forward