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

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

Таблица 5. Анализ выполнения нормы расхода

топлива судами

ия сл ющ за с о -

вани

Судоходная компания устанавливает для судов каждого типа

н но т в о эк -

ж ы еж я д -

плива судами типа » и «Волжский» должны быть пред-

ставлен (4 × соответственно дно

Данные тном отношении к нормативному

расходу 00%, менее 100% – он

Исходные матриц Аij и Вij (рас-

ход м судном за j-й месяц навигации) – задать самостоя-

тельно в соответствии с решаемой задачей.

зада в м си E )

Среди судов каждого типа «Волго-Дон» и «Волжский»

(

О :

дача

Составить программу решен

ем процедуры.

еду ей дачи исп льзо

орм

и п

ативы расхода топлива. За эко

ремируются. Фактические данн

«Волго-Дон

мию

е о

опли

емес

а суд

чном

вые

расхо

ипа

е то

ы в виде матриц А(5 × 6) и В

ка, месяц – столбец).

приведен в процен

6) (су –

тро

топлива. Норма расхода – 1

ива, более – его перерасход.

данные – значения элементов

топлива i-

эк омия

опл

им

азвания месяцев навигации

вольного типа (см. лаб. раб. 7).

ть виде ас ва M S(6

Для п. 1–4)

пределить судно

№ За

1 едним расходом топлива за навигацию С наименьшим ср

2 С наибольшим едним расходом ср то плива за навигацию

3 С наименьшей суммарной экономие пл н ай то ива за авиг цию

4 перерасходом топлива за навигацию С наибольшим суммарным

С экономивших топливо, определить

судн

5 С наименьшей экономией топлива за навигацию

(Для п. 5–6)

реди судов, ежемесячно

о:

6 С наибольшей экономией топлива за навигацию

101

(

Среди судов, ячный перерасход топлива,

определить судно

Для п. 7–8)

допустивших ежемес

7 С наименьшим перерасходом топлива за навигацию

8 С наибольшим перерасходом топлива за навигацию

(Для п. 9–12)

Определить количество судов:

9 С ежемесячным перерасходом топлива за навигацию

10 С ежемесячной экономией топлива за навигацию

11 С общей экономией топлива за навигацию

12 С общим перерасходом топлива за навигацию

(Для п. 13–14)

Определить количество месяцев, в течение которых все суда:

13 Экономили топливо

14 Допускали перерасход топлива

(Для 15–16)

Определить месяцы, в течение которых все суда работали:

15 С экономией топлива

16 С перерасходом топлива

(Для п. 17–20)

Определить месяцы навигации:

17 С наибольшей экономией топлива

18 С наименьшим перерасходом топлива

19 С наибольшим средним расходом топлива

20 им средним расходом топлива С наименьш

102

6. Справочные материалы

дартные функции Fortran

нкция

ческое

Фортране

функции и

аргумента

Диапазон

значений

аргумента x

Таблица 6.1. Стан

Математи-

Запись на

Тип

Фу

определение

гарифм

(X) REAL x>0

атуральный

ln x LOG

ло

Дес

x>0

ятичный

л гарифм

lg x LOG10(X) REAL

Ква

дратный

орень

SQRT(X) REAL x≥0

Экспонента

EXP(X) REAL e

673,174≤x

модуль)

бсолютная

ABS(X) REAL величина

(

Ос

D(A,B) INTEGER

таток от

деления

Округление с

FLOOR(X) REAL

едостатком

збытком

кругление с

CEILING(X) REAL

{

}

max x

2≥

MAX

INTEGER

или

REAL

2,...1, n=i

Вы

ма

числение

имально-кс

го значения

{

}

min x

минимального

ычисление

з ачения

2≥n

2,...1, n=i

MIN

INTEGER

или

REAL

Тригонометрические функции, аргумент в радианах

Синус sin x SIN(X) REAL

р<x ⋅

Косинус cos x COS(X) REAL

р<x ⋅

Тангенс tg x TAN(X) REAL

р<x ⋅

Котангенс ctg x COTAN(X) REAL

р<x ⋅

103

Функция ческое

Фортране

функции и

Математи-

Запись на

Тип

определение аргумента аргуме

Диапазон

значений

нта x

Тригонометрические функции, аргумент в градусах (Intel Fortran)

Синус Rsin x SIND(X) EAL

р<x ⋅

Косинус cos x COSD(X) REAL

р<x ⋅

Тангенс tg x TA ND(X) REAL

р<x ⋅

Котангенс ctg x COTAND(X) REAL

р<x ⋅2

Обра тригон е футные ометрически нкции

Арккосинус

≤

arccos x ACOS(X) REAL

А arcsin x ASIN(X) REAL

≤

рксинус

Арктангенс ar x A ctg TAN(X) REAL

Арккотангенс arcсtg x AСОTAN(X) REAL

Гиперболич кцииеские фун

Синус sh x SINH(X) REAL

673174,x

≤

Косинус

673174,x

≤

сh x COSH(X) REAL

Тангенс th x TANH(X) REAL

Котангенс сt h x СОTANH(X) REAL

Датчик случайных чисел

Случайная

величина из

диапазона

CALL RANDOM_NUMBER(Y

[0,1)

)

Установка

атчика слуд -

чайных ч

случайным

исел

CALL RANDOM_SEED()

образом

104

лица 6.2. Стандартные функции Basic

матиче

еделен

Запи

Бейс

Диапазон

значений

Таб

Функция

Мате

опр

ское

ие

на

сь

ике

аргумента x

ln x LOG( x>0

атуральный

логариф

Квадратны

корень

SQR( x≥0 X)

Экспонен

та e

EXP(X)

673174,x

≤

А ве-

л ль)

бсолютная

ичина (моду

BS( A X)

Остаток

от деления

MOD(A,B)

Округление

INT(

с недостатком

Тригонометрические функции

Синус sin x IN(S X)

р<x ⋅

Косинус cos x COS(X)

р<x ⋅

Тангенс tg x TAN(X)

р<x ⋅

Обратные тригономе ие функциитрическ

Арктангенс arctg x ( ATN X)

Датчик сл сел учайных чи

Случайная

д ,1)

величина и

иапазона [0

RND

Установка датчи-

ч ым

RANDOMIZE TIMER

ка случайны

исел случайн

образом

риме

тельну

П чание. Гиперболические функции sh x и ch x выражаются через

пока ункцию следующим образом: за ю ф

−

e+e

−

ифметического выражения

Пример

Запись ар

105

()

exxx

sin3sh5.1cos ⋅+−−

на языка

оrtran:

должно быть набрано одной строкой:

QRT(ABS(X))) NH(X- N(X)

(1.0/3) * EXP(2*X)

х Fоrtran и Basic соответственно:

COS(S - 1.5*SI 3) + (SI **2) **

до ть набрано одной строкой

COS(SQR(ABS(X))) - 1.5*(EXP(X-3) - EXP(3-X))/2 +

Basic:

лжно бы

(SIN(X)^2) ^ (1/3) * EXP(2*X)

Таблица 6.3. Типичные ошиб и

аже

ки пр записи

ний

зыках

Fortran, Basic

Мат

матиче-

за

к про-

грамм

Н - Пояс ки Правильн

запись

арифметических выр

на ритмичеалго ских я

е- Язы

кая

пись

ирова-

ия

вильная

епра

запись

нение ошиб ая

BASIC

RAN

COS X нет скобок COS(X) os x

FORT

BASIC

|x|

FORTRAN

ABC(X)

неверное имя

функции

ABS(X)

BASIC EXP^X

()

заведена специаль-

но, чтобы НЕ воз-

EXP(X)

Функция EXP

FORTRA EXP**X

водить в степень

BASIC SIN^2(X) SIN(X)^2

sin

FORTR **2(X)

степень возво-

дится функция –

после закрываю-

щей скобки

SIN(X)**2

AN SIN

BASIC X^1/3 X^(1/3)

Приоритет опера-

приводит к

X**(1/3.0)

FORTRAN X**1/3.0

ций

106

вычислению (x

)/3

FORTRAN X**(1/3) деление

Целочисленное

приводит к

вычислению x

X**(1/3.0)

Таблица 6.4. Пример оформления отчета

по лабораторной работе

щей задачи:

на судостроитель-

н ед-

пределить для каждого полугодия месяц с наименьшим про-

центом

При про-

цедуры.

Исходные данные

е полугодие

. Постановка задачи1

Составить программу решения следую

ыполнение плана по объемам производстваВ

ом предприятии в течение года по месяцам (в процентах) пр

тавлено в виде массива

),...,,(

1221

AAA

выполнения плана.

разработке п ниерограммы предусмотреть использова

есяц

1 3 4 5 6

Янва Феврал арт Апрель Май Июнь рь ь М

1 98 0 97 01 10 108 105

2-е полугодие

Месяц

12 7 8 9 10 11

Июль уст ь рь Авг Сентябр Октябрь Нояб Декабрь

99 100 112 96 107 98

2. Ручн ре .

Резуль а д го п ден

ой расчет зультатов

таты расчет ля каждо олугодия приве ы ниже:

107

Полугодие

Месяц с наим

проценто

ьший процент

еньшим

Наимен

1 5 97

2 10 96

3. Обозначения пе ограмме, с

пояснением их смысла.

лобальные переменные:

нты выпол-

ременных, используемые в пр

• Массив с именем А вещественного типа (проце

нения плана, по месяцам).

•

Массив с именем MONTH символьного типа (названия ме-

сяцев).

Обозначения переменных в процедуре POL

Ai или A (I) Элемент массива (процент выполнения плана)

MONTH(I) Элемент массива (название месяца)

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

N е значение I (начало полугодия) Начально

K значение I (конец полугодия) Конечное

M Номер наименьше есяц с наименьшим

процент )

го элемента (м

ом

AM N и ле проI На меньший э мент (наименьший цент)

P м ди и 2Но ер полуго я – 1 ил

108

4. С оритма мы

хема алг основной програм и подпрограмм.

5. Программа.

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

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

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

Подпрограмма SUB

DIM SHARED A(12)

DIM SHARED MONTH$(12)

DATA " Январь", "Февраль", " Март"

DATA " Апрель", " Май", " Июнь"

DATA "Июль", "Август", "Сентябрь"

DATA "Октябрь", "Ноябрь", "Декабрь"

Основная

программа

Глобальные

массивы

Данные

(месяца)

109

DATA 101,98,100,108,97,105

DATA 99,100,112,96,107,98

CLS

FOR I = 1 TO 12

READ MONTH$(I)

NEXT I

PRINT "% ВЫПОЛНЕНИЯ ПЛАНА "

FOR I = 1 TO 12

READ A(I)

PRINT A(I);

NEXT I

PRINT " МИНИМАЛЬНЫЙ %";

PRINT " ВЫПОЛНЕНИЯ ПЛАНА : "

CALL POL(1, 6, 1)

CALL POL(7, 12, 2)

END

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

SUB POL (N, K, P)

AMIN = 1000

FOR I = N TO K

IF A(I) < AMIN THEN

AMIN = A(I): M = I

END IF

NEXT I

PRINT " < ";P; " > полугодие - ";

% за ";M; " месяц - ";

PRINT MONTH$(M)

END SUB

Данные

(проценты)

Цикл

Ввод данных

Цикл

Ввод-вывод

данных (%)

Вывод

заголовка

Вызов

п/п POL

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

Цикл

Определение

M, AMIN

Вывод

результатов

PRINT AMIN; "

ограммы – распечатк тов.

6. Результат выполнения пр а результа

% ВЫПОЛНЕНИЯ ПЛАНА

101 98 100 1

МИНИМАЛЬНЫЙ % В

08 97 105 99 100 112

ЕНИЯ ПЛАНА :

97 % за 5 месяц

за 10 месяц

96 107 98

- Май

Октябрь

ЫПОЛН

< 1 > полугодие -

< 2 > полугодие - 96 % -

110