Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2019, 11:56   #1
Anna06
Новичок
Джуниор
 
Регистрация: 17.11.2019
Сообщений: 1
По умолчанию Задача по среде Pascal

Помогите решить.Очень срочно нужно!
Условия задачи:
В Автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения.
В Массиве V(8) содержаться года рождения сотрудников,
В Массиве P(8) - Сведения о поле,
В Массиве S(8) - Сведения о семейном положении.
Элемент массива V с номером N- год рождения сотрудника N,
Элемент массива P с номером N - Сведения о поле сотрудника N,
Элемент S с номером N - сведения о семейном положении сотрудника N

P(N) = 0, сотрудник N женского пола
P(N) = 1, Сотрудник N мужского пола

S(N) = 0, сотрудник N холост(не замужем)
S(N) = 1, сотрудник N Женат (Замужем)
Определить: Количество холостых мужчин и количество незамужних женщин.
Помогите хоть с блок схемой! Буду очень благодарна!

Последний раз редактировалось Anna06; 17.11.2019 в 14:17.
Anna06 вне форума Ответить с цитированием
Старый 17.11.2019, 20:14   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Код:
   HM := 0 ; NZ := 0 ;
   for i := 1 to 8 do
     if S[i]=0 then
          if P[i]=0 then Inc (NZ) else Inc (HM) ;
Переженить их всех - и задачи бы не было
А еще нужен массив L(N) - нет/есть любовник (-ца)

Последний раз редактировалось digitalis; 17.11.2019 в 20:17.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с процедурами в среде Pascal abc Максим Захарченко Помощь студентам 2 26.02.2017 05:16
Задача по среде Pascal(Turbo)(ABC)(не могу решить) Федор2001 Помощь студентам 1 12.12.2016 09:39
Рисунок в среде Pascal ABC Rainer082 Помощь студентам 0 06.02.2013 00:50
Построение таблици в среде Borland pascal. Madera Паскаль, Turbo Pascal, PascalABC.NET 15 23.01.2012 13:51