begin
Vys: = False;
if (((Year mod 4 = 0) and (Year mod 100<>0))
or (Year mod 1000 = 0))
then
Vys: = True;
end; {Vys}
begin { Основная программа }
ClrScr; {Очистка экрана }
Write ('Программа печати календаря');
WriteLn ('заданного года');
Write ('Укажите год распечатываемого');
WriteLn ('календаря после', YEARBASE: 5, 'года');
ReadLn (Year);
{Контроль введенного года }
if Year < YEARBASE then
begin
{Аварийное завершение программы }
Write ('He могу составить календарь');
WriteLn (Year: 5, 'года');
Write ('Для завершения программы');
WriteLn ('нажмите любую клавишу…');
repeat until KeyPressed;
Halt (1);
end;
WriteLn ('Ждите, идет печать…');
Assign (F, 'PRN');
Rewrite (F);
{Печать календаря на принтере }
{Часть пробелов в следующей строке была изъята!}
WriteLn (F, ' ', Year);
{Подготовка информации}
{Определение количества пустых клеток в январе года Year}
Blanks: = BLANKS1917;
i:= YEARBASE;
while (I Year) do begin
{Увеличение Blanks}
Inc (Blanks); {В любой год плюс 1 }
if Vys (i)
then
Inc (Blanks); {Прошлый год високосный, +2}
{Корректировка Blanks}
if (Blanks >= 7) then Blanks:= Blanks — 7;
Inc (i); {Текущий год }
end;
{Определение количества дней в каждом месяце }
for i:= 1 to 12 do
MonthsDays [i]:= 31;
MonthsDays [4]:= 30;
MonthsDays [6]:= 30;
MonthsDays [9]:= 30;
MonthsDays [11]:= 30;
MonthsDays [2]:= 28;
if Vys (Year) then MonthsDays [2]: = 29;
{Определение количества пустых клеток в начале каждого месяца }
BlanksDays [1]:= Blanks;
for i: = 2 to 12 do
if BlanksDays [i — 1] + MonthsDays [i — 1] < 35
then
BlanksDays [i]:= BlanksDays [i — 1] + MonthsDays [i — 1] — 28
else
BlanksDays [i]:= BlanksDays [i — 1] + MonthsDays [i — 1] — 35;
{Задание номеров кварталов }
{Печать тела календаря }
for Kvartaclass="underline" = 1 to 4 do begin
{Печать наименования квартала }
WriteLn (F, KVARTALNAME [Kvartal]);
{Печать дат квартала }
{Задание номера дня недели }
for iDW:= 1 to 7 do
begin
{Печать наименования дней недель }
Write (f, WEEKDAYNAME [iDW];
{Печать трех месяцев дат квартала }
for iKvartalMonth: = 1 to 3 do begin
{Расчет номер месяца в квартале }
iMonth: = (Kvartal — 1) * 3 + iKvartalMonth;
{Печать шести колонок дат дня недели квартала}
for iCoclass="underline" = 1 to 6 do begin
iCelclass="underline" = (iCol — 1)*7 + iDW;
if ((iCell > BlanksDays [iMonth]) and (iCell <= BlanksDays [iMonth] + MonthsDays [iMonth]))
then
Write (F, iCell — BlanksDays [iMonth]: 3)
else
Write (F, ' ');
end;
end;
{Печать наменования дней недель }
WriteLn (F, WEEKDAYNAME [iDW];
end;
end;
Close (F);
Write ('Для завершения программы');
WriteLn ('нажмите любую клавишу…');
Repeat until KeyPressed;
end.
ВЫВОДЫ
• С появлением ЭВМ актуальным стал поиск способов описания вычислительных алгоритмов. В 60-х годах уже применялись два способа описания алгоритмов: словесный пошаговый и графический в виде схем алгоритмов (жаргонно: блок-схем алгоритмов).
• Согласно современным технологиям программирования, описания алгоритмов в словесно пошаговой и графической формах, в виде схем алгоритмов практически не используются. Их заменили самодокументированные тексты, состоящие из стандартных структур кодирования.
• Хорошим функциональным описанием является описание безошибочное, однозначное для читателя, краткое, суть которого понимается быстро. Согласно проектной процедуре, хорошее функциональное описание составляется от общего к частному с использованием особых конструкций предложений — типовых элементов (типовых структур или просто структур).
• Любые алгоритмы или эвроритмы должны состоять только из стандартных структур. Каждая стандартная структура строго имеет один информационный вход и один информационный выход. Использование иных (нестандартных) структур приводит либо к удлинению описания, либо к невозможности тестирования (из-за нереально огромного объема необходимых тестов), либо к потере понятности.
• При разработке эвроритмов входная, промежуточная и выходная информации обычно характеризуются наименованиями предметов, их состоянием, местоположением и временем.
• При разработке алгоритмов программ входная, промежуточная и выходная информации характеризуются именами и набором значений как простых, так и структурированных переменных (записей, массивов).
• Первоначально алгоритм или эвроритм должен представлять одну типовую структуру СЛЕДОВАНИЕ (одно действие со смыслом "выполнить все действия программы"). Далее до достижения элементарных действий (элементарных операторов языка программирования или элементарных операций) отдельные структуры СЛЕДОВАНИЕ декомпозируются с соблюдением принципа от общего к частному одной из трех стандартных структур: ЦЕПОЧКА СЛЕДОВАНИЙ; ЦЕПОЧКА АЛЬТЕРНАТИВ; ПОВТОРЕНИЕ.
• Переход на новый язык программирования рекомендуется начинать с разработки стандарта кодирования типовых вычислительных структур.
• Алгоритм во многом определяется структурой данных.
• Тесты — необходимый атрибут разработки алгоритма.
• Обобщающий тест или тесты — минимальный набор тестовых данных, охватывающих все возможные случаи вычислений.
• Алгоритмы из старых книг лучше понимаются после их рефакторинга.
КОНТРОЛЬНЫЕ ВОПРОСЫ
1. Перечислите основные недостатки каждого из способов описания алгоритмов.
2. Что такое функциональное описание?
3. Для чего предназначена проектная процедура разработки функциональных описаний?
4. Изложите требования к способу мышления пользователя проектной процедурой разработки функциональных описаний.
5. В каких случаях программисты могут применять проектную процедуру?
6. В каких случаях не программисты могут применять проектную процедуру?
7. Каковы основные характеристики структур СЛЕДОВАНИЕ, АЛЬТЕРНАТИВА и ПОВТОРЕНИЕ?
8. Каков порядок основных шагов (этапов) выполнения проектной процедуры?