Садовник Мюллер

Категории раздела

Летопись [268]
Последние (современные) записи
СТЭМ [305]
Записи, публиковавшиеся на сайте СТЭМ МИИЗ: Прошлый Век
ЖЖ [5]
Записи, публиковавшиеся в ЖЖ
Публикации (в СТЭМ) [2]

Wow!

Календарь

«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031

Архив записей

Блог

Главная » 2010 » Октябрь » 13 » Юбилея псто
21:53
Юбилея псто
Интересный факт на октябрь 2010г.Этот месяц необычный,у него 5 пятниц,5 суббот и 5 воскресений.Такое случается один раз в 823 года.Такой месяц считается денежным.Разошли эту смс 8 хорошим людям и через 4 дня получишь много денег.Это по учению Фэн-Шуй.Если не отошлёшь смс,то упустишь удачу

Такое сообщение я сегодня получил во множестве от всех.. Естественно, я заинтересовался столь редким фактом (не считая пунктуации сообщения) и вспомнил прошлую жизнь.
Результат можно получить, запустив эту программу на Foxpro 2.6 (единственный язык, который я изучил в совершенстве).
Код
set talk off  
  set date to germ  
  set cent on  
  set excl on  
  set safe off  
  clea all  
  clea  
  on erro do onerr  
  sele 0  
  use calendar  
  zap  
  on erro  

  data = {01.10.2010}  
  for i = 2010 to 1000 step - 1  
  data = "{01.10." + allt(str(i)) + "}"  
  wait wind nowa data  
  m.oktober = eval(data)  
  if dow(m.oktober) = 6  
  ? data  
  m.dow = dow(m.oktober)  
  inse into calendar from memv  
  endi  
  endf  

  brow norm  

  proc onerr  
  crea tabl calendar (oktober d, dow n(10, 0));


А вот и результат ее работы:

2010.10.01 2004.10.01 1999.10.01 1993.10.01 1976.10.01 1971.10.01 1965.10.01 1954.10.01 1948.10.01 1943.10.01 1937.10.01 1926.10.01 1920.10.01 1915.10.01 1909.10.01 1897.10.01 1886.10.01 1880.10.01 1875.10.01 1869.10.01 1858.10.01 1852.10.01 1847.10.01 1841.10.01 1830.10.01 1824.10.01 1819.10.01 1813.10.01 1802.10.01 1790.10.01 1784.10.01 1779.10.01 1773.10.01 1762.10.01 1756.10.01 1751.10.01 1745.10.01 1734.10.01 1728.10.01 1723.10.01 1717.10.01 1706.10.01 1700.10.01 1694.10.01 1688.10.01 1683.10.01 1677.10.01 1666.10.01 1660.10.01 1655.10.01 1649.10.01 1638.10.01 1632.10.01 1627.10.01 1621.10.01 1610.10.01 1604.10.01 1599.10.01 1593.10.01 1582.10.01 1576.10.01 1571.10.01 1565.10.01 1554.10.01 1548.10.01 1543.10.01 1537.10.01 1526.10.01 1520.10.01 1515.10.01 1509.10.01 1497.10.01 1486.10.01 1480.10.01 1475.10.01 1469.10.01 1458.10.01 1452.10.01 1447.10.01 1441.10.01 1430.10.01 1424.10.01 1419.10.01 1413.10.01 1402.10.01 1390.10.01 1384.10.01 1379.10.01 1373.10.01 1362.10.01 1356.10.01 1351.10.01 1345.10.01 1334.10.01 1328.10.01 1323.10.01 1317.10.01 1306.10.01 1300.10.01 1294.10.01 1288.10.01 1283.10.01 1277.10.01 1266.10.01 1260.10.01 1255.10.01 1249.10.01 1238.10.01 1232.10.01 1227.10.01 1221.10.01 1210.10.01 1204.10.01 1199.10.01 1193.10.01 1182.10.01 1176.10.01 1171.10.01 1165.10.01 1154.10.01 1148.10.01 1143.10.01 1137.10.01 1126.10.01 1120.10.01 1115.10.01 1109.10.01 1097.10.01 1086.10.01 1080.10.01 1075.10.01 1069.10.01 1058.10.01 1052.10.01 1047.10.01 1041.10.01 1030.10.01 1024.10.01 1019.10.01 1013.10.01 1002.10.01
Категория: СТЭМ | Просмотров: 675 | Добавил: excaterpillar | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Форма входа

Логин:
Пароль:

Поиск

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Уже побывали:

Новое на форуме

  • Чего счас слушаю
  • Потрепаться
  • Зазырь, чо...
  • Вечер одной песни
  • Страницы, которые сегодня показались интересными.
  • Философщина
  • Эмоции дня
  • Цитата дня
  • День памяти
  • Зацени, да?..
  • тэги

    вов (2)

    Друзья сайта

  • Прошлый век