Пример 9.9

Дана матрица C(4х6), каждая строка которой содержит положительные, отрицательные и нулевые элементы. Сформировать вектор D(4) по следующему правилу: если количество положительных элементов i-той строки (i=1..4) больше количества отрицательных, элементу вектора D присвоить значение равное 1, в противном случае 0. Подсчёт количества положительных и отрицательных элементов строки оформить в виде процедуры.

Алгоритм главной программы

Алгоритм подпрограммы

program example99;

type t = array [1..4,1..6] of real;

r = array [1..4] of real;

var

c: t;

d: r;

m, n, s1, s2: integer;

procedure Pro (f: t; var k1, k2:integer; i: integer);

var

j:integer;

begin

for j:=1 to 6 do

if f [i,j] > 0 then k1:= k1 + 1 else

if f [i, j] < 0 then k2:= k2 + 1

end;

{ ***** начало главной программы ***** }

begin

for m:=1 to 4 do

for n:=1 to 6 do read (c [m, n]);

writeln;

for m:=1 to 4 do

begin

s1:=0; s2:=0; Pro (c, s1, s2, m);

if s1 > s2 then d [ m ]:= 1 else d [ m ]:= 0;

end;

writeln ('Вектор D ');

for m:=1 to 4 do write (d [ m ])

end.

Сложный цикл, который необходим для обработки заданной матрицы, разделён между процедурой и главной программой. Процедура содержит внутренний цикл, который обрабатывает строку матрицы, подсчитывая в ней количество положительных и отрицательных элементов.

Внешний цикл, расположенный в главной программе, меняет номера строк матрицы и передаёт их в процедуру в момент её вызова. Результаты счёта - количество положительных и отрицательных элементов строки возвращается в главную программу посредством глобальных переменных s1 и s2 (в процедуре им соответствуют параметры-переменные k1 и k2), которые сравниваются между собой. Исходя из результатов сравнения, принимается решение о том присвоить ли очередному элементу вектора D единицу или ноль.

Вопросы для самоконтроля

1) Что представляет собой программа с иерархической структурой?

2) Дайте определение главной программы и подпрограммы.

3) Для чего служит оператор вызова и что он должен содержать?

4) В каких случаях разрабатываются программы иерархической структуры?

5) Приведите структуру описания подпрограммы.

6) Что представляют собой глобальные и локальные имена и какие принципы, положены в основу их деления?

7) Какова роль фактических и формальных параметров при организации подпрограмм?

8) Может ли формальный параметр быть константой?

9) Как согласуются между собой формальные и фактические параметры?

10) Как описываются параметры-значения и параметры-переменные?

11) Объясните механизм передачи данных с помощью параметров значений и параметров-переменных.

12) В чём разница между процедурами и функциями?

13) Где указывается тип значения, возвращаемого функцией в вызывающую программу?

14) Какой оператор должен присутствовать в теле функции обязательно?

15) Что понимают под рекурсией?

16) Если массив предполагается использовать в подпрограмме, то где его следует описать?

17) Можно ли используемый в подпрограмме массив описать только в разделе описания переменных?

18) Является ли правильной запись a[i], если это фактический параметр, передаваемый в подпрограмму?