Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3162634 Fri, 29 Jun 2012 14:00:53 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3162634
Ты о правильном размещении текста в строке не забываешь?
И какое у тебя расширение у файла? Четвертая задача у тебя написана на FORTRAN-77, где 1-5 позиции отводились под метку, а 6-я под знак продолжения, так что и расширение по идее должно быть .f77 (компилятор умеет в старом формате файлы читать, но ему об этом надо сообщить).
А третья особенностей 77 не использует и может быть откомпилирована и в более позднем формате.]]> amk Fortran https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161760 Wed, 27 Jun 2012 18:29:49 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161760 error 58 - Unpaired right bracket(s)
error 58 - Unpaired right bracket(s)
error 58 - Unpaired right bracket(s)
error 699 - Invalid character '*' at start of line
error 58 - Unpaired right bracket(s)
error 699 - Invalid character '*' at start of line
error 32 - Statement not recognised
error 90 - FORMAT label 10 does not exist

вот эти ошибки, компилятор используемый Plato ide(ftn95).]]> Arastor Fortran https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161735 Wed, 27 Jun 2012 17:49:04 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161735
Цитата Arastor @
просто она не компилировалась
Значит компилятор по этому поводу что-то сообщил. И эти сообщения (по крайней мере первые), задавая вопрос, лучше процитировать, иначе разговор получается ни о чем - здесь не техподдержка, нужного компилятора, скорее всего, под рукой не окажется (по крайней мере у меня ни дома, ни на работе фортран не стоит).

И вообще проблему лучше описывать, а не предлагать игру в вопросы.]]> amk Fortran https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161709 Wed, 27 Jun 2012 16:39:59 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161709 Arastor Fortran https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161706 Wed, 27 Jun 2012 16:27:26 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161706
По 3
1.09*10**4 вообще то пишется так: 1.09E4
Ты используешь IF()THEN/END IF. Почему не пользуешься циклом?
В конце цикла x не будет равно точно 0.10, поэтому последнего значения ты можешь не получить. Сравнивай с 0.10 - 1E-4, что-ли.
STOP после END писать нет смысла, программа и так остановится.

По 4
Объявлена, но не используется переменная V.
Для отрицательных чисел спецификация I1 слишком узкая, под знак тоже надо резервировать позицию.
Шаг вывода значений (да и другие интервалы) разный (7, 11, 7), таблица будет перекошена.

У тебя компилятора фортрана нет? Чтобы твою программу выполнить.]]> amk Fortran https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161683 Wed, 27 Jun 2012 15:24:02 +0000 Две задачи на фортране https://forum.sources.ru/index.php?showtopic=359925&view=findpost&p=3161683 Cобственно задачи по ссылке http://s56.radikal.ru/i153/1206/7c/63a06d61457b.jpg
а тут попытки решения: №3

program zadanie3

REAL x,d,c,f,P

d = 2.31
c = 0.84
x = 0.65
10if (x .ge. 0.10) then
f = exp(d/2)*Alog((x**2 + 1.09*10**4*x +c)**(1./3.))
print *,'x=',x,' f=',f
x = x-0.05
goto 10
endif
20end program zadanie3
stop

Задание №4

program zadanie4

integer i,k(-4:5)
real*8 b,c,d,x(-4:5),f(-4:5),v
print *, 'vvedite b,c,d'
read *,b,c,d
!b=7.83
!c=1.69
!d=0.77
do i=-4,5
k(i)=i
x(i)=d+0.03*k(i)
f(i)=c*(cos(b)**(5./3.))*x(i) + Log10((2.43*x(i))/(10**12))
end do
print 10,K,X,F
10format(20X,'Tablica znachenii f(x)'/
*2X,'k',4X,10(3X,I1,3X))/
*2X,'x',4X,10(3X,F5.2,3X)/
*1X,'f',2X,10(1X,F5.2,1X))
end program zadanie4
stop
Если кто может, то посмотрите что не так)]]> Arastor Fortran