VPF::задачка на паскале - Форум программистов

vladnazarenko

Дата 7.4.2006, 10:47 (ссылка)

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

Загрузка ...

Новичок

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

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

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

ЗАДАЧА:
Определить количество сотрудников отдела, записанных под номером 2 и 4 в своих лабораториях и получающих зарплату более 2500 рублей. Найти общее количество этих сотрудников (оформить подпрограммой - функцией)

Код


Const n=4; m=5;
Var 
  A:Array [1..n,1..m] Of Integer;
  kolsotrudnikov2, kolsotrudnikov4, i, j: Integer;

Procedure PRandom;
Begin
  Randomize;
  For i:=1 To n Do
    For j:=1 To m Do
      A[i,j]:=Random(1000)+2000;
End;

Function FFF:Integer;
Begin
  For i:=1 To n Do
    If A[i,2]>2500 Then Inc(kolsotrudnikov2);
  FFF:=kolsotrudnikov2;
End;

Function FFF2:Integer;
Begin
  For i:=1 To n Do
    If A[i,4]>2500 Then Inc(kolsotrudnikov4);
  FFF2:=kolsotrudnikov4;
End;

Begin
  PRandom;
  kolsotrudnikov2:=0; kolsotrudnikov4:=0;
  WriteLn('Под номером 2: ',FFF);
  WriteLn('Под номером 4: ',FFF2);
  WriteLn('Общее количество: ',FFF+FFF2);
End.

прога не просит ввести зарплату работников чтобы заполнить массив, без этого действия невозможно вычислить кто получал больше 2500

Snowy

Дата 7.4.2006, 11:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вопрос-то в чем?

vladnazarenko

Дата 7.4.2006, 11:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Snowy

Дата 7.4.2006, 11:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Так у тебя массив сам заполняется. Зачем чего-то еще вводить?

Код

For i:=1 To n Do
  For j:=1 To m Do    
    A[i,j]:=Random(1000)+2000; // вот ты забиваешь в массив значения
End;

Добавлено @ 11:25
Ошибка только здесь:

Код

WriteLn('Общее количество: ',FFF+FFF2);

Нужно:

Код

WriteLn('Общее количество: ', kolsotrudnikov2 + kolsotrudnikov4);

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