0 / 0 / 0
Регистрация: 11.11.2013
Сообщений: 2
1

Определить день недели, на который приходится день с датой d (день), m (месяц)

11.11.2013, 13:22. Показов 2373. Ответов 1
Метки нет (Все метки)

Считая, что год не високосный и его 1 января приходится на день недели wd1, определиь wd -день недели, на который приходится день с датой d(день), m(месяц)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2013, 13:22
Ответы с готовыми решениями:

Известна дата и день недели некоторого события. Определить на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить на какой день недели приходится начало...

Определить, на какой день недели приходится k-й день невисокосного года
Пусть k – целое от 1 до 365. Присвоить целой переменной n значение 1,2,…6 или 7 в зависимости от...

Определить день недели, который приходится на 1 января
составить программу ля определения дня недели, который приходится на 1 января любого года ХХ века...

Определить на какой день недели приходится начало года
Здравствуйте! Задача на использование комбинированного и множественного типа. Условие: "Известна...

1
Почетный модератор
64230 / 47532 / 32736
Регистрация: 18.05.2008
Сообщений: 115,182
11.11.2013, 13:50 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const dm:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
      dn:array[1..7]of string=('ïîíåäåëüíèê','âòîðíèê','ñðåäà','÷åòâåðã','ïÿòíèöà',
                               'ñóááîòà','âîñêðåñåíüå');
var wd1,wd:string;
    n,m,d,k,i:integer;
begin
repeat
write('Ââåäèòå íîìåð äíÿ íåäåëè 1 ÿíâàðÿ wd1=');
read(n);
until n in [1..7];
wd1:=dn[n];
writeln('1 ÿíâàðÿ ',wd1);
writeln('Ââåäèòå äàòó â ãîäó');
repeat
write('Ìåñÿö 1-12 m=');
read(m);
until m in [1..12];
repeat
write('Äåíü â çàâèñèìîñòè îò èåñÿöà d=');
read(d);
until(d>0)
and((m in [1,3,5,7,8,10,12])and(d<32))
or((m in [4,6,9,11])and(d<31))
or((m=2)and(d<29));
k:=d-1;//ìèíóñ 1 äåíü, åñëè ââåëè 1.01, òî ïðîøëî 0 äíåé
for i:=1 to m-1 do//ñ÷èòàåì ñêîëüêî ïðîøëî äíåé
k:=k+dm[i];
k:=k mod 7; //áåðåì îñòàòîê îò 7
//ê íîìåðó äíÿ 1.01 ïðèáàâëÿåì îñòàòîê îò k è áåðåì îñòàòîê îò ñóììû
wd:=dn[(n+k)mod 7];
write('Ýòîò äåíü íåäåëè ',wd);
end.
Добавлено через 8 минут
Это на АВС написано, исправь read на readln и добавь readln; перед end. Можно после begin добавить clrscr;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2013, 13:50
Помогаю со студенческими работами здесь

По введенной дате (число, месяц и год) определить день недели
1. По введенной дате (число, месяц и год) определить день недели. Основную часть программ...

Определить день недели по дате
1. известно время отправления поезда HHч MMмин. Был в пути сколько-то часов сколько-то минут....

Определить день недели по дате
привет всем. помогите пожайлуста напишите программу для турбо паскаля по данной задаче. Задача:...

Определить день недели числа п
Обозначим дни недели числами от 1 (понедельник) до 7 (воскресенье) соответственно. Известно,что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru