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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2013, 16:32   #1
PI5O
Новичок
Джуниор
 
Регистрация: 18.02.2013
Сообщений: 1
По умолчанию Задача на записи

Здравствуйте. Завтра ГОС экзамен и катастрофически не хватает времени разобрать задачу. желательно с комментариями. или хотя бы блок схему накидать а дальше я напишу. заранее благодарна
Известны данные о 16-ти сотрудниках фирмы: фамилия, возраст и отношение к воинской службе (военнообязанный или нет). Определить фамилии самых старших по возрасту людей среди военнообязанных и среди невоеннообязанных (считать, что такие есть и они единственные в своей группе).
PI5O вне форума Ответить с цитированием
Старый 18.02.2013, 20:13   #2
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,309
По умолчанию

Можно так:
1. Определить тип - запись:
Код:
Type Sotrudnik = record
             FIO : string[20];
            Age : integer;
      Services : boolean;
       end;
2. Определить массив из 16 элементов с типом Sotrudnik
Код:
 MasSotrydnik = array[1..16] of Sotrudnik;
3. Написать код для ввода данных о сотруднике.

4. Написать код для просмотра элементов массива и отбора по принадлежности к военнообязанным и не ...
При просмотре выбирать максимальный возраст для каждой категории сотрудников.
Проверка категории сотрудников:
Код:
if MasSotrudnik[i].Services then
     .... 
  else
     ....;

Как-то так ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на записи xXxFEHUKCxXx Паскаль, Turbo Pascal, PascalABC.NET 1 01.12.2011 23:46
Задача на записи maziLa Паскаль, Turbo Pascal, PascalABC.NET 1 20.04.2009 17:53
Задача на записи quake1 Помощь студентам 5 07.03.2009 16:00
задача на записи!!! Нана Паскаль, Turbo Pascal, PascalABC.NET 2 18.04.2008 12:36