Пятница, 22.11.2024, 03:16
СТЭМ: МИИЗ - Прошлый век
Приветствую Вас Гость | RSS
Навигация
Категории раздела
Caterpillars Blog [312]
Личный блог С.Белазова
Бред Профессора [208]
Мысли вслух от Мирона
Дневник Степкина [220]
Элеоновы письма [118]
Личный блог Элеон
Яйца Динозавра [146]
Отложенное в нашу корзинку Dinozavr'ом
Записки Сэра Ваха [6]
персональный раздел servax'а
Майдан [79]
Блог для всех (общий)
Академия мастерства [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)

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 | Просмотров: 983 | Добавил: caterpillar
Всего комментариев: 211 2 »
1 miron  
0
То есть получаеццо - гораздо чаще smile
...денежный месяц октябрь... А чё? Звучит cool
Единственное, что смутило при чтении материала - это слова "от всех" и "в совершенстве". НиМожытБыть biggrin

2 caterpillar  
0
Придираешься..
Нет чтобы поздравить с сотым дневником..

4 miron  
0
Када я придираюсь - я такой: prof
А вот "соточку"-то и не заметил, ага.
Сволочь я... sad (Компенсирую наградой)

3 caterpillar  
0
Я тут алгоритм упустил из виду. В общем, чтобы ЭТО случилось, нужно, чтобы месяц начинался с пятницы.
Капитан Очевидность.
smile

10 miron  
0
...начинался с пятницы, содержал 31 день и не был февралём smile
Июль следующего года как раз такой.
(капрал Уточнение)

5 caterpillar  
0
Спасибо! Но не за это мы стараемся. Все меньше и меньше правда.. sad

6 miron  
0
Пессимистиццкие настроения прекратить! Строй держать! biggrin

7 caterpillar  
0
Поясняю. От всех - это от Петровича смс - см.. (ну в общем смотри предыдущие 99, я упоминал его. И от не скажу кого в аське smile ) По моему достаточно для литературного обобщения smile

8 caterpillar  
0
И кстати, (я тут с телефона (стыдитесь типа), ответить на коммент не могу),.
Так вот. Сволочъ пишется с твердым знаком! smile
(для удобства чтения smile )

9 miron  
2
Это конченная сволочъ с твёрдым пишется, а нечаянная сволочь имеет на конце смягчающее обстоятельство smile

11 viktors  
0
Поздравляю со стольником!!!
А про эти пятницы я прочёл на БАШе.

12 miron  
0
Quote (viktors)
прочёл на БАШе
Ты этим гордишься? biggrin cool
И по делу: а ведь ты тоже за соточку перескочил. Однако, caterpillar про свою намекнул, а ты чтой-то проскромничал...
(но мидальку всиравно получил) smile

13 caterpillar  
0
Я вообще склонен к символизму..
А Виктора же поздравляли с соткой? Я помню (почему то smile )

14 miron  
0
Поздравлять-то поздравляли, только он не намекал wink Скромен есмь cool
(или беспамятен smile )

15 viktors  
0
Скромно беспамятен. biggrin

16 caterpillar  
0
Цитата
содержал 31 день и не был февралем.


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

18 miron  
0
Вот вроде ты к программазму достаточно близок, однако удивляешь... sad В алгоритме лучше перебдеть, чем недобдеть.
smile

17 dod  
2
посмею предположить, что лишним было "тщательное обдумывание фразы" smile

1-10 11-12
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Привет
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Поиск
Случайное фото
Тэги
актёры текущее графоманьяк Сайт интересно интернет Работа Высоцкий праздники ремонт день рождения день рожденья песни праздник актер мемориал актёр память мысли вслух масленица Природа Бедненко вышивка искусство Фотография зелёная выставка дизайн работы студентов ОГИС театр Ермолаевой Весна встреча рыбалка Ночь Музеев литература поэзия день города Омска Авторская песня цветы УНЧ для наушников мимоходом православная вера Омская ярмарка памятное вера пейзаж Клёвое озеро СССР НАШИ свои рисунки барды
Статистика

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