Модульное программирование. Использование процедур при обработке экономической инфы
Здравствуйте!
Помогите пожалуйста составить программу так, чтобы она работала.
Хотя бы начало или пример подобной задачки..
1. Использование процедур при обработке экономической информации.
Используется информация о выбытии работников по группе предприятий. Информация содержит следующие реквизиты:
1) шифр предприятия. Реквизит представлен в виде символьной строки длиной в 20 символов.
2) код причины выбытия. Реквизит представлен в виде символьной строки длиной в 4 символа.
3) количество выбывших работников. Реквизит представлен в виде числа, не имеющего дробной части.
При выполнении второй части требуется, разработать программный код, включающий основной программный текст и две процедуры-подпрограммы. Основной текст обеспечивает ввод информации о выбытии работников; обращение к процедурам и выдачу результатов. Первая процедура должна обеспечивать упорядочивание массива по возрастанию кодов выбытия. Вторая процедура обеспечивает подсчет числа выбывших работников по заданному коду выбытия
Помогите пожалуйста составить программу так, чтобы она работала.
Хотя бы начало или пример подобной задачки..
1. Использование процедур при обработке экономической информации.
Используется информация о выбытии работников по группе предприятий. Информация содержит следующие реквизиты:
1) шифр предприятия. Реквизит представлен в виде символьной строки длиной в 20 символов.
2) код причины выбытия. Реквизит представлен в виде символьной строки длиной в 4 символа.
3) количество выбывших работников. Реквизит представлен в виде числа, не имеющего дробной части.
При выполнении второй части требуется, разработать программный код, включающий основной программный текст и две процедуры-подпрограммы. Основной текст обеспечивает ввод информации о выбытии работников; обращение к процедурам и выдачу результатов. Первая процедура должна обеспечивать упорядочивание массива по возрастанию кодов выбытия. Вторая процедура обеспечивает подсчет числа выбывших работников по заданному коду выбытия
хочешь готовый код - в Студенты либо выкладывай деньгу. А так - начинай сам - возникунт трудности - спрашивай что-то конкретное.
Ну, попытаемся начать. как это оформить в модуль, если это верно?
var sp:array[1..100]of Tpred;
n,i:integer;
writeln('Введите количество предприятий:');
readln(n);
for i:=1 to n do
begin
writeln('Предприятие ',i);
write('Шифр предприятия:');readln(sp.shpr);
и т.д.
end;
var bf:Tpred;
for i:=1 to n-1 do
for j:=1 to n-1 do
if sp[j.kdvb>sp[j+1].kdvb then
begin
buf:=sp[j];
sp[j]:=sp[j+1];
sp[j+1]:=bf;
end;
For i:=1 to n do
writeln(sp.shpr,' ',sp.kdvb,' ',sp.klvb);
var zapr:string[4];
kol_vyb:word;
begin
kol_vyb:=0;
for i:=1 to n do
if sp.kdvb=zapr then kol_vyb:=kol_vyb+sp.klvb;
var sp:array[1..100]of Tpred;
n,i:integer;
writeln('Введите количество предприятий:');
readln(n);
for i:=1 to n do
begin
writeln('Предприятие ',i);
write('Шифр предприятия:');readln(sp.shpr);
и т.д.
end;
var bf:Tpred;
for i:=1 to n-1 do
for j:=1 to n-1 do
if sp[j.kdvb>sp[j+1].kdvb then
begin
buf:=sp[j];
sp[j]:=sp[j+1];
sp[j+1]:=bf;
end;
For i:=1 to n do
writeln(sp.shpr,' ',sp.kdvb,' ',sp.klvb);
var zapr:string[4];
kol_vyb:word;
begin
kol_vyb:=0;
for i:=1 to n do
if sp.kdvb=zapr then kol_vyb:=kol_vyb+sp.klvb;