Готовые ???????? ??????

Курсовая работа  Основы алгоритмизации и алгоритмическим языкам

Содержание:

Программа написана на языке
Turbo Pascal Version 6.0


PROGRAM KursovWork;

Uses
CRT, {управление текстовым режимом работы экрана}
Dos, {возможность получить машинную дату и время}
Printer; {упрощает вывод текстов на матричный принтер}

Type
{структура для файла фамилий (1)}
Struct1 = record
{+} FIO : string[15]; {фамилия и.о.}
end;

{структура для файла данных (2)}
Struct2 = record
TimeSheetNumber : word; {табельный номер}
{к1} Sex : byte; {пол (0-1)}
CodePost : byte; {код должности}
DateEntryToFactory : string[8]; {дата поступления на завод (дд/мм/гг)}
{и} Pay : word; {заработная плата (руб.)}
{и} TotalLengthOfService : byte; {общий стаж работы (полных лет)}
LengthOfService : byte; {стаж работы на заводе (полных лет)}
CodeEducation : byte; {код образования (1-7)}
{+} BirthDay : string[8]; {дата рождения (дд/мм/гг)}
{+} PartyMembership : byte; {партийность (1-3)}
DateEntryToParty : string[5]; {дата вступления в партию (мм/гг)}
FamilySituation : byte; {семейное положение (1-4)}
{учитывая задание введено в структуру}
{к2} Age : byte; {возраст (полных лет)}
end;

И Т.Д.

Курсовая работа  Основы алгоритмизации и алгоритмическим языкам