Модульное программирование. Использование процедур при обработке экономической информации - Pascal

Формулировка задачи:

Здравствуйте! Помогите пожалуйста составить программу так, чтобы она работала. Хотя бы начало или пример подобной задачки.. 1. Использование процедур при обработке экономической информации. Используется информация о выбытии работников по группе предприятий. Информация содержит следующие реквизиты: 1) шифр предприятия. Реквизит представлен в виде символьной строки длиной в 20 символов. 2) код причины выбытия. Реквизит представлен в виде символьной строки длиной в 4 символа. 3) количество выбывших работников. Реквизит представлен в виде числа, не имеющего дробной части. При выполнении второй части требуется, разработать программный код, включающий основной программный текст и две процедуры-подпрограммы. Основной текст обеспечивает ввод информации о выбытии работников; обращение к процедурам и выдачу результатов. Первая процедура должна обеспечивать упорядочивание массива по возрастанию кодов выбытия. Вторая процедура обеспечивает подсчет числа выбывших работников по заданному коду выбытия.

Решение задачи: «Модульное программирование. Использование процедур при обработке экономической информации»

Листинг программы

var zapr:string[4];
kol_vyb:word;
begin
kol_vyb:=0;
for i:=1 to n do
if sp[i].kdvb=zapr then kol_vyb:=kol_vyb+sp[i].klvb;

Объяснение кода листинга программы

Объявлены две переменные: zapr типа строковый массив на 4 элемента и kol_vyb типа word (слово).
Значение переменной kol_vyb инициализируется нулем.
Запускается цикл от 1 до n (номер элемента в массиве).
Внутри цикла проверяется равенство значения kdvb (какого-то поля) элемента массива sp переменной zapr.
Если условие выполняется, то значение переменной kol_vyb увеличивается на значение поля klvb (какого-то другого поля) элемента массива sp.
По завершению цикла, значение переменной kol_vyb будет содержать общее количество элементов массива sp, удовлетворяющих условию kdvb=zapr.