Определить все месяцы 2000 года, в которых 13 число было пятницей

@msk19 · Регистрация: 16.11.2015

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

Компьютерный вирус "Пятница, 13" может повредить информацию только в те дни, когда 13 число попадает на пятницу. Определить все месяцы 2000 года, в которых 13 число было пятницей. Учесть, что 2000 год - високосный и 1 января 2000 года - суббота. В качестве ответа распечатать номера месяцев

@ZX Spectrum-128 · 05.12.2015, 11:04

Взято отсюда:
Определить количество пятниц 13х в заданном столетии

Pascal

const
  month: array [1..12] of string[16] = 
  ('Январь', 'Февраль', 'Март', 'Апрель', 'Май', 'Июнь', 'Июль', 'Август', 'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
 
var
  m, y, s, d: integer;
 
function getdt(d, m, y: integer): integer;
var
  c, a: integer;
begin
  a := (14 - m) div 12;
  c := y div 100;
  y := y - a;
  m := m + 12 * a - 2;
  if c > 15 then
    getdt := (7000 + (d + y + y div 4 - y div 100 + y div 400 + (31 * m) div 12)) mod 7
  else
    getdt := (d + (13 * m - 1) div 5 + 5 * (y mod 100) div 4 + 5 - c) mod 7
end;
 
begin
  d := 0;
  y := 2015;
  for m := 1 to 12 do
    if getdt(13, m, y) = 5 then 
      writeln('Friday 13 in ', y, ' = ', month[m]);
  readln;
end.

@msk19 · 18.01.2016, 21:28 **[ТС]**

ZX Spectrum-128, а тут учитывается что год високосный?

@Cyborg Drone · 20.01.2016, 01:37

Сообщение от msk19

учитывается что год високосный?

Да, в процедуре учитывается високосность года. Кроме того, в процедуре учитывается, в зависимости от столетия, который календарь следует использовать: юлианский или григорианский. Перейдите по ссылкам, почитайте про формулу Зеллера, не то, чего доброго, задание не сдадите.

Замечена опечатка, должно быть:

Pascal

24	y := 2000;

@msk19 · 20.01.2016, 12:56 **[ТС]**

Cyborg Drone, а как можно исправить чтобы она не учитывала что год високосный ?

@msk19 39 / 2 / 3 Регистрация: 16.11.2015 Сообщений: 103
		1
	Определить все месяцы 2000 года, в которых 13 число было пятницей 04.12.2015, 18:34. Показов 4455. Ответов 4 Метки нет (Все метки) Компьютерный вирус "Пятница, 13" может повредить информацию только в те дни, когда 13 число попадает на пятницу. Определить все месяцы 2000 года, в которых 13 число было пятницей. Учесть, что 2000 год - високосный и 1 января 2000 года - суббота. В качестве ответа распечатать номера месяцев 0

@msk19 39 / 2 / 3 Регистрация: 16.11.2015 Сообщений: 103
	18.01.2016, 21:28 [ТС]	3
	ZX Spectrum-128, а тут учитывается что год високосный? 0

@msk19 39 / 2 / 3 Регистрация: 16.11.2015 Сообщений: 103
	20.01.2016, 12:56 [ТС]	5
	Cyborg Drone, а как можно исправить чтобы она не учитывала что год високосный ? 0

Определить все месяцы 2000 года, в которых 13 число было пятницей

Решение