VPF::помогите найти ошибку в программе

vladnazarenko

Дата 13.4.2006, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 7.4.2006

Репутация: нет
Всего: нет

Помогите с задачкой плиз. Очень нужно
Провести анализ работы отдела фирмы, состоящего из "n" лабораторий, в которых работают по "m" сотрудников.
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.

ЗАДАЧА:
Определить количество сотрудников 1-й и 3-й лабораторий, получающих зарплату менее 2000 рублей. Найти общее количество этих сотрудников
задачку нужно оформить подпрограммой процедурой. smile

Я кое что написал, почемуто не работет
помогите найти ошибку

Код


Uses crt;
VAR
a:array[1..10, 1..20] of integer;
i,j,m,n,lab2, lab4, S,S11: integer;
PROCEDURE xxx;
var
lab21,lab41,S11:integer;
BEGIN
S11:= lab21+lab41;
END;

begin
WRITELN ('Введите количество лабораторий и сотрудников n, m');
READ (n,m);
WRITELN ('Введите зарплату сотрудников');
for i :=1 to n do
for j :=1 to m do
READLN (A[i,j]);
lab2:= 0;
lab4:= 0;
for i :=1 to n do
for j :=1 to m do
begin
if A[2,j]>2000 then lab2:= lab2+1;
if A[4,j]>2000 then lab4:= lab4+1;
end;
xxx;
WRITeLN ('Количество сотрудников второй лаборатории',lab2);
WRITeLN ('Количество сотрудников четвёртой лаборатории', lab4);
WRITeLN ('Общее количество сотрудников', S11);
Readkey;
END.

M
Fixin

Оформляй в код. Кнопка такая есть.

Это сообщение отредактировал(а) Fixin - 13.4.2006, 15:59

asdf

Дата 13.4.2006, 16:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 27.8.2004
Где: Кишинёвъ

Репутация: 1
Всего: 11

Код

Uses crt;
VAR
a:array[1..10, 1..20] of integer;
i,j,m,n,lab1, lab3, S,S11: integer;
begin
WRITELN ('Введите количество лабораторий и сотрудников n, m');
READ (n,m);
WRITELN ('Введите зарплату сотрудников');
for i :=1 to n do
for j :=1 to m do
READ(A[i,j]);
lab1:= 0;
lab3:= 0;
for j :=1 to m do
begin
if A[1,j]<2000 then lab1:= lab1+1;
if A[3,j]<2000 then lab3:= lab3+1;
end;
S11:= lab1+lab3;
WRITeLN ('Количество сотрудников 1-oй лаборатории',lab1);
WRITeLN ('Количество сотрудников 3-eй лаборатории', lab3);
WRITeLN ('Общее количество сотрудников', S11);
Readkey;
END.

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

...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »