Вечный календарь

@Remy0910 · Регистрация: 18.01.2012

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

Тема: Оператор варианта CASE.
Цель: Составление, редактирования и отладка программ с оператором выбора CASE.

В11.

«Вечный календарь». Даны натуральные числа a, b, c, которые обозначают число, месяц и год. Определить день недели, на который недели падает указанная дата.
При решение этой задачи можно считать, что исследуемая дата лежит в диапазоне от 1582 до 4902 гг. В этом случае номер дня недели (воскресенье имеет номер 0, понедельник-1, суббота-номер 6) равен остатку от деления на 7 от значения выражения.
(2,6m-0,2)+d+y+(y/4)+(c/4)-2c, где
d-номер дня в месяц (1,2,…);
m-номер месяц в году, нумерация начинается с марта (март имеет номер 1, апрель номер 2,…, декабарь-номер 10, январь и февраль считаются месяцами с номерами 11 и 12 предыдущего года).

y-две младшие цифры года (00,…,99);
c-две старшие цифры года (15,…,49);
(x)-означает целую часть числа x.

@Севак · 18.01.2012, 17:14

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var d,m,z,c,y: integer;
a: real;
e: integer;
den: string;
begin
writeln('Введите дату в формате d.m.y, где d - день, m - месяц, y - год');
writeln('Пример: 19.01.2012');
readln(d,m,z);
case m of
01: m:=11;
02: m:=12;
03: m:=1;
04: m:=2;
05: m:=3;
06: m:=4;
07: m:=5;
08: m:=6;
09: m:=7;
10: m:=8;
11: m:=9;
12:  m:=10;
end;
c:=z div 100;
y:=z mod 100;
day:=(2.6*m-0.2)+d+y+(y/4)+(c/4)-2*c;
a:= day mod 7;
case a of
1: den:='Понедельник';
2: den:='Вторник';
3: den:='Среда';
4: den:='Четверг';
5: den:='Пятница';
6: den:='Суббота';
7: den:='Воскресенье';
end;
writeln('День недели в указанной дате - ',den);
end.

пока не работает только, допилю попозже, и еще: а должно быть целое, поэтому думаю делить остаток от деления на 7 до тех пор, пока он не станет равен или меньше 7.

@Remy0910 · 18.01.2012, 18:05 **[ТС]**

я буду ждать завершения программы, просто я в этом не могу ниче понять((

@Севак · 18.01.2012, 18:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
var d,m,z,c,y,a,day: integer;
    e: integer;
    den: string;
 
begin
writeln('Введите дату в формате dd mm yyyy, где d - день, m - месяц, y - год');
writeln('Пример: 19 01 2012');
read(d,m,z);
case m of
01: begin m:=11; z:=z-1; end;
02: begin m:=12; z:=z-1; end;
03: m:=1;
04: m:=2;
05: m:=3;
06: m:=4;
07: m:=5;
08: m:=6;
09: m:=7;
10: m:=8;
11: m:=9;
12: m:=10;
end;
c:=z div 100;
y:=z mod 100;
day:=abs(trunc(2.6*m-0.2)+d+y div 4+y+c div 4-2*c);
a:= day mod 7;
case a of
1: den:='Понедельник';
2: den:='Вторник';
3: den:='Среда';
4: den:='Четверг';
5: den:='Пятница';
6: den:='Суббота';
0: den:='Воскресенье';
end;
writeln('День недели в указанной дате - ',den);
end.

Совместными усилиями решили все-таки, лови)

@Remy0910 · 18.01.2012, 20:14 **[ТС]**

Спасибо вам посоны очень помогли, а то блин вообще у меня ничего не получалось

@Шорох Анастасия · 28.05.2013, 21:40

помогите дописать проверку к программе. если человек, допустим, придурок и написал орпиупр или 32.13

@Шорох Анастасия · 01.06.2013, 00:42

а можно вопрос. почему именно с 1582 года можно считать?

Kodzaev · 01.06.2013, 00:46

Шорох Анастасия, вряд ли ТС Вам ответит. Обратите внимание на дату создания темы.

@Puporev · 01.06.2013, 08:31

В 1582 году был введен григорианский календарь, для которого действительна эта формула

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Remy0910 1 / 1 / 0 Регистрация: 18.01.2012 Сообщений: 17

	Вечный календарь 18.01.2012, 16:12. Показов 4399. Ответов 8 Метки нет (Все метки) Тема: Оператор варианта CASE. Цель: Составление, редактирования и отладка программ с оператором выбора CASE. В11. «Вечный календарь». Даны натуральные числа a, b, c, которые обозначают число, месяц и год. Определить день недели, на который недели падает указанная дата. При решение этой задачи можно считать, что исследуемая дата лежит в диапазоне от 1582 до 4902 гг. В этом случае номер дня недели (воскресенье имеет номер 0, понедельник-1, суббота-номер 6) равен остатку от деления на 7 от значения выражения. (2,6m-0,2)+d+y+(y/4)+(c/4)-2c, где d-номер дня в месяц (1,2,…); m-номер месяц в году, нумерация начинается с марта (март имеет номер 1, апрель номер 2,…, декабарь-номер 10, январь и февраль считаются месяцами с номерами 11 и 12 предыдущего года). y-две младшие цифры года (00,…,99); c-две старшие цифры года (15,…,49); (x)-означает целую часть числа x. 0

@Remy0910 1 / 1 / 0 Регистрация: 18.01.2012 Сообщений: 17
	18.01.2012, 18:05 [ТС]
	я буду ждать завершения программы, просто я в этом не могу ниче понять(( 0

@Remy0910 1 / 1 / 0 Регистрация: 18.01.2012 Сообщений: 17
	18.01.2012, 20:14 [ТС]
	Спасибо вам посоны очень помогли, а то блин вообще у меня ничего не получалось 0

@Шорох Анастасия 1 / 1 / 0 Регистрация: 22.04.2013 Сообщений: 20
	28.05.2013, 21:40
	помогите дописать проверку к программе. если человек, допустим, придурок и написал орпиупр или 32.13 0

@Шорох Анастасия 1 / 1 / 0 Регистрация: 22.04.2013 Сообщений: 20
	01.06.2013, 00:42
	а можно вопрос. почему именно с 1582 года можно считать? 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	01.06.2013, 00:46
	Шорох Анастасия, вряд ли ТС Вам ответит. Обратите внимание на дату создания темы. 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.06.2013, 08:31
	В 1582 году был введен григорианский календарь, для которого действительна эта формула 0