fortan soru ve çözümleri

[CrayzTurk]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

girilen aralıktakı asal sayıları bulan program
WRITE(*,*)'GIRILEN ARALIKTAKI ASAL SAYILARI BULMA'
5 WRITE(*,*)'SAYI ARALIGINI GIRINIZ (KUCUK,BUYUK)'
READ(*,*)M,N
WRITE(*,*)'ASAL SAYILAR'
K=2
10 A= MOD(M,K)
IF(A.EQ.0) GO TO 20
IF(K.EQ.M-1) GO TO 30
K=K+1
GO TO 10
20 M=M+1
K=2
IF(M.GT.N) GO TO 40
GO TO 10
30 WRITE(*,35) M
35 FORMAT(2X,I6)
GO TO 20
40 WRITE(6,*)'DEVAM ETMEK ISTIYORSANIZ 1e ISTEMIYORSANIZ 2ye BASIN'
READ(*,*)B
IF(B.EQ.1) GO TO 5
WRITE(*,*) 'IYI GUNLER'
STOP
END


fıbonaccı sayılarını bulan program

WRITE(*,*)'GIRILEN ARALIKTAKI FIBONACCI SAYILARINI BULMA'
WRITE(*,*)'BULUNACAK SAYI ADETINI GIRINIZ'
read(*,*)N
WRITE(*,*) 'FIBONACCI SAYILARI'
DO 40 I=1,N
K=(((1+5**(1./2))/2)**I-((1-5**(1./2))/2)**I)/5**(1./2)
WRITE(*,*) K
40 CONTINUE
STOP
END

girilen sayının mükemmel sayı olup olmadığını bulan program

READ(*,*) N
DO 20 I=1,N
5 K=2**I*(2**(I+1)-1)
IF(N.GE.K)GOTO 10
GOTO 5
10 WRITE(*,*) K
20 CONTINUE
STOP
END

 

[RedOptions]

Teşekkürler*

 

[_tusunami_]

Teşekkür Ederim