Бригадные п/п

НИУ “МЭИ”

Бригадные п/п

Бригады №3

Жданова Вячеслава

Гусаковой Инны

Груздева Георгия

Преподаватель:

Антиповская Г. В.

Москва 2013

1) Функция EXTR(F, N, M, L) – находит абсолютный экстремум (максимум при M=1, минимум при M=-1) среди значений F(k) /k=1, 2, 3, …, N/, где F – внешняя функция. Дополнительному результату – параметру L присваивается то значение k, для которого F(k) экстремальна.

Класс	Имя	Смысл	Структура	Тип
Исходные данные	F M N	Исходная функция Показатель экстремума Колличество подставляемых k	Простая переменная Простая переменная	целый целый целый
Результат	L min max	номер k для которого F(k) экстремальна экстремумы	Простая переменная Простая переменная	Целый Целый
Промеж. Данные	C j	Вектор значений функции тек. № столбца	С(N) Простая переменная	Целый целый

max=C(j) L=j

min=C(j) L=j

min=C(1) L=1 j=2

max=C(1) L=1 j=2

M=1

j< =N

max< C(j)

min> C(j)

j=j+1

F, M, N

K=1

Нахождение экстремума

k=k+1

C(k)=F(k)

K< =N

L, min, max

Use MSFLIB

INTEGER F, EXTR, R

EXTERNAL F

I=runqq('chcp', '1251')

R=EXTR(F, 1, 5, L)

WRITE(*, 15) L, R

15 FORMAT(1x, 'При значении k =', I3, 1x, ', абсолютный экстремум равен', I3)

STOP

END

INTEGER FUNCTION F(x)

INTEGER x

F=12*x

RETURN

END

INTEGER FUNCTION EXTR(F, M, N, L)

INTEGER N, M, L, j, F, min, max, C

DIMENSION C(N)

DO 11 k=1, N, 1

C(k)=F(k)

11 CONTINUE

19 CONTINUE

IF (M. EQ. 1) THEN

max=C(1)

L=1

DO 21 j=2, N, 1

IF (max< C(j)) THEN

max=C(j)

L=j

EXTR=max

END IF

21 CONTINUE

29 CONTINUE

ELSE

min=C(1)

L=1

EXTR=min

DO 31 j=2, N, 1

IF (min> C(j)) THEN

min=C(j)

L=j

EXTR=min

END IF

31 CONTINUE

39 CONTINUE

END IF

RETURN

END