سوالات امتحانی فرترن من :(

[Mr-Ali]

سلام
خدا فوت
من این ترم برنامه نویسی دارم به زبان فرترن
دیگه نزدیک امتحان هست و ما شرمنده ی شما :(
اگه کسی میتونه جوابم رو بده ممنون میشم

ارور های این برنامه چیه ؟

integer n
Read*, n
integer, dimension(1:n) :: K
(Read(1,*) (K(i) ,i=1,n
(M = max(K
print*, M
End

1.jpg

[habibsalar]

شگه میخواستی چندتا عدد بگیره و بزگترشو بده این کد و RUN کن

PROGRAM HFB1989DATIR
INTEGER::N,I
REAL::MAX
REAL,DIMENSION(:),ALLOCATABLE::KK
WRITE(*,*)'TEDAD NOGHAT RA BEDAHID (N)'
READ(*,*)N
ALLOCATE(KK(N))
WRITE(*,*)'BE TEDAD NOGHATE MAD E NAZAR ADAD BEDAHID'
DO I=1,N
READ(*,*)KK(I)
END DO
MAX=KK(1)
DO I=2,N
IF(KK(I)>=MAX)THEN
MAX=KK(I)
ENDIF
END DO
WRITE(*,*)MAX
ENDPROGRAM HFB1989DATIR

[habibsalar]

PROGRAM HFB1989DATIRINTEGER::N,I

REAL::MAX

REAL,DIMENSION(:),ALLOCATABLE::KK

WRITE(*,*)'TEDAD NOGHAT RA BEDAHID (N)'

READ(*,*)N

ALLOCATE(KK(N))

WRITE(*,*)'BE TEDAD NOGHATE MAD E NAZAR ADAD BEDAHID'

DO I=1,N

  READ(*,*)KK(I)

END DO

MAX=KK(1)

DO I=2,N

  IF(KK(I)>=MAX)THEN

    MAX=KK(I)

    ENDIF

END DO

WRITE(*,*)MAX

ENDPROGRAM HFB1989DATIR

[mechanic]

شما گفتی از فایل بخون در حلیکه هیچ فایلی رو قبلش باز نکردی..

[marzieh.yazdani]

برنامه ای بنویسید که معادله دیفرانسیل زیر رابه روش را به روش راگی-کوتاهی مرتبه ها به ازای h=0/1 حل کرده و مقدارyرادر بازه [1,2]چا‍‍پ نماید؟
y'=xy²+y
y(1)=1