подпрограммы на паскале
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.
ЗАДАЧА:
Определить количество сотрудников 1-й и 3-й лабораторий, получающих зарплату менее 2000 рублей. Найти общее количество этих сотрудников
задачку нужно оформить подпрограммой процедурой.
Провести анализ работы отдела фирмы, состоящего из "n" лабораторий, в которых работают по "m" сотрудников.
Зарплата каждого из сотрудников задаётся матрицей n x m, где n=4, m=5.
ЗАДАЧА:
Определить количество сотрудников 1-й и 3-й лабораторий, получающих зарплату менее 2000 рублей. Найти общее количество этих сотрудников
задачку нужно оформить подпрограммой процедурой.
А по подробнее, точнее пояснея нельзя?
А по подробнее, точнее пояснея нельзя?
Я тут кое что написал, но чтото не работает:(
PROGRAM xxx;
VAR
a:array[1..10, 1..20]of integer;
i,j,m,n: integer;
lab2, lab4, S: integer;
PROCEDURE
S(lab21, lab41: real; var S11: real);
BEGIN
S11:= lab21+lab41;
END;
begin
WRITELN (`Введите количество лабораторий и сотрудников n, m`)
READ (n,m); {READLN (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;
S(lab2, lab4, S11);
READLN;
WRITLN (`Количество сотрудников второй лаборатории
lab2:3`);
WRITLN (`Количество сотрудников четвёртой лаборатории, lab4:3`);
WRITLN (`Общее количество сотрудников, S11:3`);
END.
Я тут кое что написал, но чтото не работает:(
Посмотри, может это пойдёт. Я только твоё исправил, в правильности не разбирался, время нет.
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.
откомпилировалась но не вычисляет
спасибо за помощь.
откомпилировалась но не вычисляет
Ща всё сделаем. 8)
Ща всё сделаем. 8)
Вот держи.
Если я правильно условие понял значит задача работает отлично.
прога получилась супер