Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Ваня17121999
0 / 0 / 0
Регистрация: 03.03.2018
Сообщений: 3
1

Используя тип перечисление, посчитать кол-во пятниц 13-го в XX веке

08.03.2018, 18:17. Просмотров 440. Ответов 1

Написать программу, которая бы вычисляла количество пятниц, приходящихся на 13-е числа ХХ столетия. Вывести все даты, которые удовлетворяют заданному условию. ИСПОЛЬЗОВАТЬ ТИП "ПЕРЕЧИСЛЕНИЕ". Просто используя массив, содержащий число дней в каждом месяце, я написал. А вот как здесь использовать перечислимый тип- без понятия. Подскажите, пожалуйста. Вот рабочий код программы через массив:
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
//13.09.1901- первая пятница                      
const pp: array [1..12] of byte =  (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 
var 
  m, y, n, k,e: integer;
 
begin
  e:=0; //счётчик високосных лет
  writeln('Next dates: ');
  n := 0; //счётчик дней
  k := 0; //счётчик пятниц 13
  m := 4; //начинаем от 09 месяца 1901 года
  for y := 1901 to 2000 do //цикл по годам
  begin
    while m <= 12 do //цикл по месяцам
      begin
      n := n mod 7;
      if n = 0 then 
        k := k + 1; //если счётчик дней делится нацело на 7, то это одна из пятниц 13      
      n := n + pp[m]; //прибавляем к счётчику число дней в текущем месяце
      if (m=2) and (y mod 4 = 0) and(y mod 100 <>0) then
        begin
          n := n + 1; //если следующий месяц февраль и год високосный, добавляем ещё один день
          e:=e+1;
        end;
      m := m + 1
      end;
    m:=1;
  end;
  
  writeln('Count of "Friday 13" in XXth century: ', k);
  writeln('Count of long/leap-years in XXth century: ',e);
  readln;
end.

(P.S. должно получиться 172 пятницы тринадцатого и 24 високосных года).
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2018, 18:17
Ответы с готовыми решениями:

Посчитать количество пятниц 13 в XXI веке
Паскаль. Необходимо посчитать количество пятниц 13 в XXI веке. Будьте добры, опишите хоть алгоритм...

Посчитать количество пятниц 13х
Здравствуйте. Знатоки помогите пожалуйста. Посчитать количество пятниц 13х в период с 1900 по...

Сколько пятниц и пятниц 13 в период с 1 января 2001 по 31 декабря 2020 ( включительно) ?
Я решил эту задачу, но не уверен в правильности кода. Не могли бы вы мне помочь ее проверить....

Посчитать кол-во отрицательных и кол-во положительных элементов массива. Вывести массив на экран
Дан массив 5x5, заполнен случайными числами от -10 до 10. Посчитать кол-во отрицательных и кол-во...

Создать статические структуры, используя объединение и перечисление
Помогите пожалуйста написать программу: нужно создать структуру, используя объединение и...

1
abit
275 / 274 / 83
Регистрация: 03.02.2013
Сообщений: 780
09.03.2018, 05:28 2
сам ли ты написал? где ответ на вопрос
Цитата Сообщение от Ваня17121999 Посмотреть сообщение
Вывести все даты, которые удовлетворяют заданному условию
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.03.2018, 05:28

8.Дан список населенных пунктов области с описанием: название, кол-во жителей, тип. Тип выбирается из списка: город, районный цент, село, поселок г
8.Дан список населенных пунктов области с описанием: название, кол-во жителей, тип. Тип...


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

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

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