VasilisaAndreevna
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору FuzzyLogic Я пробовала как в один, так и в разные. Вот как-то так: Текст программы... WRITE(2,235) 11, 22 (Это эаписывается) 235 FORMAT(G22.16,G22.16) CALL LAGUERE(0,0,PI*q/pe,lag) WRITE(2,235) 33, 44 (это уже не пишется в файл) ********************************** SUBROUTINE LAGUERE(n,m,x,lag) REAL x,lag,bin INTEGER ll,m,n WRITE(2,235) 9, 9 (И ЭТО ТОЖЕ НЕ ПИШЕТСЯ) 235 FORMAT(G22.16,G22.16) lag=0.0d0 do 98 ll=0,n bin=FACTORIAL(n+m)/FACTORIAL(n-ll)/FACTORIAL(m+ll) lag=lag+bin/FACTORIAL(ll)*(x**ll)*((-1)**ll) 98 continue RETURN END ********************************** |