Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
dexterlab97
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
1

Рассчитать количество дней между двумя годами

24.12.2014, 20:18. Просмотров 320. Ответов 2
Метки нет (Все метки)

Ввести год1 и год2
Например 2014 и 2018
Нужно рассчитать кол-во дней всего между 2 этими годами (то есть 365+365+365+365=1460)

Смог определить как вычеслять будет ли год високосным или нет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
if y1 mod 4 <>0
then 
begin
 
l1:=0;
end
else
if y1 mod 100 <> 0
then
begin
 
l1:=1
end
else
if y1 mod 400 <>0
then 
begin
 
l1:=0
end
else 
 
l1:=1 ;
Если да (високосный год) то l1=1 а нет то l1= 0
А дальше не смог, всегда проблемы с циклами
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2014, 20:18
Ответы с готовыми решениями:

Напишите программу, определяющую количество дней между двумя заданными датами.
Напишите программу, определяющую количество дней между двумя заданными датами. Примечание: Года...

Количество дней между двумя датами
Даны две даты текущего года. Сосчитать количество дней между этими двумя датами. Даты задаются...

Процедуры и функции: Процедура вычисления количества дней между двумя датами
Напишите программу с процедурой, которая по двум датам (номерам дней в месяце, месяцам и году)...

Количество дней между датами
Помогите с задачей Плыз. Лимит времени 2000/4000/4000/4000 мс. Лимит памяти...

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

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3881 / 2863 / 3639
Регистрация: 05.06.2014
Сообщений: 14,066
25.12.2014, 19:02 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  i,sum,year,year1,year2:integer;
 
function bsYear(n: Word): Boolean;
begin
    bsYear := ((n mod 4) = 0) and not (((n mod 100) = 0) and ((n mod 400) <> 0));
end;
 
begin
  readln(year1,year2);
  for i:=year1 to year2 do
    begin
      if bsYear(i) then
        year:=366
      else
        year:=365;
      sum:=sum+year;
    end;
  writeln(sum);
end.
1
dexterlab97
0 / 0 / 1
Регистрация: 10.11.2014
Сообщений: 19
25.12.2014, 19:26  [ТС] 3
так зря я написал предыдущие коды
А можно по проще, я новичок в паскале

Добавлено через 11 минут
Без функции
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2014, 19:26

Найти количество дней между 2 датами
Хочу поделиться, я новичок в Паскале так что использал простые операторы (эа тсключением function,...

Определить количество полных лет, прошедших между двумя заданными датами.
Определить количество полных лет, прошедших между двумя заданными датами.

Дан список месяцев, дней по месяцам и количество рабочих дней: январь - 30 - 24, февраль - 28 - 22, март - 31 - 25.
Помогите пожалуйста решить задачи на Pascal, очень срочно надо . 1) Дан список месяцев, дней по...


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

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

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