Пятница, 29.03.2024, 03:28
СТЭМ: МИИЗ Прошлый век
Приветствую Вас Гость | RSS
Навигация
Категории раздела
Caterpillars Blog [317]
Личный блог С.Белазова
Бред Профессора [227]
Мысли вслух от Мирона
Дневник Степкина [222]
Элеоновы письма [118]
Личный блог Элеон
Яйца Динозавра [146]
Отложенное в нашу корзинку Dinozavr'ом
Записки Сэра Ваха [6]
персональный раздел servax'а
Майдан [81]
Блог для всех (общий)
Академия мастерства [1]
Полезные статьи из различных источников
Мемориал [74]
Об ушедших от нас...
Новые публикации
[04.12.2022]►СТЭМ
Переломный момент (3)
[20.04.2022]►Эксклюзив
Факирское-чудесное (0)
[18.05.2021]►Эксклюзив
По следу Кастанеды (0)
[15.05.2021]►Эксклюзив
Сарафанное радио (0)
[11.12.2019]►Эксклюзив
Синдром ЧуковскАго (0)
Новые сайты
[18.11.2021]►Музыка
Рок-посевы (0)
[26.02.2020]►Культура и искусство
Булат Окуджава, биография, стихи и песни (0)
[07.02.2019]►Блоги
Один Высоцкий (3)
Главная » 2010 » Октябрь » 13 » Юбилея псто
22: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 | Просмотров: 937 | Добавил: caterpillar | Рейтинг: 0.0/0
Всего комментариев: 211 2 »
0  
1 miron   (13.10.2010 22:44)
То есть получаеццо - гораздо чаще smile
...денежный месяц октябрь... А чё? Звучит cool
Единственное, что смутило при чтении материала - это слова "от всех" и "в совершенстве". НиМожытБыть biggrin
0  
2 caterpillar   (13.10.2010 23:09)
Придираешься..
Нет чтобы поздравить с сотым дневником..
0  
4 miron   (13.10.2010 23:21)
Када я придираюсь - я такой: prof
А вот "соточку"-то и не заметил, ага.
Сволочь я... sad (Компенсирую наградой)
0  
3 caterpillar   (13.10.2010 23:15)
Я тут алгоритм упустил из виду. В общем, чтобы ЭТО случилось, нужно, чтобы месяц начинался с пятницы.
Капитан Очевидность.
smile
0  
10 miron   (14.10.2010 09:57)
...начинался с пятницы, содержал 31 день и не был февралём smile
Июль следующего года как раз такой.
(капрал Уточнение)
0  
5 caterpillar   (13.10.2010 23:26)
Спасибо! Но не за это мы стараемся. Все меньше и меньше правда.. sad
0  
6 miron   (13.10.2010 23:27)
Пессимистиццкие настроения прекратить! Строй держать! biggrin
0  
7 caterpillar   (13.10.2010 23:31)
Поясняю. От всех - это от Петровича смс - см.. (ну в общем смотри предыдущие 99, я упоминал его. И от не скажу кого в аське smile ) По моему достаточно для литературного обобщения smile
0  
8 caterpillar   (14.10.2010 00:33)
И кстати, (я тут с телефона (стыдитесь типа), ответить на коммент не могу),.
Так вот. Сволочъ пишется с твердым знаком! smile
(для удобства чтения smile )
+2  
9 miron   (14.10.2010 00:52)
Это конченная сволочъ с твёрдым пишется, а нечаянная сволочь имеет на конце смягчающее обстоятельство smile
0  
11 viktors   (14.10.2010 11:37)
Поздравляю со стольником!!!
А про эти пятницы я прочёл на БАШе.
0  
12 miron   (14.10.2010 12:58)
Quote (viktors)
прочёл на БАШе
Ты этим гордишься? biggrin cool
И по делу: а ведь ты тоже за соточку перескочил. Однако, caterpillar про свою намекнул, а ты чтой-то проскромничал...
(но мидальку всиравно получил) smile
0  
13 caterpillar   (14.10.2010 13:01)
Я вообще склонен к символизму..
А Виктора же поздравляли с соткой? Я помню (почему то smile )
0  
14 miron   (14.10.2010 13:08)
Поздравлять-то поздравляли, только он не намекал wink Скромен есмь cool
(или беспамятен smile )
0  
15 viktors   (14.10.2010 16:08)
Скромно беспамятен. biggrin
0  
16 caterpillar   (15.10.2010 22:18)
Цитата из miron 10: содержал 31 день и не был февралем.

После тщательного обдумывания фразы показалось, что что-то в ней лишнее smile

0  
18 miron   (15.10.2010 23:35)
Вот вроде ты к программазму достаточно близок, однако удивляешь... sad В алгоритме лучше перебдеть, чем недобдеть.
smile
+2  
17 dod   (15.10.2010 23:33)
посмею предположить, что лишним было "тщательное обдумывание фразы" smile
1-10 11-12
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Привет
Логин:
Пароль:
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Поиск
Случайное фото
Тэги
выступление кино актёры текущее шары графоманьяк некрополь Сайт жизнь книги интернет Высоцкий праздники студенты Омск день рождения сцена Музыка день рожденья театр песни МИИЗ праздник юбилей актёр память мысли вслух масленица Природа Бедненко общага стихи Максим Иванов искусство Фотография театр Ермолаевой Весна встреча рыбалка Ночь Музеев песня Степкины песни цветы Теплый ламповый звук УНЧ для наушников мимоходом СССР НАШИ свои рисунки СТЭМ
Статистика

Онлайн всего: 1
Заглянувших: 1
Пользователей: 0
Сегодня отметились
Друзья сайта
Copyright miron © 2008-2024