Иллюстрированный самоучитель по Turbo Pascal

Приложение 5. Тексты программ.

• Программа определения дня недели

  ♣{Эта программа вводит дату в формате ДЦ ММ ГГГГ и выводит | 'на экран соответствующий этой дате день недели. Описание программы см. п. 2. 7.1.} | var | IsCorrectDate: Boolean; {Признак правильной даты} | d,m,y: Integer;

• Определение биоритмов

  {Программа для определения физической, эмоциональной и интеллектуальной активности человека. | 'Вводится дата рождения и текущая дата. Программа вычисляет и выводит на экран | 'общее количество дней, часов, минут и секунд, разделяющих обе даты, | 'а также прогнозирует на месяц вперед даты, соответствующие максимуму | 'и минимуму биоритмов. Описание программы см. п. 2. 7.

• Игра Ним

  Описание программы см, п.2.7.3. | Uses CRT; {Подключение библиотеки дополнительных процедур и функций для управления экраном} | const | MAXROW = 14; {Максимальное количество рядов} | MAXCOL = 20; {Максимальное количество фишек в ряду} | type | ColType = array [1.. MAXROW] of Integer; | var | exit: Boolean;

• Программа Notebook

  Описание программы см. гл.15. | Program Notebook; | {Программа обслуживает файлы данных "записной книжки". Описание программы см. в гл.15} | Uses App, Objects, Menus, Drivers, Views, StdDlg, | DOS, Memory, Dialogs;