Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
ILue
9 / 9 / 0
Регистрация: 17.01.2013
Сообщений: 84
1

Найти порядковый номер даты, начиная отсчет с начала года

17.01.2013, 15:57. Просмотров 1266. Ответов 1
Метки нет (Все метки)

Заданы три натуральных числа A,B,C, которые обозначают число месяц и год. Найти порядковый номер даты, начиная отсчет с начала года
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 15:57
Ответы с готовыми решениями:

Найти порядковый номер даты, начиная отсчет с начала года
заданы три натуральных числа A,B,C, которые обозначают число, месяц и год. найти порядковый номер...

Найти порядковый номер даты, начав отсчет с начала года
Даны три натуральных числа А, B, C, обозначающие число, месяц и год. Найти порядковый номер даты,...

Найти порядковый номер даты с начала отсчёта
Люди добрые помогите в решение этих 2 задач на Паскале.....нужно составить программы .... заранее...

Найти номер дня от начала года
Числа x,y,z обозначают дату. Найти номер этого дня с начала года.:-[

Числа x,y,z обозначают дату. Найти номер этого дня с начала года
Числа x,y,z обозначают дату. Найти номер этого дня с начала года. Как решить без использования...

1
Puporev
Модератор
57149 / 43620 / 30152
Регистрация: 18.05.2008
Сообщений: 103,996
17.01.2013, 16:12 2
Лучший ответ Сообщение было отмечено ILue как решение

Решение

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
uses crt;
function Visok(n:integer):boolean;
begin
if ((n mod 100<>0)and(n mod 4=0))or(n mod 400=0)
then Visok:=true else Visok:=false;
end;
function Dn_gd(g,m,d:integer):integer;
var k,k2:integer;
begin
if Visok(g)then k2:=60 else k2:=59;
case m of
1:k:=d;
2:k:=31+d;
3:k:=k2+d;
4:k:=k2+31+d;
5:k:=k2+61+d;
6:k:=k2+92+d;
7:k:=k2+122+d;
8:k:=k2+153+d;
9:k:=k2+184+d;
10:k:=k2+214+d;
11:k:=k2+245+d;
12:k:=k2+275+d;
end;
Dn_gd:=k;
end;
var a,b,c,i,k2,k:integer;
begin
repeat
write('Год: ');read(c);
until c>0;
repeat
write('Месяц: ');read(b);
until b in [1..12];
repeat
k:=0;
write('День: ');read(a);
if(a<1)or(a>31) then k:=1;
if(b in [4,6,9,11]) and(a>30)then k:=1;
if(b=2) and Visok(c) and(a>29) then k:=1;
if(b=2) and(c mod 4<>0) and(a>28) then k:=1;
until k=0;
write('Номер дня=',Dn_gd(c,b,a));
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2013, 16:12

Порядковый номер дня високосного года
помогите с задачей господа &quot;Даны следущие описания : var k:1...366;d:1...31;m:month;...

Найти сумму ряда, начиная отсчет с нулевого члена (while)
Найти сумму ряда, начиная отсчет с нулевого члена (*нужно сделать через while*) Вроде...

Определить k – порядковый номер того дня високосного года, который имеет дату d, m.
type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec); ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru