Гурьяшова Р.Н., Шеянов А.В. Информатика: Сегментация программ

B) THEN

READ(*,*) A,B,K

IF(A <

данных

IF(B > 0) THEN

Z = ZMAX(A, FK(K))

Z = ZMAX(A, B*Z)

ELSE

Z = B - A * FK(2 * K)

END

ELSE

Z = A * B - FK(K**2)

END IF

PRINT 3, A,B,K,Z

3 FORMAT(2X,' ИСХОДНЫЕ ДАННЫЕ '/ &

! Функция

L FU

REAL

INTE

P = 1

DO I =

P = P * I

ENDDO

FK = P

имума 2х чисел

(X,Y)

R

B>0

B и B<=0

A>=B, B<>1

Вывод

данных и

Функция FK

Цикл

IF

IF (B == 1) THEN

Z = A + B * FK(K + 2)

ELSE

A>=B и B=1

A<B и

A<

2X,' A = ',F3.0,' B = ',F3.0, &

' K = ',I2/' РЕЗУЛЬТАТ Z=',F3.0)

PRINT *, '------------------------'

END

результата

вычисления факториала FK = M!

REA

NCTION FK(M)

:: P

GER :: M,I

2, M

END FUNCTION

! Функция вычисл. макс

REAL FUNCTION ZMAX

REAL :: X,Y,

R = X

IF (Y > R) R = Y

ZMAX = R

п ZMAX П/

41

END FUNCTION

Результаты работы прогр

аммы ниже (п. 5).

вия для краткости п о

и диняя несколько условий,

н

Примечания. 1. При проверке усло рограммы можн

спользовать логические связки (AND, OR, NOT), объе

апример:

IF (A < B .AND. B > 0) THEN

енностью используемой обо2. В связи с особ

предыдущего

лочки при выполнении програм-

м выполнения пропадает.

ная функция MAX (и MIN,

можно пред

ы результат

3. На Фортране имеется стандарт

Таким образом, выражение max(

табл. 6.1).

ставить в виде A,B·max(A,K!))

B* MAX(A, FK(K)) Z = MAX(A,

Н ке задачи («Выч

ш

4. Листинг Basic-программы

о тогда это не будет соответствовать постанов

ить в виде функции»).

исление наиболь-

его значения оформ

Код исходного модуля Пояснения

' Лабораторная работа 2 О

' Петров А.Н. М-11

' Подпрограмма FUNCTION

INPUT " Введите А,В,К "; A, B, K

)

Z)

K(2 * K)

EN

FK(K + 2)

ДАННЫЕ "

B; " K = "; K

--------------"

программа

Ввод данных

A

A<B и B<=0

A>=B и B=1

A>=B и B<>1

Вывод

данных и

результата

IF A < B THEN

IF B > 0 THEN

