Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
Seniks
0 / 0 / 1
Регистрация: 16.09.2016
Сообщений: 68
1

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

11.10.2016, 22:59. Просмотров 2521. Ответов 2
Метки нет (Все метки)

Проверить,является ли год високосным(кратным 4) в пределах от 2000 до нашей эры до 2000 нашей эры.Вывести с экрана год и признак эры,вывести сообщение в виде " 656 год нашей эры - високосный".Все это в Паскале.Спасибо.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.10.2016, 22:59
Ответы с готовыми решениями:

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

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

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

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

2
Puporev
Модератор
59361 / 44804 / 30921
Регистрация: 18.05.2008
Сообщений: 107,465
12.10.2016, 09:00 2
Лучший ответ Сообщение было отмечено Seniks как решение

Решение

Цитата Сообщение от Seniks Посмотреть сообщение
является ли год високосным(кратным 4)
Это не достаточное условие.
Год является високосным, если он кратен 4 и при этом не кратен 100 либо кратен 400.
Pascal
1
2
if ((god mod 4=0) and(god mod 100<>0))
or ((god mod 4=0) and (god mod 400=0)) then 'visokosnyj'
0
Cyborg Drone
Модератор
7343 / 3740 / 2676
Регистрация: 17.08.2012
Сообщений: 11,969
20.10.2016, 18:18 3
Я вот что подумал... Мало мы уделяем внимания некоторым подробностям... Если быть до конца честным, то алгоритм несколько сложнее.

Статья:Википедия - Високосный год

Итак, выжимка из упомянутой статьи.

Первый високосный год - это 45 год до н. э. До 45 года до н. э. високосных годов не было.

Далее високосными годами были 42, 39, 36, 33, 30, 27, 24, 21, 18, 15, 12, 9 годы до н. э., а c 8 года и в последующем каждый четвёртый год.

С 1582 года по настоящее время год считается високосным, если он делится на 4, и при этом не делится на 100, или если год делится на 400.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var y: longint;
begin
  date()
  write('Введите год, отрицательное число - до н. э.: ');
  readln(y);
  if y = 0
    then writeln('Нулевого года не существует.')
    else begin
      write(abs(y), ' год');
      if y < 0 then write(' до');
      write(' нашей эры -');
      if not((y >= -45) and (y <= -9) and (y mod 3 = 0) or
          (y >= 8) and (y < 1582) and (y mod 4 = 0) or
          (y >= 1582) and ((y mod 4 = 0) and (y mod 100 <> 0) or (y mod 400 = 0)))
        then write(' не');
      writeln(' високосный год.')
    end;
  readln
end.
Вот так. Не вполне по заданию, зато правда.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2016, 18:18

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

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

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

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

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


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

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

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