Составить программу создания файла на языке pascal , содержащего сведения для объектов. программа должна обеспечить ввод исходных

[марфаз]

Составить программу создания файла на языке pascal , содержащего сведения для объектов. программа должна обеспечить ввод исходных данных с клавиатуры , запись исходной информации в файл , чтение и печать созданного файла. Выполнить программу обработки файла.

ЗАДАНИЕ: 1) имя объекта : служащий ; 2) поля записи : а) ФИО б) название отдела в) год рождения г) стаж работы д) должность е) пол ; 3) задачи обработки : распечатать список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы.

ОЧЕНЬ СРОЧНО НУЖНО РЕШИТЬ!!!!!!!! БУДУ ОЧЕНЬ БЛАГОДАРНА ТОМУ КТО ПОМОЖЕТ

[ZX Spectrum-128]

А какая из частей данного задания вызывает неуверенность в возможности его решения?

[марфаз]

извините , вся программа целиком

ZX Spectrum-128 помоги пожалуйста , скоро новый год ) время чудес

[ZX Spectrum-128]

Да не проблема. Единственное, что от вас требуется - написать формулу вычисления пенсионного возраста.

[марфаз]

ZX Spectrum-128 блин((((( это я точно не знаю

а такая вообще формула существует?

[ZX Spectrum-128]

А тут как раз программирования и нет никакого. Математика. Вычислить сколько лет прошло с момента рождения по сегодняшнее число.
Делаете эту формулу и я пишу вам остальное все.

[марфаз]

а дата рождения какая

[ZX Spectrum-128]

Ну, например
29.12.1958, женщина

[марфаз]

2002 год начиная с сентября - 1 день плюс 31 день октября + 30 дней ноября + 31 день декабря = 93) до 2013 года прошло : 365(2003) + 366(2004) + 365(2005) + 365(2006) + 365(2007) + 366(2008) + 365(2009) + 365(2010) + 365 (2011) + 366 (2012) = 3653 дней) теперь считаем 2013 до ноября - 31 + 28+ 31+30+31+30+31+31+30+31+11 = 315) все считаем! 315 + 3653 + 93 = 4061, итог ты существуешь 4061 день)))

ВОЗРАСТ
Открой табличку Excel
В ячейке "В2" запиши дату рождения
В ячейке "В4" напиши формулу:
=СЕГОДНЯ()
Скопируй формулу и вставь ее в ячейку "D"
=РАЗНДАТ(B2;B4;"y") & " год/лет. " & РАЗНДАТ(B2;B4;"ym") & " мес. " & РАЗНДАТ(B2;B4;"md") & " дн."

ZX Spectrum-128 как то так

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Ну, например
29.12.1958, женщина

учитывайте, что задача выхолощена (упрощена). В информации о сотруднике есть только ГОД рождения.
Предполагаю, что нужно брать тех, у кого возраст ЗАВЕДОМО больше пенсионного.
И, если речь идёт о РФ, пока можно брать 55 лет для женщин и 60 лет для мужчин.



p.s. имхо, по большому счёту это же учебная задача, поэтому конкретика(детали) и привязка к законодательствую здесь число условная...