Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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

42K
04 ноября 2008 года
wally
3 / / 03.11.2008
Здравствуйте!
Помогите пожалуйста составить программу так, чтобы она работала.
Хотя бы начало или пример подобной задачки..

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;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог