Вывод на печать заданного месяца 2009 года

@Litvinchuck · Регистрация: 08.10.2013

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

нужно написать программу в Pascal для вывода на печать заданного месяца 2009 года , если 1 января 2009 года это четверг

то есть я должен вводить день от 1 до 365 и мне должно выводить какой это месяц и день недели

@FullSilence · 09.10.2013, 02:37

Паскаль давно забыл, на сях делаю так:

C++

struct sDate
{
    char day;
    char month;
    short year;
};
 
int day(const struct sDate * const date)
{
    int a = (14 - date->month) / 12;
    int y = date->year - a;
    int m = date->month + 12 * a - 2;
    return (7000 + (date->day + y + y / 4 - y / 100 + y / 400 + (31 * m) / 12)) % 7;
}

Дальше думаю понятно?

ЗЫ. Это действительно с 1573, вроде, года.

@Litvinchuck 0 / 0 / 0 Регистрация: 08.10.2013 Сообщений: 2
		1
	Вывод на печать заданного месяца 2009 года 08.10.2013, 17:49. Показов 661. Ответов 1 Метки нет (Все метки) нужно написать программу в Pascal для вывода на печать заданного месяца 2009 года , если 1 января 2009 года это четверг то есть я должен вводить день от 1 до 365 и мне должно выводить какой это месяц и день недели 0

	09.10.2013, 02:37