Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
dark99
8 / 8 / 0
Регистрация: 21.01.2011
Сообщений: 128
1

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

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

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

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

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

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

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

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

1
Puporev
Модератор
57194 / 43652 / 30166
Регистрация: 18.05.2008
Сообщений: 104,067
25.01.2011, 15:26 2
Лучший ответ Сообщение было отмечено dark99 как решение

Решение

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
uses crt;
function Visok(n:integer):boolean;
begin
Visok:=((n mod 100<>0)and(n mod 4=0))or(n mod 400=0);
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,k:integer;
begin
clrscr;
repeat
write('Год: ');readln(c);
until c>0;
repeat
write('Месяц: ');readln(b);
until b in [1..12];
repeat
k:=0;
write('День: ');readln(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));
readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2011, 15:26

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

Определите даты всех занятий, начиная с первого занятия и до конца года
1 задача Володе очень понравились задачи олимпиады по информатике, поэтому он решил ходить на...

Определить порядковый номер максимальной цифры, считая от конца и от начала числа
Привет! Люди прошу у Вас помощи, нужно сдавать работы 6 июня а у меня ни одной нет. Паскаль не...


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

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

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