Нужно решить 2 задачи на Фортране ,никак не сдам курсовую

[Anna5]

1)Пусть дан массив а(1),...,а(n).Требуется переставить а(1),...,а(n)так,чтобы сначала в массиве шла группа элементов,больших того элемента,который в исходном массиве располагался на первом месте,затем-сам этот элемент потом-группа элементов,меньших или равных ему.Число сравнений и перемещений,каждое по отдельности,не должно превышать n-1.

2)Найти с точностью 0.0001 все корни уравнения 1/х=sin(x),принадлежа-
щего отрезку[-pi,pi]

[Anatole]

2.

	PROGRAM KOREN
	DATA PI/3.141528/,EPSILON/0.0001/
	X=-PI
	YP=1/X-SIN(X)
1	IF(X.GT.PI) GOTO 7
	X=X+EPSILON
	IX(X.EQ.0) GOTO 1
	YN=1/X-SIN(X)
	IF(YP*YN.LE.0) WRITE(5,10) X
	YP=YN
	GOTO 1
7	CONTINUE
10	FORMAT('  X=',G10.4)
	END

Заранее извиняюсь за ошибки в синтаксисе. Лет 20 не пользовался этим языком. Это, сейчас не тестировал, но идея такова. По первой задаче дайте свои наработки

1.

	SUBROUTINE REBUILD(A(N),N)
	K=N
	J=2
	FOR I=2,N,1
	TEMP=A(J)
	IF (A(J)-A(J-1)) 112,113,113
112	A(J)=A(J-1)
	A(J-1)=TEMP
	J=J+1
	GOTO 111
113	A(J)=A(K)
	A(K)=TEMP
	K=K-1	
111	CONTINUE
	END

Не ручаюсь за точный синтаксис оператора цикла, а так должно работать. Это Fortran IV

[Anna5]

БОльшое спасибо)программы работают но непонятны.ВЫ бы не могли написать ход решения?

[Anatole]

Просмотрел синтаксис операторов. комментарии буду давать с учётом необходимых правок.

SUBROUTINE REBUILD(A(N),N)
С один из индексов устанавливаем на конец массива, сюда будем записывать элементы меньшие и равные первому
	K=N
С второй индекс устанавливаем на второй элемент, сюда будем переставлять первый элемент, если он меньше, чем следующий
	J=2
С начинаем цикл просмотра элементов, заканчивающмйся оператором с меткой 111
	DO 111 I=2,N,1
C Присваиваем буферной переменной значение очередного просматриваемого элемента
	TEMP=A(J)
С Сравниваем значение очередного элемента с предыдущим элементом
	IF (A(J)-A(J-1)) 112,113,113
С  записываем значение первого элемента на место следующего
112	A(J)=A(J-1)
С Записываем сохранённое значение следуещего элемента на место первого
	A(J-1)=TEMP
C переходим к рассмотрению следующего элемента
	J=J+1
С Переход на конец цикла
	GOTO 111
С Записываем в позицию текущего элемента один из элементов из конца массива 
113	A(J)=A(K)
С Записываем сохранённое значение в один из элементов в конце 
	A(K)=TEMP
С Сдвигаем позицию для хранения элементов меньших за первый к началу массива 
	K=K-1	
С это метеа для конца цикла
111	CONTINUE
	END

и вторая задача: алгоритм работает простым перебором всех значений функции на всём заданом промежутке с шагом, равным необходимой точности. Для выделения корней используется то свойство, что при пересечении оси абсцис значения функции меняют свой знак. А следовательно произведение текущего значения функции и предыдущего будет отрицательным.

[Anna5]

Спасибо),первая прорамма понятна полностью ,во второрой непонятна строка

if(x.eq.0)goto 1

и нужна ли она ,без неё программа также работает.
И строка

yp=yn

[Anna5]

Во второй программе строка

if(x.eq.0)goto 1

как я поняла ,должна исключать корень х=0,но она не работает
Строка

yp=yn

несовсем понятна

[Anatole]

if(x.eq.0)goto 1

Во первых х=0 не является корнем уравнения, a точкой разрыва первого рода, и во вторых если не сделать такую проверку, то при x=0 ваша программа может вылететь по делению на 0.

yp=yn

в программе хранятся два значения функции: в текущей точке и в предыдущей. При переходе к новой точке сохраням значение функции в теущей точке как в предыдущей. Это основная идея алгоритма.
Подумайте как отличить точку разрыва первого рода от корня уравнения. Это необходимо учесть в программе.

[Anna5]

Большое спасибо