Напишите программу для итерации с фиксированной точкой с использованием Fortran
Всем привет, я полный новичок в программировании. Я столкнулся с большой проблемой написания программирования для данной итерации с фиксированной точкой
P= g(Po) g(x) = x-sin (pi.x), pi as in 22/7. Po = 0.95 TOL = 10**-6 NO = 20 TOL if (Pi-Po)<=10**-6 Steps 1. Set i=1 2. While i <No, do step 3-6 3. Set P=g(Po) 4. Test if |P-Po| < TOL OUTPUT (P); (Procedure completed successfully ) STOP 5. Set i = i+1 6. Set P = Po 7 output (method failed after no iteration) "NO", NO; (Procedure completed Successfully) STOP
Просто Фортран является ФОРТРАНОВСКОЙ программы, которые мне удалось скачать. Пожалуйста как я могу
Напишите алгоритм для приведенной выше задачи. Спасибо
Что я уже пробовал:
Я пробовал использовать видеоуроки, но, похоже, ничего не работает. Просто FORTRAN-это название программного обеспечения, которое я смог загрузить, попытался загрузить FORTRAN 90 или 77, но ничего. Пожалуйста, если у вас есть такое программное обеспечение и вы готовы поделиться им со мной. Пожалуйста, я буду очень рад.
OriginalGriff
Если вы полный новичок в вычислительной технике, почему вы пытаетесь начать с FORTRAN? Это очень старый язык, и в основном он мертв в "реальном мире" (хотя есть некоторые твердолобые физики, использующие его, я понимаю).
Начинать с языка "устаревшего кода" в качестве первого-не очень хорошая идея!
Подумывали ли вы о том, чтобы начать с более современного и чистого языка, такого как C#? Инструменты поддержки великолепны, а образовательные ресурсы огромны и общедоступны.
Abdullahi Ibrahim
Спасибо за ваш ответ, но я еще не пробовал C#, в инструкции говорилось, что можно использовать либо QBASIC, либо FORTRAN. У меня мало времени. Это задание, которое должно быть представлено до крайнего срока 13/02/17, и у меня есть 3 из них. Помогите!!!
Abdullahi Ibrahim
Well, Asking for help doesn't imply asking anyone to help me get my assignment done. I've watched over 10 videos, all came with different procedures tried them but none worked, all the Algorithm I've written were reading error. About my course material, it was discussing Fixed point iteration when it jumped to using computer programs to evaluate equations and the professor gave it out as an assignment, so there was nothing like "Hello World". I believe this platform is meant to provide guidance, so, I believe a programmer in the house can write a program to evaluate an equation (preferably equation that involves using Newton Raphson Method) like what I have in my assignment, then I can follow his step by step procedure in doing my assignments. Thanks 🙏🏾
OriginalGriff
"Я верю, что программист в доме может написать программу для оценки уравнения (предпочтительно уравнения, которое включает в себя использование метода Ньютона рафсона), как то, что у меня есть в моем задании, а затем я могу следовать его пошаговой процедуре при выполнении моих заданий."
И вот в чем проблема: мы здесь не для того, чтобы делать тебе домашнее задание. Если ваш профессор не научил вас тому, что вам нужно знать, тогда поговорите с ним и выясните, что происходит. Но не ожидайте, что какой-либо сайт будет готов дать вам проходную оценку, если вы на самом деле не выполняете эту работу!
Abdullahi Ibrahim
это то, что я сделал, используя просто FORTRAN, и его неудача, направьте меня, спасибо
!Программа для алгоритма с фиксированной точкой
!Программа Fixed-Point_Algorithm
P = p0 - синус(pi*p0)
неявное отсутствие
целое число :: p, g, p0, pi, TOL, NO, i
Р0 = 0,95
pi = 4*ATN(1,0)
Нет = 20
TOL = 10**-6
TOL if (p-p0) <= 10**-6
пока я < нет
множество p = p0-sin (pi*p0),
if (p-p0) < TOL
Выход(p)
PRINT *, p write(*,*) "процедура успешно завершена"
else set i = i+1
P=p0
output (p) write(*,*) "метод не удался после отсутствия итераций"
"NO= ", NO; write(*,*) "процедура успешно завершена"
Остановка программы Fixed-Point_Algorithm
Abdullahi Ibrahim
Кто-нибудь?😟