Воскресенье, 02.02.2025, 17:52
СТЭМ - МИИЗ
Приветствую Вас Гость | RSS
Навигация
Категории раздела
Caterpillars Blog [317]
Личный блог С.Белазова
Бред Профессора [209]
Мысли вслух от Мирона
Элеоновы письма [118]
Личный блог Элеон
Яйца Динозавра [146]
Отложенное в нашу корзинку Dinozavr'ом
Записки Сэра Ваха [6]
персональный раздел servax'а
Майдан [82]
Блог для всех (общий)
Академия мастерства [1]
Полезные статьи из различных источников
Мемориал [74]
Об ушедших от нас...
Новые публикации
[04.12.2022][СТЭМ]
Переломный момент (3)
[19.04.2022][Эксклюзив]
Факирское-чудесное (0)
[17.05.2021][Эксклюзив]
По следу Кастанеды (0)
[15.05.2021][Эксклюзив]
Сарафанное радио (0)
[11.12.2019][Эксклюзив]
Синдром ЧуковскАго (0)
Новые сайты
[18.11.2021][Музыка]
Рок-посевы (0)
[26.02.2020][Культура и искусство]
Булат Окуджава, биография, стихи и песни (0)
[07.02.2019][Блоги]
Один Высоцкий (3)

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

Такое сообщение я сегодня получил во множестве от всех.. Естественно, я заинтересовался столь редким фактом (не считая пунктуации сообщения) и вспомнил прошлую жизнь.
Результат можно получить, запустив эту программу на Foxpro 2.6 (единственный язык, который я изучил в совершенстве).

Code
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

Категория: Caterpillars Blog | Просмотров: 964 | Добавил: caterpillar | Рейтинг: 0.0/0
Всего комментариев: 211 2 3 »
avatar
0
1 miron • 18:44, 13.10.2010
То есть получаеццо - гораздо чаще smile
...денежный месяц октябрь... А чё? Звучит cool
Единственное, что смутило при чтении материала - это слова "от всех" и "в совершенстве". НиМожытБыть biggrin
avatar
0
2 caterpillar • 19:09, 13.10.2010
Придираешься..
Нет чтобы поздравить с сотым дневником..
avatar
0
3 caterpillar • 19:15, 13.10.2010
Я тут алгоритм упустил из виду. В общем, чтобы ЭТО случилось, нужно, чтобы месяц начинался с пятницы.
Капитан Очевидность.
smile
avatar
0
4 miron • 19:21, 13.10.2010
Када я придираюсь - я такой: prof
А вот "соточку"-то и не заметил, ага.
Сволочь я... sad (Компенсирую наградой)
avatar
0
5 caterpillar • 19:26, 13.10.2010
Спасибо! Но не за это мы стараемся. Все меньше и меньше правда.. sad
avatar
0
6 miron • 19:27, 13.10.2010
Пессимистиццкие настроения прекратить! Строй держать! biggrin
avatar
0
7 caterpillar • 19:31, 13.10.2010
Поясняю. От всех - это от Петровича смс - см.. (ну в общем смотри предыдущие 99, я упоминал его. И от не скажу кого в аське smile ) По моему достаточно для литературного обобщения smile
avatar
0
8 caterpillar • 20:33, 13.10.2010
И кстати, (я тут с телефона (стыдитесь типа), ответить на коммент не могу),.
Так вот. Сволочъ пишется с твердым знаком! smile
(для удобства чтения smile )
avatar
1
9 miron • 20:52, 13.10.2010
Это конченная сволочъ с твёрдым пишется, а нечаянная сволочь имеет на конце смягчающее обстоятельство smile
avatar
0
10 miron • 05:57, 14.10.2010
...начинался с пятницы, содержал 31 день и не был февралём smile
Июль следующего года как раз такой.
(капрал Уточнение)
1-10 11-20 21-21
avatar
Вход на сайт
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Поиск
Случайное фото
Статистика

Онлайн всего: 2
Гостей: 2
Пользователей: 0
Друзья сайта
Полезное
Copyright MyCorp © 2025