Гурьяшова Р.Н., Шеянов А.В. Информатика: Сегментация программ
Подождите немного. Документ загружается.
Лабораторная работа 7
Анализ итогов работы предприятия
ндивидуальные варианты – табл. 4.7.
остави
дства на судостроитель-
ном (в процентах) пред-
ставлено в виде массива
(
1
A .
про-
цен
1-е полугодие
И
1. Задание
С ть программу решения следующей задачи:
Выполнение плана по объемам произво
предприятии в течение года по месяцам
),...,,
122
AA
Определить для каждого полугодия месяц с наименьшим
том выполнения плана.
При разработке программы предусмотреть использование про-
цедуры.
Исходные данные:
Месяц
1 2 3 4 5 6
Январь Февраль Март Апрель Май Июнь
A
1
A
2
A
3
A
4
A
5
A
6
%
101 98 1 97 105 00 108
2-е полугодие
Месяц
7 8 9 10 11 12
Ию Авгу Сентябрь Ок ь Н Декабрь ль ст тябр оябрь
A
7
A
8
A
9
A
10
A
11
A
12
%
99 100 11 107 98 2 96
2. Решение
Результаты расчета для каждого полу я при ны ни
Пол
Меся именьши
Наи ий процент
годи веде же:
угодие
ц с на м
меньш
процентом
1 5 97
2 10 96
71
Выделим в процедуру с именем POL определение номера и на-
звания наименьшим процентом выполн -
шения дачи эта етс и
2-го полугодия).
Процедура POL
енная переменная К (последний месяц полугодия).
переменная P (номер полугодия).
а (проценты выпол-
е-
процедуры будет иметь вид –
PO
мен
Обозначения переменных в процедуре POL
месяца с
данной за
ения плана. Для ре
я дважды (для 1-го процедура выполня
Формальные параметры процедуры
Входные параметры:
• Целочисленная переменная N (первый месяц полугодия).
• Целочисл
•
Целочисленная
Глобальные переменные:
• Массив с именем А вещественного тип
нения плана, по месяцам).
•
Массив с именем MONTH символьного типа (названия м
сяцев).
Ре льтат работы процедуры: зу
• Вывод номера и названия месяца, а также наименьшего
процента и полугодия (макет печати п. 5).
Выходных параметров нет, так как все результаты печатаются в
процедуре и в основную программу не передаются.
им обраТак зом, заголовок
L(N, K, P).
Алгоритм процедуры – циклический, параметр цикла – пере-
ная I. В алгоритме используется типовая процедура нахождения
наименьшего элемента и его позиции в массиве (рис. 2.7).
Ai или A (I) Элемент массива (процент выполнения плана)
MONTH(I) Элемент массива (название месяца)
I Порядковый номер элемента массива (номер месяца)
N Начальное значение I (начало полугодия)
K Конечное значение I (конец полугодия)
M Н именьшим омер наименьшего элемента (месяц с на
процентом)
AMIN Наименьший элемент (наименьший процент)
P Номер полугодия – 1 или 2
72
Рис. 2.7. Схема алгоритма к лабораторной работе 7
«Анализ итогов работы предприятия»
Основная программа
В основной программе осуществляется:
• Ввод-вывод исходных данных элементов массива A.
• Обращен сяца с наи-
меньшим проц
ов процедуры POL
–
ие к подпрограмме POL – определение ме
ентом для каждого полугодия:
Полугодие Выз
1 POL(1, 6, 1)
2 POL(7, 12, 2)
Схема алгоритма – см. рис. 2.7.
73
3. Листинг Fortran-программы
о модуля ния Код исходног Поясне
! Лабораторная работа 7
! А.Н М-11
!
INTEGER ::
108,97,105,99,100,112,96,107,98/)
)
','Март', &
нь', &
: MONTH(12)
ONTH
AMIN = 1000
HEN
IN,M, MONTH(M)
' ПОЛУГОДИЕ -',I4,&
',A)
ная
амма
Данные
(проценты)
обальные
ых
зов
кл
вод
татов
Основ
прогр
Петров
П
.
роцедура SUBROUTINE
A(12) = (/101,98,100, &
CHARACTER*10 :: MONTH(12
DATA MONTH &
/'Январь','Февраль
'Апрель','Май','Ию
'Июль','Август','Сентябрь', &
'Октябрь','Ноябрь','Декабрь'/
COMMON /A/ A, MONTH
PRINT 2, A
2 FORMAT(14X,' % ВЫПОЛНЕНИЯ ПЛАНА '/&
2X, 12I4/3X,' МИНИМАЛЬНЫЙ % ')
CALL POL(1,6,1)
CALL POL(7,12,2)
ND E
! Подпрограмма POL
SUBROUTINE POL(N,K,P)
INTEGER :: I,N,M,K,P,A(12),AMIN
CHARACTER*10 :
COMMON /A/ A, M
DO I = N,K
IF(A(I) < AMIN) T
AMIN = A(I) ; M = I
END IF
ENDDO
PRINT 3, P,AM
1,3 FORMAT(4X,I
' % ЗА ',I2,' МЕСЯЦ -
END SUBROUTINE
Данные
месяца) (
Гл
массивы
ывод даннВ
Вы
п/п POL
одпрограмма П
Ци
Определение
, AMIN M
Вы
резуль
74
Результаты работы программы представлены ни
4. Листинг Basic-программы
же (п. 5).
Код исходного модуля Пояснения
' Лабораторная работа 7
' Петров А.Н. М-11
' Подпрограмма SUB
DI SHARED A(12
DIM SHARED MONT
DATA " Январь т"
Июнь"
"
брь", "Декабрь"
8,97,105
98
INT A(I);
МИНИМАЛЬНЫЙ %";
2)
ограмма POL
N THEN
): M = I
программа
Глобальные
массивы
Дан
х
нных (%)
вод
головка
рамма
ние
Основная
M )
H$(12)
", "Февраль", " Мар
DATA " Апрель", " Май", "
т", "СентябрьDATA "Июль", "Авгус
DATA "Октябрь", "Ноя
DATA 101,98,100,10
DATA 99,100,112,96,107,
CLS
FOR I = 1 TO 12
READ MONTH$(I)
NEXT I
PRINT "% ВЫПОЛНЕНИЯ ПЛАНА "
FOR I = 1 TO 12
READ A(I)
PR
NEXT I
PRINT
RINT " P
PRINT " ВЫПОЛНЕНИЯ ПЛАНА : "
, 1)CALL POL(1, 6
CALL POL(7, 12,
END
' Подпр
SUB POL (N, K, P)
AMIN = 1000
FOR I = N TO K
IF A(I) < AMI
AMIN = A(I
END IF
NEXT I
ные
(месяца)
Данные
(проценты)
Цикл
вод данныВ
Цикл
вод-вывод В
да
Вы
за
Вызов
п/п POL
Подпрог
икл Ц
Определе
M, AMIN
75
PRINT " < ";P; " > полугодие - ";
";M; " месяц - ";
вод
зультатов PRINT AMIN; " % за
PRINT MONTH$(M)
END SUB
Вы
ре
5. Макет печати результатов (по Basic-про
ля с
на основная программа
пр
грамме)
% ВЫПОЛНЕ
101 98
НИЯ ПЛАНА
112 98
ц
-
100 108 97 105 99 100
МИНИМАЛЬНЫЙ % ВЫПОЛНЕНИЯ ПЛАНА :
96 107
< 1 > полугоди
< 2 > полугоди
е - 97 % за 5 меся
е - 96 % за 10 месяц
- Май
Октябрь
Д варианта задания определить для каждого квартала месяц
именьшим процентом выполнения плана
имет вид, представленный на рис. 2.8 (процедура не изменится).
Основная программа
Начало
A
i
, (I = 1, … 12)
POL (1, 3, 1)
1
2
A
i
, (I = 1, … 12)
3
POL (4, 6, 2)
Останов.
4
POL (7, 9, 1)
5
POL (10, 12, 2)
6
Рис. 2.8. Схема алгоритма к лабораторной работе 7
«Анализ итогов работы предприятия» для варианта задания с кварталами
76
Макет печати будет иметь следующий вид:
3. Контрольные вопросы
1. Что такое подпрограмма?
2.
Зачем используются подпрограммы?
3.
Преимущества использования подпрограмм.
4.
Типы подпрограмм.
5.
Отличие функции от процедуры.
6.
Концепция «черного ящика».
7.
Формальные и фактические параметры
8.
Можно ли использовать одинаковые имена для формаль-
пользуемом языке.
1 ение подпрограммы.
2
3
4
5
6 значения из
7.
Возникновение подпрограмм.
8.
Передача параметров по ссылке и по значению.
9.
Как организовать ений из под-
програ
. Пример.
я массива как параметра.
параметра?
ь видимости
% ВЫПОЛНЕНИЯ ПЛАНА
101 98 100 108 97 105 99 100 112 96 107 98
МИНИМАЛЬНЫЙ % ВЫПОЛНЕНИЯ ПЛАНА :
1 квартал - 98 % за 2 месяц - Февраль
2 квартал - 97 % за 5 месяц - Май
3 квартал - 99 % за 7 месяц - Июль
4 квартал - 96 % за 10 месяц - Октябрь
.
ных
9.
Соответствие формальных и фактических параметров.
и фактических параметров?
10.
Правила именования подпрограмм в ис
1 .
Описание и объявл
1 .
Структура записи функции.
1 .
Структура записи процедуры.
1 .
Оператор вызова процедуры.
1 .
Особенности вызова функции.
1 .
Как осуществляется возврат вычисленного
функции.
1
1
1 передачу нескольких знач
ммы?
20.
Входные и выходные параметры
21.
Особенности использовани
22.
Зачем нужно передавать функцию в качестве
23.
Глобальные и локальные переменные. Област
переменных.
77
24. Применение стека при вызове подп
ереп
ро м
олнение стека.
чения выражения
аботы 1 см. стр. 31.
грам .
25.
Рекурсия. Условие останова. П
4. Задания на выполнение
лабораторных работ
неДля табл. 4.1–4.7 приведены примеры выпол ния лаборатор-
ных работ (см. раздел 2).
Таблица 4.1. Вычисление зна
Задания для лабораторной работы 1.
Математические функции – табл. 6.1, 6.2, 6.3.
Пример выполнения лабораторной р
Составить программу вычисления величины
Ζ
с использовани-
ые
ем функции.
Исходн
данные
Значение
№ Формула для вычисления Z
Z
a
b
1
ba
a
baa
Z lnln
ln2ln
+−
+
=
2 1,5 – 0,5
b
abb 3lnln ++
2
)2sin(sin
sinsin
sin8sin
22
22
b
aZ
+
++=
π
o
– 2 1,25 0,
22
baba +
2913
3
222
2
)ln(ln
)3n
ab
a
b
a
b
+−
1,5
2
2
l3(ln
ln
a
Z
+
=
2 – 1,5394
2
lna +
4
)2,0tg2
π
−a
(tg
)tg3(tg
tgtg
−+
−−=
abb
baZ
o
0,8 3 1,1962
ba
a
ba
Z 2coscos
)3,0cos5(cos
)cos2(cos
2
++
+
+
=
π
o
1,2 1 0,2525
4
ln3cos
2
+ b
o
π
6
)2ln(cos
3
+ba
)ln(cos
2
22
−+= aZ
3 – 2 1,1684
b
a)cos3 +
o
7
a
b
b
ba
Z cossin
(sin
)cos2(sin
2
++
+
=
– 1 1,7 2,4201
78
Исходные
данные
№ Формула для вычисления Z
a
b
Значение
Z
8
)sin(ln
)3,0sin2(ln
2sinln
2
baa
bZ
+
+
−+=
π
o
– 2 3,1 0,4556
9
b
a
a
b
ab
Z tgcos
tg6cos
)tg(cos
2
−+
−
−
=
o
2,4 – 2 1,1446
10
a
b
aZ
ln3cos
)ln(cos
3lncos
2
+
+
−+=
o
π
1– 3 ,5 0,16103
11
3
tg2ln
3tgln
)tg(ln
2
π
−+
−
−
= b
b
ba
Z
o
1, – 2 85 31,7154
12
)sin(cos
)3sin(cos
sincos
22
222
22
aa
b
baZ
−
−
−−=
π
o
2
1,2 ,35 – 0,9182
13
22
2
2
)ln(sin
)2ln3(sin
lnsin
ba
b
ab
Z ++
+
+
=
o
2 – 3 3,3657
14
2
2
)tg(
tg
3tg
aeb
be
eZ
b
a
b
+−
+
−+=
− o
1,4 0,5 1,1209
15
2
3
)2(ln
ln
ln
b
a
eb
ea
eb
Z −+
−
−
=
−
– 2 1,5 11,8053
16
a
a
b
ea
e
eZ
−
+
+
−+=
sin
5sin
)
3
(sin
22
o
π
– 2 1 68,1193
17
2
3
)
3
cos(
2cos
4cos
π
−+
−
−
=
−
b
a
e
be
e
Z
o
1 2,7 243,73
18
)3cos(ln
cos3ln
)cos(ln
2
o
+
+
−+=
bb
a
baZ
– 3 2 0,4254
19
22
2
2
)3ln
3
(sin
)ln3(sin
lnsin
++
+
+
=
π
ba
ba
Z
o
1,5 2 6,1465
20
)asin(
5sin
)2sin(
2
bb
a
a
b
a
Z
+
+
−+=
o
1 2,5 2,1975
79
Таблица 4.2. Вычисление з
заданной в фо
Задания для лабораторной работы
выполнения лабораторной
наче
рме
2.
рабо
ния величины,
ветвления
ты . 36
ть программу вычисления величин з но
ветвления. Вычисление факториал и наименьшей (наибольшей) из
д величин оформить в виде функций.
Исходные
анные
Пример
Состави
2 см
ы Z,
стр.
адан
.
й в виде
а
вух
д
№ Формула для вычисления Z
a b k
Значе-
ние
Z
1
⎪
⎪
⎩
⎪
⎪
⎨
⎧
≠<+
=<⋅⋅+
≤≥+−
>≥
=
1и1при)!(
1и1при)!2(
0и1при)!1(
0и1при]!,,max[
2
2
bakba
bakba
bakab
bakba
Z
3
–1
1
–
1
2
2
1
2
2
3
23
3
–8
1
–5
40
2
⎪
⎪
⎩
⎪
⎪
⎨
⎧
≤≤−⋅+
>≤+
≠>+⋅
=>
=
babkba
babbka
abkba
abkab
Z
и0при)!1(
и0при)!(
1и0при)!2(
1и0при]!,,min[
2
3
–2
5
2
–4
–1
4
2
2
3
30
–4
1
1
1
20
3
⎪
⎩
⎪
⎧
−+
⋅−
><⋅
akb
kab
abak
)!1(
)!3(
1bи0при)],max(2,!max[
– 2 3
23
11
⎪
⎪
⎨
>≥+
≤<
=
baakba
ba
Z
и0при)!(
1и0при
2
–4
–1
1
2 26
1
6
≤≥ baa и0при
2
1
1
2 2
4
1
3 1 3 2
12
⎪
⎪
⎩
⎨
≤≤−⋅
>≤+⋅
=
0ипри)!(
0ипри)!2(
2
2
abakba
abakba
Z
1
–5
2
–4
2
2
28
–4
⎪
⎪
≠>⋅+− 1ипри)!1( bbabak
3
2
4
⎧
=>⋅ bипри)]!,min(2,min[ bakba
⎪
⎪
⎩
⎪
⎪
⎨
≤≠++
⋅
≤=+
=
1ипри)!1(
0ипри)!(
2
2
bbakba
ba
abakba
Z
2
–
2
2 3
2
6
⎧
>= 0ипри],!,2max[ ababka
5
>≠+ 1ипри)!2( bbak
1
–1
3
2
2
–1
2
–25
30
–2
6
⎪
⎪
⎩
⎪
⎪
⎨
⎧
≤≠++⋅
>≠⋅+
<=+
≥=
=
baakba
baakba
bakab
bakba
Z
и1при)!1(
и1при)!2(
и1при)!(
0и1при]!,2,min[
2
0
1
1
3
2
4
–1
2
3
3
2
1
2
1
23
7
12
80