Помогите дописать программу, чтобы показывала дни недели и до нашей эры

01.04.2012, 13:25. Показов 897. Ответов 0

Метки нет (Все метки)

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

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Program Day_of_week;
 
uses CRT;
 
procedure GetDay (var d, m, y : integer);
var
correct : byte;
begin
correct := 1;
repeat
writeLn ('Введите дату.');
write ('День - ');
readLn (d);
write ('Месяц - ');
readLn (m);
write ('Год - ');
readLn (y);
 
{ Проверим правильность года. Если год не "правильный", то попросим ввести дату ещё раз }
if y <= 4903 then
if y >= 1000 then
correct := 0;
until correct = 0
end;
 
procedure CountDay (d, m, y : integer);
var
week : array [0 .. 6] of string[11];
c, w : integer;
begin
week [0] := 'воскресенье';
week [1] := 'понедельник';
week [2] := 'вторник';
week [3] := 'среда';
week [4] := 'четверг';
week [5] := 'пятница';
week [6] := 'суббота';
 
{ Месяц январь или февраль = > нужно преобразовать }
if m < 3 then
begin
m := m + 10;
y := y - 1
end
else
m := m - 2;
 
c := y div 100;
y := y mod 100;
w := abs (trunc (2.6 * m -0.2) + d + y div 4 + y + c div 4 - 2 * c) mod 7;
writeLn ('соответствует день недели - ', week [w])
end;
 
var
d, y, m : integer;
 
begin
ClrScr;
GetDay (d, m, y);
CountDay (d, m, y)
end.

Добавлено через 2 минуты
Вообщем надо дописать программу, чтобы она показывала дни недели еще и до нашей эры. при этом учесть что 0 века не было!)))

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

01.04.2012, 13:25

Ответы с готовыми решениями:

Проверить,является ли год високосным(кратным 4) в пределах от 2000 до нашей эры до 2000 нашей эры
Проверить,является ли год високосным(кратным 4) в пределах от 2000 до нашей эры до 2000 нашей эры.Вывести с экрана год и признак...

Проверить, является ли год високосным в пределах от 2000 до нашей эры до 2000 нашей эры
1)Проверить, является ли год високосным в пределах от 2000 до нашей эры до 2000 нашей эры. Ввести с экрана год и признак эры, вывести...

День недели, выпадающий на дату d1, если известно, что в первый день нашей эры был понедельник
Помогите пожалуйста!! день недели, выпадающий на дату d1, если известно, что в первый день нашей эры был понедельник.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

01.04.2012, 13:25

Помогаю со студенческими работами здесь

Составить программу, которая по заданному номеру года нашей эры n печатает его название по старояпонскому календарю
В старояпонском календаре был принят 60-летний цикл, цвета: зеленый, красный, состоящий из пяти 12-летних подциклов. Подциклы обозначались...

Работа с датой до нашей эры
У меня есть количество дней пройденные с 01.01.4713 ДО НАШЕЙ ЭРЫ. Нужно получить дату (-01.01.4713 + колво дней) Как работать с такой...

За данным номером года нашей эры, определить номер века к которому он принадлежит
Прошу помочь! Условие: За данным номером года нашей эры, определить номер века к которому он принадлежит.

Ввести номер некоторого года нашей эры и напечатать его название по старояпонскому календарю
Добрый день, помогите пожалуйста написать программу на Delphi , очень срочно плииз Вот условие: В старояпонском календаре был принят...

Описать функцию ЧислоДней(d), подсчитывающую, сколько дней прошло от 1 января 1-го года нашей эры до даты d
6. Дано type число = 1..31; месяц = 1..12; год = 1..2000; дата = record ч : число; м : месяц; ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Наверх