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

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

Заголовок процедуры будет иметь вид – PD(Z, REZ).

цедура вычислПро яет отношение произведения отрицательн

ментов массива Z к их количеству.

ых

эле

ожества значений, удовле-

тво

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

изведения и количества некоторого мн

ряющих условию Z

< 0 (рис. 2.5).

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

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

Начало

, (I = 1, …, N)

Останов

, (I = 1, …, N)

PD (X, XS)

PD (Y, YS)

PD (Z, REZ)

K = 0, P = 1

K = K + 1

I = 1, N

Выход

< 0

Нет

Да

REZ = P / K

P = P · Z

XS, YS

Конец цикла по I

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

«Вычисление координат искомой точки»

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

Z Рабочий массив

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

I Параметр цикла, номер элемента в массиве Z

Zi или Z(I) Элемент массива Z

P, K ементов Z

Произведение и количество отрицательных эл

REZ Возвращаемое значение, P/K

Основная

сновной :

• данных – количества точек N и элемен-

точек).

программа

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

Ввод-вывод исходных

тов массива X и Y (координат заданных

• Обращение к процедуре PD для вычисления координат иско-

мой точки:

Искомая точка Вызов процедуры PD

Абсцисса XS PD(X,XS)

Ордината YS PD(Y,YS)

• Вывод , YS – координат иско (макет пе-

п.

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

значений XS

4, п. 6).

мой точки

чати

Обозна

X, Y Массив абсцисс и ординат соответственно

N ло точек) Количество элементов в массивах (чис

I Параметр цикла, номер точки

или X(I) Элемент массива X

или Y(I) Элемент массива Y

XS, YS Абсцисса и ордината искомой точки (X*, Y*)

а алСхем

горитм

ran-программы

Ко Пояснения

а см. рис.2.5.

3. Листинг Fort

д исходного модуля

! Лаборатор

! Петров А.

,-2,5,-2/)

(/5,-1,1,-2,-3/)

Е ДАННЫЕ '/ &

N = ',I1/&

Осн

про

дание

ходных

ная работа 5

Н. М-11

! Процедура SUBROUTINE

COMMON /A/ N

REAL :: X(5) = (/4,0

REAL :: Y(5) =

INTEGER :: N = 5

REAL :: XS,YS

PRINT 1, N,X,Y

ОДНЫ1 FORMAT(3X,' ИСХ

2X,'КОЛИЧЕСТВО ТОЧЕК

4X,'КООРДИНАТЫ ТОЧЕК'/ &

2(2X,5F4.0/))

овная

грамма

За

ис

данных

Вывод

сходныхи

данных

CALL PD(X,XS)

CALL PD(Y,YS)

PRINT 3, XS,YS

FORMAT(1X,' ИСК3 ОМАЯ ТОЧКА ( ' &

3.0,' ) ')

BROUTINE PD(Z,REZ)

; P = P*Z(I)

п PD

зов п/п PD

дпрограмма

кл

ение

,F3.0,' ; ',F

END

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

COMMON /A/ N

REAL :: Z(N),P,REZ

N,K INTEGER :: I,

P = 1 ; K = 0

DO I = 1,N

) TH IF(Z(I) < 0

+ 1 K = K

END IF

END DO

REZ = P/K

TINE END SUBROU

ызов п/В

Вы

Вывод

езультата р

По

Ци

Вычисл

,K P

Примечание. Конструкция

COMMON /A/ N

назы м, где А – имя блока. Fortran не разрешает

и еременные непоименованных общих блоков.

вается именованным общим блоко

нициализировать п

INTEGER :: N = 5

4. Макет печати результатов (по Fortran-программе)

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

КОЛИЧЕСТВО ТОЧЕК N = 5

КООРДИНАТЫ ТОЧЕК

4. 0. -2. 5. -2.

-2. )

5. -1. 1. -2. -3.

ИСКОМАЯ ТОЧКА ( 2. ;

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

Код и Пояснения

сходного модуля

' Лаборато

' Петров А

1,5,-2,-2 ,-3

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

" КОЛИЧЕСТВО ТОЧЕК N = "; N

##)";X(I);Y(I)

X(), XS)

(Y(), YS)

ЧКА ";

