Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 27
Delphi 6-7

Записать массив данные только тех работников предприятия, кто на сегодняшний день уже проработал не менее 5 лет

16.05.2019, 20:41. Показов 3089. Ответов 24
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив данных о работающих на предприятии: фамилия, имя, отчество, адрес (улица, дом, квартира) и дата поступления на работу. Во второй массив записать данные только тех из них, кто на сегодняшний день уже проработал не менее 5 лет.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.05.2019, 20:41
Ответы с готовыми решениями:

Записать во второй массив данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет
помогите с программой procedure TForm22.Button1Click(Sender: TObject); begin close; end; procedure...

Во второй массив записать только данные тех из клиентов, кто взял телевизор
2. Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом, квартира) и что взял (только один предмет). Во...

Напечатать данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет
Помогите решить, прошу отнестись с уважением Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес ( улица, дом,...

24
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 27
21.05.2019, 22:19  [ТС]
Студворк — интернет-сервис помощи студентам
с исправлением работает, но показывает нулевые данные сотрудника которые не работал 5 лет
0
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 27
21.05.2019, 22:29  [ТС]
вот так
Миниатюры
Записать массив данные только тех работников предприятия, кто на сегодняшний день уже проработал не менее 5 лет  
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,496
21.05.2019, 22:34
Надо или нумерацию массива сменить на [0..n-1] или в заполнении исходного массива сделать
Delphi
1
2
3
4
Mas[ii].Famil := Strings1.Strings[(ii-1)*7];
Mas[ii].Imya := Strings1.Strings[(ii-1)*7+1];
...
ii := ii + 1;
и т.д.
0
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 27
21.05.2019, 23:04  [ТС]
если менять в массиве, то ошибка выходит, если нумерацию - то все остаётся так же. он просто выводит пустые данные( 3 сотрудник меньше пяти лет работает) как сделать чтобы их не было, остались только данные о сотрудниках, которые работают больше 5 лет
0
0 / 0 / 0
Регистрация: 22.02.2019
Сообщений: 27
30.05.2019, 22:05  [ТС]
у меня новая проблема))
если сохранять и загружать запись о работниках через типизированный файл, а потом уже подсчитывать годы работы, как это будет выглядеть? помогите, пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.05.2019, 22:05

Во второй массив записать данные только о тех рабочих, кто на сегодняшний день проработал не менее 5 лет
Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес (улица,дом,квартира) и дата поступления на работу (месяц, год). Во...

Во второй массив записать данные только тех из них, кто на сегодняшний день проработал не менее 5 лет
1.Дан массив о работающих в фирме: фамилия, имя, отчество, адреч ( улица, дом, квартира) и дата поступления на работу (месяц, год). Во...

Во второй файл записать данные только тех из них, кто на сегодняшний день проработал не менее 5 лет
Помогите,пожалуйста,последняя задача по файлам! Дан текстовый файл, в котором хранятся данные о сотрудниках фирмы:фамилия,имя, отчество,...

Посчитать количество проработавших на сегодняшний день не менее 3 лет
Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес (улица, дом, квартира) и дата поступления на работу (месяц, год). ...

Во второй массив записать только данные тех из них, кто взял телевизор
. Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом, квартира) и что взял (только один предмет). Во...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru