Форум программистов [Powered by Invision Power Board]

Код

ОТДЕЛ ДеньНедели+; 

ИСПОЛЬЗУЕТ Параметр ИЗ "...\Отделы\Обмен\", 
           Текст    ИЗ "...\Отделы\Числа\", 
           Вывод    ИЗ "...\Отделы\Обмен\"; 

ПЕР 
  ДеньНедели : РЯД 15 ИЗ ЗНАК; 
  годЗ, месяцЗ, деньЗ : РЯД 5 ИЗ ЗНАК; 
  год, месяц, день : ЦЕЛ; 

ЗАДАЧА Считать(гггг, мм, дд : ЦЕЛ) : ЦЕЛ; 
ПЕР 
  Добав : УЗКЦЕЛ; 
УКАЗ 
  ЕСЛИ мм < 3 ТО 
     Добав := 1 
  ИНАЧЕ 
     Добав := 0; 
  КОН; 
  ВОЗВРАТ ((( 3 * гггг - (7 * (гггг + (мм + 9) ДЕЛИТЬ 12)) ДЕЛИТЬ 4 + 
          (23 * мм) ДЕЛИТЬ 9 + дд + 2 + ((гггг - Добав) ДЕЛИТЬ 100 + 1) * 
          3 ДЕЛИТЬ 4 - 16) ОСТАТОК 7)) + 1; 
КОН Считать; 

УКАЗ 
  ЕСЛИ Параметр.всего <= 1 ТО Вывод.Цепь("Вычисление дня недели по дате.^Введите день, месяц и год (в числовом виде) в качестве параметров к программе.") 
  ИНАЧЕ 
    Параметр.Текст(1,деньЗ); Параметр.Текст(2,месяцЗ); Параметр.Текст(3,годЗ); 
    год := УЗК(Текст.ВЦел(годЗ)); месяц := УЗК(Текст.ВЦел(месяцЗ)); день := УЗК(Текст.ВЦел(деньЗ)); 
    ВЫБРАТЬ Считать(год, месяц, день) ИЗ 
        1: ДеньНедели := "понедельник"; 
      | 2: ДеньНедели := "вторник"; 
      | 3:ДеньНедели  := "среда"; 
      | 4:ДеньНедели  := "четверг"; 
      | 5:ДеньНедели  := "пятница"; 
      | 6:ДеньНедели  := "суббота"; 
      | 7:ДеньНедели  := "воскресенье"; 
    ИНАЧЕ КОН; 
    Вывод.Цепь(деньЗ); Вывод.Цепь("."); 
    Вывод.Цепь(месяцЗ); Вывод.Цепь("."); 
    Вывод.Цепь(годЗ); Вывод.Цепь(" - "); 
    Вывод.Цепь(ДеньНедели);  Вывод.Цепь("."); 
  КОН; 
КОН ДеньНедели.