; ##) "; XS; YS

PD (Z(), REZ)

THEN

I): K = K + 1

Осно

программа

дание

нных

вод N

заголовка

кл

ода-вывода

ат

зов п/п PD

дпрограмма

ение P,K

рная работа 5

.Н. В-11

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

COMMON SHARED N

= 5 N

DATA 4,5,0,-1,-2,

), Y(N) DIM X(N

CLS

INT TAB(3); "PR

PRINT TAB(3); " КООРДИНАТЫ ТОЧЕК "

PRINT TAB(4); " X Y "

FOR I = 1 TO N

READ X(I), Y(I)

PRINT TAB(5);

PRINT USING"(## ;

NEXT I

CALL PD(

LL PDCA

PRINT " ИСКОМАЯ ТО

INT USING "M(##PR

END

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

B SU

K = 0: P = 1

FOR I = 1 TO N

IF Z(I) < 0

P = P * Z(

END IF

NEXT I

REZ = P / K

END SUB

вная

За

да

Вы

таблицы

Ци

вв

координ

точек

Вы

Вывод

зультата ре

По

Цикл

Вычисл

6. Макет печати результатов (по Basic-программе)

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

Анализ итогов сдачи сессии

Индивидуал

Составить программу ре ющей задачи:

ентов пред-

ставлен

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

КОЛИЧЕСТВО ТОЧЕК N = 5

КООРДИНАТЫ ТОЧЕК

X Y

( 4 ; 5)

( 0 ; -1)

(-2 ; 1)

( 5 ; -2)

(-2 ; -3)

ИСКОМАЯ ТОЧКА M( 2 ; -2)

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

1. Задание

шения следу

Результаты сдачи экзамена в группе 1 из 10 студ

)A,,A,(A ...

ы массивом

1021

, а в группе 2 из 7 студентов –

массивом

)B,

лить для каждой группы количество студентов, полу-

енку выше среднего балла в группе.

е данные.

ля группы 1:

Ст 3 4 5 6 7 8 9 10

,B,(B

...

Опреде

чивших оц

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

процедуры.

Исходны

удент 1 2

A A A A A A A A A A

1 2 3 4 5 6 7 8 9 10

Оценка

5 5 2 4 5 4 3 2 5 3

Для г

р ы

С 2 3 4 5 6 7

упп 2:

тудент 1

Оценка

3 4 5 2 5 4 5

2. шени

результатов для к ы приведен ниже:

Ре е

Расчет аждой групп

Результаты Группа 1 Группа 2

Ср балл 3,8 4 едний

Количес ов с

средней

тво студент

оценкой выше

6 3

Выделим в процедур

руппы и количества ст

у с именем PR вычисление среднего балла

г удентов, получивших оценку выше средней.

Оче

ормальные параметры процедуры

етры:

а (оценки студентов

группе).

передать в процедуру (целочисленная

данных – номера группы, оценок студен-

с оценкой выше средней (макет печати п. 5).

Заголовок процедуры будет иметь вид –

PR(C,N,M).

Схема алгоритма представлена на рис. 2.6.

видно, что для решения задачи эти действия необходимо вы-

полнить два раза – для группы 1 и группы 2.

Процедура PR

Входные парам

o Массив с именем С вещественного тип

в группе).

o Целочисленная переменная N (размер массива, количество

студентов в

o Кроме того, для наглядности будем печатать номер группы,

который тоже нужно

переменная M).

Результат работы процедуры:

• Вывод исходных

тов.

• Вывод результатов – среднего балла группы и количества

студентов

Выходных параметров нет, так как все результаты печатаются в

процедуре и в основную программу не передаются.

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

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

PR (C, N, M)

Начало

S = 0, K = 0

> Sr

I = 1, N

Выход

Да

Нет

, (I = 1, …, 10)

S = S + C

Sr = S / N

I = 1, N

K = K + 1

, (I = 1, …, 7)

Останов

PR (A, 10, 1)

PR (B, 7, 2)

Конец цикла по I

Sr , K

M, C

, (I = 1, … N)

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

«Анализ итогов сдачи сессии»

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

(рис. 2.6):

– 1-й цикл , исполь-

зуется типовой алгоритм вычисления суммы элементов массива;

ци

(блоки балл группы2, 3, 4) вычисляет средний

– 2-й цикл (блоки 6, 7, 8, 9) определяет количество студентов,

получивших оценку выше средней.

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

пе)

Порядковый номер элемента в массиве (сту-

дента в груп

C(I), в схеме – C

Элемент массива (оценка студента с номе-

ром I)

N Количество элементов в массиве (студентов

в группе)

S Сумма элементов массива (сумма оценок

группы)

SR Среднее арифметическое элементов массива

(средний балл группы)

K Количество элементов, удовлетворяющих

условию C > Sr, искомая величина

M Номер группы – 1 или 2

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

В основной программ

• исходных данны в A и B.

• е к процедуре PR – определение количества студен-

едней для каждой группы:

е осуществляется:

Ввод х – элементов массиво

Обращени

тов с оценкой выше ср

Группа Число студентов Вызов процедуры PR

1 10 PR(A, 10, 1)

2 7 PR(B, 7, 2)

3 ran-прог

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

. Листинг Fort раммы

о Пояс

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

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

! Процедура

2,4,5,4, &

3,4,5,2,5,4,5/)

овная

программа

нных

я работа 6 Осн

SUBROUTINE

REAL :: A(10) = (/5,5,

3,2,5,3/)

REAL :: B(7) = (/

Задание да

(оценок

студентов)

CALL PR(A,10,1)

CALL PR(B,7,2)

END

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

SUBROUTINE PR (C,N,M)

N,M,K

,SR,S

S = 0 ; K = 0

зов п/п PR

INTEGER :: I,

REAL :: C(N)

Вы

Вызов п/п PR

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

DO I = 1,N

S = S + C(I)

ENDDO

SR = S/N

DO I = 1,N

IF(C(I) > SR) K = K + 1

ОЦЕНКИ ГРУППЫ ', &

ENDDO

PRINT 3, M

3 FORMAT(9X,'

I1/3X,10F3.0)

4, SR,K PRINT

FORMAT(4 3X, ' СРЕДНИЙ БАЛЛ ', &

1/3X, & 'SR = ',F3.

' КОЛИЧЕСТВО K = ',I1)

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

END SUBROUTINE

Цикл

ычисление SR В

Цикл

Вычисление K

вод исходных

ьтатов

данных

ывод В

резул

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

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

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

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

' тров А.Н. М

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

CLS

4, 5

новная

ных

работа 6

-11

Ос

программаПе

DIM A(10), B(7)

2,5,3 DATA 5,5,2,4,5,4,3,

DATA 3, 4, 5, 2, 5,

Задание дан

(оценок)

FOR I = 1 TO 10

READ A(I)

NEXT I

, 2)

C(), N, M)

S = S + C(I)

THEN K = K + 1

КИ ГРУППЫ "; M

, "

-")

од данных

зов п/п PR

дпрограмма

числение SR

кл

ние K

кл

вод

атов

FOR I = 1 TO 7

READ B(I)

NEXT I

10, CALL PR(A(),

(B(), 7CALL PR

END

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

UB PR (S

S = 0: K = 0

OR I = 1 TO N F

NEXT I

SR = S / N

FOR I = 1 TO N

IF C(I) > SR

NEXT I

PRINT " ОЦЕН

FOR I = 1 TO

PRINT C(I);

NEXT I

PRINT " СРЕДНИЙ БАЛЛ SR = ";

ТВО K = "; K PRINT " КОЛИЧЕС

PRINT STRING$(33

END SUB

Вв

ызов п/п PR В

Вы

По

икл Ц

Вы

Ци

Вычисле

Ци

Вывод данных

(оценок)

Вы

результ

5. Макет печати результатов (по Fortran ) -программе

ОЦЕНКИ ГРУППЫ

4. 3

5. 5. 2. 4. 5.

СРЕДНИЙ БАЛЛ S

. 2. 5.

R = 3.8

КОЛИЧЕСТВО K = 6

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

ОЦЕНКИ ГРУППЫ 2

3. 4. 5. 2. 5. 4. 5.

СРЕДНИЙ БАЛЛ SR = 4.0

КОЛИЧЕСТВО K = 3

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