FK(K) Z = ZMAX(A,

Z = ZMAX(A, B *

ELSE

Z = B - A * F

END IF

ELSE

IF B = 1 TH

Z = A + B *

ELSE

Z = A * B - FK(K ^ 2)

END IF

"ИСХОДНЫЕPRINT TAB(3);

PRINT "A = "; A; "B = ";

ЕЗУЛЬТАТ Z = ## "; Z PRINT USING " Р

PRINT "----------

сновная

<B и B>0

42

EN

'

1

EN

R = X

IF Y > R TH

ZMAX = R

END FUNCTION

Функция FK

Функция

ZMAX

D

Функция вычисления факториала FK=M!

FUNCTION FK (M)

P =

FOR I = 2 TO M

P = P * I

NEXT I

Цикл

FK = P

D FUNCTION

' Функция вычисл. максимума 2х чисел

FUNCTION ZMAX (X, Y)

EN R = Y

Примечан вия для краткости пр жно

и OR, NOT), объединяя вий,

н

ие. При проверке усло ограммы мо

спользовать логические связки (AND, несколько усло

апример:

IF A < B AND B > 0 THEN

5. Макет печати результатов (по B

asic-программе)

43

Лабораторная работа

ыр

3

Вычи ажения

Индивидуальны

Математические

Составить прогр дачи.

Вычислить знач

∑∑

=

2

}tg

n

i

aZ ,

где

., 34 == kn

Вычисление суммы оформить в виде функции.

Исходные данные – значения элементов массивов А и В – зада-

дим самостоятельно:

В

ведите

A = 2 B = 4 K = 3

А,В,К ? 2,4,3

ИСХОДНЫЕ ДАННЫЕ

УЛЬТАТ Z = 24

--------------------

А,В,К ? -2,-1,1

B = 1 K = 2

Z = 26

--------------

Введите А,В,К ? 5,4,2

ИСХОДНЫЕ ДАННЫЕ

РЕЗ

----

Введите

ИСХОДНЫЕ ДАННЫЕ

A = -2 B = -1 K = 1

РЕЗУЛЬТАТ Z = 3

------------------------

Введите А,В,К ? 2,1,2

ДНЫЕ ДАННЫЕ ИСХО

A = 2

РЕЗУЛЬТАТ

----------

A = 5 B = 4 K = 2

РЕЗУЛЬТАТ Z = -4

------------------------

сление значения в

(обработка массива)

е варианты – табл. 4.3.

функции – табл. 6.1, 6.2, 6.3.

1. Задание

амму решения следующей за

ение величины Z:

∑

+ tgmax{tg

ii

ba

−1

22

,

nk

===211 ii

44

Массив А Массив В

A

1

A

2 2 3

B BA

3

A

4

B

1

2 3 3 2 2 4 1

2. Решение

Введем дополнительные я для сумм – S1, S2, S3 со-

отв ственно:

.

Тогда вычи в

Z = S1 + max(S2,S3)

, что для решения данной задачи значения сумм необ-

ход

∑

=

Li

i

cS

2

tg .

рмаль параметры функции:

Масс с имене – вещественног ипа.

Целочисленная перем ний предел суммирования).

Целочисленная пер верхний предел суммиро-

е суммы.

Заголов нкции б меть ви

(C,L,M).

Алгоритм подпрограммы – это циклический алгоритм вычисле-

ния

Обозначе и SUM

обозначени

ет

S1 =

∑

= 2

tg

i

a , S2 =

∑

=i

b

1

tg

−1

2

n k

2

, S3 =

∑

n

a

2

tg

i

представить

=i

i

1

виде сление Z можно

Очевидно

имо вычислить три раза.

Выделим в функцию с именем SUM вычисление суммы вида

M

Функция

Фо

SUM

ные

•

ив м С о т

енная L (ниж

еменная M (

•

вания).

Результат:

• Значени

ок фу удет и д –

SUM

суммы элементов массива (рис. 2.3).

ния переменных в функци

S Сумма

I Порядковый номер элемента массива, параметр цикла

L, M Начальное и конечное значения I

Ci, C(I) Элемент массива с номером I

SUM Возвращаемое значение суммы имя функции) (

Основная программа

45

В основной программе осуществляется:

• и элементов А

i

и В

i

.

ии с постановкой

к функции SUM:

мма Вызов функции SUM

Ввод-вывод данных – значений N, K

• Вычисление искомой величины Z в соответств

задачи выполняется в следующем порядке:

o Вычисление сумм S1, S2, S3 производится в результате об-

ращения

мяИ Су

S1

∑

2

tg

i

a

SUM(A,2,N –

−1n

1)

= 2i

S2 (В,1,К)

∑

=i

i

b

1

tg

SUM

k

2

S3 SUM(A,1,N)

∑

i

a

2

tg

=i 1

n

Вычи 2, S3.

ой величины Z.

• н – S1, S2, S3, MAX.

o сление наибольшего значения из величин S

o Вычисление иском

Вывод значений промежуточных величи

• Вывод результата Z (макет печати – п. 5).

46

Рис. 2.3. Схема алгоритма к лабораторной работе 3

«Вычисление значения выражения»

47

Обозначения переменных в основной программе

N Количество элементов в массиве А

K Количество элементов в массиве В

Ai, A(I) Элемент массива А с номером I

Bi, B(I) Элемент массива B с номером I

S1, S2, S3 Значения сумм S1, S2, S3

MAX Наибольшее из сумм S2, S3

Z Искомая величина

3. Листинг Fortran-программы

Код исходного модуля Пояснения

! Лабораторная работа 3

! Петров А.Н. М-11

! Процедура FUNCTION

EXTERNAL SUM

REAL :: A(4) = (/2,3,2,4/)

REAL :: B(3) = (/1,3,2/)

INTEGER :: N = 4, K = 3

REAL :: S1,S2,S3,Z,MAX

PRINT 2, N,K,A,B

2 FORMAT(' ИСХОДНЫЕ ДАННЫЕ '/ &

2X,'N = ',I1,' K = ',I1/ &

1X,' МАССИВ A: ',4(F3.0,2X)/&

1X,' МАССИВ B: ',3(F3.0,2X))

S1 = SUM(A,2,N-1)

S2 = SUM(B,1,K)

S3 = SUM(A,1,N)

MAX = S2

IF(S3 > MAX) MAX = S3

Основная

программа

Задание

исходных

данных

Вывод

исходных

данных

Вызов п/п SUM

Max(S2,S3)

Z = MAX + S1

PRINT 4, S1,S2,S3,MAX,Z

4 FORMAT(2X,' S1 = ',E11.4/ &

' S2 = ',E11.4/2X,' S3 = ',&

E11.4/' MAX = ',E11.4/, &

' РЕЗУЛЬТАТ Z = ',E11.4)

END

Вывод

промежуточных

значений и

результата Z

48

! Функция вычисления суммы SUM

REAL FUNCTION SUM(C,L,M)

REAL :: C(M),S

INTEGER :: I,L,M

S = 0

DO I = L,M

S = S + TAN(C(I)**2)

ENDDO

SUM = S

END FUNCTION

Функция SUM

Цикл

Вычисление суммы

Результаты работы программы представлены ниже (п. 5).

Примечания. 1. В Фортране имеется встроенная функция SUM (для ра-

боты с массивами). Для того чтобы использовать собственную функцию с тем же

именем, необходимо описать ее как EXTERNAL (внешний).

2. Для вычисления максимума можно использовать встроенную функцию

MAX (табл. 6.1):

Z = MAX(S2, S3) + S1

3. Ввод данных в программе можно «поручить» датчику случайных чисел

(табл. 6.1). Тогда фрагмент программы, осуществляющий ввод-вывод массивов,

может выглядеть следующим образом (обратите внимание на операции над мас-

сивом «целиком»):

Код исходного модуля Пояснения

DIMENSION A(4), B(3)

N = 4; K = 3

CALL RANDOM_SEED()

CALL RANDOM_NUMBER(A)

A=FLOOR(A*5.0)

CALL RANDOM_NUMBER(B)

B=FLOOR(B*5.0)

PRINT 2, N,K,A,B

2 FORMAT(' ИСХОДНЫЕ ДАННЫЕ '/ &

2X,'N = ',I1,' K = ',I1/ &

1X,' МАССИВ A: ',4(F3.0,2X)/&

1X,' МАССИВ B: ',3(F3.0,2X))

END

Заполнение

массива А

Заполнение

массива B

Вывод

данных

49

4. Листинг Basic-программы

Код исходного модуля Пояснения

' Лабораторная работа 3

' Петров А.Н. М-11

' Подпрограмма FUNCTION

CLS

DIM A(4), B(3)

DATA 2,3,2,4,1,3,2

N = 4: K = 3

PRINT "ИСХОДНЫЕ ДАННЫЕ "

PRINT STRING$(16, "*")

PRINT USING " N = # K = # "; N; K

PRINT " МАССИВ А : ";

FOR I = 1 TO N

READ A(I)

PRINT USING " # "; A(I);

PRINT " МАССИВ В : ";

FOR I = 1 TO K

READ B(I)

PRINT USING " # "; B(I);

S1 = SUM(A(), 2, N - 1)

S2 = SUM(B(), 1, K)

S3 = SUM(A(), 1, N)

IF S2 > S3 THEN MAX=S2 ELSE MAX=S3

Z = S1 + MAX

PRINT " РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ : "

PRINT STRING$(24, "*")

PRINT USING " S1 = ##.####^^^^ ";S1

PRINT USING " S2 = ##.####^^^^ ";S2

PRINT USING " S3 = ##.####^^^^ ";S3

PRINT " МАХ(S2,S3) = ";

PRINT USING "##.####^^^^ "; MAX

PRINT USING " Z = ##.####^^^^ "; Z

END

Основная

программа

Задание

исходных

данных

Ввод-вывод

массива А

Ввод-вывод

массива B

Вызов п/п SUM

Max(S2,S3)

Вывод

промежуточных

значений и

результата Z

50

Гурьяшова Р.Н., Шеянов А.В. Информатика: Сегментация программ

Подождите немного. Документ загружается.