Алгоритм календаря

@М.Мишка.Н · Регистрация: 11.11.2009

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста хотябы алгоритм календаря.
Вот задание:
Составить программу, реализующую григорианский календарь нового стиля (1582-4903 гг.). Программа должна выводить на экран по введенным месяцу и году календарь, например, в следующем виде:
Месяц Год
пн 1 8 15 22 29
вт 2 9 16 23 30
ср 3 10 17 24 31
чт 4 11 18 25
пт 5 12 19 26
сб 6 13 20 27
вс 7 14 21 28

А также программа по введенной пользователем дате должна выводить на экран соответствующий день недели.

Зарание спасибо!

@kentaw · 15.11.2009, 13:27

Сообщение от М.Мишка.Н

А также программа по введенной пользователем дате должна выводить на экран соответствующий день недели.
Зарание спасибо!

Delphi

program Kalendar_XX_veka_by_Kentaw;
uses crt;
Label 11,22,33,44,55,66,77;
type
       G=set of 0..99;
var 
   f,t:array[1..7] of G;
   Month,Day,Year,s,m,i:byte;
   Month1,Year1:string;
begin
   clrscr;
   writeln('input year');
   writeln;
   repeat
    write('Day=');
    readln(Day);
    if Day>31 then writeln('Day must be between 1 and 31');
   until Day in [1..31];
   repeat
    write('Month=');
    readln(Month);
    if Month>12 then writeln('Month  must be between 1 and 12');
   until Month in [1..12];
   repeat
    writeln('If you want to write 1974, then write 74');
    write('Year=');
    readln(Year);
    if Year>99 then  writeln('Year  must be between 0 and 99');
   until Year in [0..99];
   t[1]:=[0,06,17,23,28,34,45,51,56,62,73,79,84,90];
   t[2]:=[01,07,12,18,29,35,40,46,57,63,68,74,85,91,96];
   t[3]:=[02,13,19,24,30,41,47,52,58,69,75,80,86,97];
   t[4]:=[03,08,14,25,31,36,42,53,59,64,70,81,87,92,98];
   t[5]:=[09,15,20,26,37,43,48,54,65,71,76,82,93,99];
   t[6]:=[04,10,21,27,32,38,49,55,60,66,77,83,88,94];
   t[7]:=[05,11,16,22,33,39,44,50,61,67,72,78,89,95,0];
   for i:=1 to 7 do
    if Year in t[i] then s:=i;
   case Month of
   1: if Year mod 4=0 then
       case s of
         1: m:=2;
          2: m:=3;
          3: m:=4;
          4: m:=5;
          5: m:=6;
          6: m:=7;
          7: m:=1;
        end
      else m:=s;
   2: if Year mod 4=0 then
       case s of
           1: m:=6;
            2: m:=7;
            3: m:=1;
            4: m:=2;
            5: m:=3;
            6: m:=4;
            7: m:=5;
         end
       else
        case s of
           1: m:=5;
            2: m:=6;
            3: m:=7;
            4: m:=1;
            5: m:=2;
            6: m:=3;
            7: m:=4;
         end;
   3: case s of
           1: m:=4;
            2: m:=5;
            3: m:=6;
            4: m:=7;
            5: m:=1;
            6: m:=2;
            7: m:=3;
          end;
   4: case s of
           1: m:=4;
            2: m:=5;
            3: m:=6;
            4: m:=7;
            5: m:=1;
            6: m:=2;
            7: m:=3;
         end;
   5: case s of
           1: m:=4;
            2: m:=5;
            3: m:=6;
            4: m:=7;
            5: m:=1;
            6: m:=2;
            7: m:=3;
          end;
   6: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
   7: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
  8: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
   9: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
          end;
   10: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
   11: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
  12: case s of
          1: m:=4;
           2: m:=5;
           3: m:=6;
           4: m:=7;
           5: m:=1;
           6: m:=2;
           7: m:=3;
         end;
   end;
   case Month of
       1: Month1:='January';
       2: Month1:='February';
       3: Month1:='March';
       4: Month1:='April';
       5: Month1:='May';
       6: Month1:='June';
       7: Month1:='July';
       8: Month1:='August';
       9: Month1:='September';
       10: Month1:='October';
       11: Month1:='November';
       12: Month1:='December';
      end;
       if Year<=9 then
       case Year of
        1: Year1:='01';
        2: Year1:='02';
        3: Year1:='03';
        4: Year1:='04';
        5: Year1:='05';
        6: Year1:='06';
        7: Year1:='07';
        8: Year1:='08';
        9: Year1:='09';
        0: Year1:='00';
       end
       else
        str(Year,Year1);
   f[1]:=[1,8,15,22,29];
   f[2]:=[2,9,16,23,30];
   f[3]:=[3,10,17,24,31];
   f[4]:=[4,11,18,25];
   f[5]:=[5,12,19,26];
   f[6]:=[6,13,20,27];
   f[7]:=[7,14,21,28];   
   for i:=1 to 7 do
    if Day in f[i] then
      case i of
        1:goto 11;
        2:goto 22 ;
        3:goto 33;
        4:goto 44;
        5:goto 55;
        6:goto 66;
        7:goto 77;
      end;
  11:case m of
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday');  readln;  halt(1); end;
         2: begin writeln('Tuesday'); writeln; writeln(Day,' ',Month1,' 19',Year,'-'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
      end;
   22:case m of 
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
      end;
   33:case m of 
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
      end;
   44:case m of
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
      end;
   55:case m of
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
      end;
   66:case m of
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
      end;
    77:case m of
         1: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Sunday'); readln;  halt(1); end;
         2: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Monday'); readln;  halt(1); end;
         3: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Tuesday'); readln;  halt(1); end;
         4: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-',' Wednesday'); readln;  halt(1); end;
         5: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Thursday'); readln;  halt(1); end;
         6: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Friday'); readln;  halt(1); end;
         7: begin writeln; writeln(Day,' ',Month1,' 19',Year1,'-','Saturday'); readln;  halt(1); end;
      end;
   readln
end.

@Василий-Робот · 15.11.2009, 13:37

kentaw жжешь!
А почему при вводе данных он выводит "если ты хочешь написать 1974 год, напиши 74" ?

@Puporev · 15.11.2009, 13:45

Василий-Робот, Календарь на 20 век, зачем еще 19 вводить.

@Василий-Робот · 15.11.2009, 13:58

Если забить код , то при запуске программы будет выходить текст "если ты хочешь написать 1974 год, напиши 74". ???
И еще насчет 20 века:

Сообщение от М.Мишка.Н

Составить программу, реализующую григорианский календарь нового стиля (1582-4903 гг.)

@kentaw · 15.11.2009, 14:02

Сообщение от Василий-Робот

Если забить код , то при запуске программы будет выходить текст "если ты хочешь написать 1974 год, напиши 74". ???

Василий-Робот, знаешь алгоритма такая. Знаешь иногда бывает таблицы на блокноте не знаю не которые книге, с помощю которого мы определяем день недели.
шас ищу тот таблицы, чтобы фотки показать....

@Василий-Робот · 15.11.2009, 14:03

????!

Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .	Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .

@М.Мишка.Н 2 / 2 / 0 Регистрация: 11.11.2009 Сообщений: 10
		1
	Алгоритм календаря 15.11.2009, 12:29. Показов 3345. Ответов 6 Метки нет (Все метки) Подскажите пожалуйста хотябы алгоритм календаря. Вот задание: Составить программу, реализующую григорианский календарь нового стиля (1582-4903 гг.). Программа должна выводить на экран по введенным месяцу и году календарь, например, в следующем виде: Месяц Год пн 1 8 15 22 29 вт 2 9 16 23 30 ср 3 10 17 24 31 чт 4 11 18 25 пт 5 12 19 26 сб 6 13 20 27 вс 7 14 21 28 А также программа по введенной пользователем дате должна выводить на экран соответствующий день недели. Зарание спасибо! 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	15.11.2009, 13:37	3
	kentaw жжешь! А почему при вводе данных он выводит "если ты хочешь написать 1974 год, напиши 74" ? 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	15.11.2009, 13:45	4
	Василий-Робот, Календарь на 20 век, зачем еще 19 вводить. 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	15.11.2009, 13:58	5
	Если забить код , то при запуске программы будет выходить текст "если ты хочешь написать 1974 год, напиши 74". ??? И еще насчет 20 века: Сообщение от М.Мишка.Н Составить программу, реализующую григорианский календарь нового стиля (1582-4903 гг.) 0

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	15.11.2009, 14:02	6
	Сообщение от Василий-Робот Если забить код , то при запуске программы будет выходить текст "если ты хочешь написать 1974 год, напиши 74". ??? Василий-Робот, знаешь алгоритма такая. Знаешь иногда бывает таблицы на блокноте не знаю не которые книге, с помощю которого мы определяем день недели. шас ищу тот таблицы, чтобы фотки показать.... 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	15.11.2009, 14:03	7
	????! 0