XIV конкурс туристской фотографии
"ФотоТур-2023" завершен.
С результатами можно ознакомиться на форуме.
"ФотоТур-2023" завершен.
С результатами можно ознакомиться на форуме.
Программа одного походного дня :)
Автор | Сообщение |
Shtak
Воронеж сообщений: 508 |
Как-то довелось целую неделю завершать маршрут вдвоем с сыном (ему тогда 12 лет было). Шли по Чирке от Тикши до Борового. Всю неделю обсуждали компьютерные игры. В результате написал такую программу одного походного дня:
Пока МаршрутНеЗакончен Цикл Если ИдетСильныйДождь Тогда ПрограммаНаСегодня (Спать,Есть,НаслаждатьсяЖизнью) Иначе ВстатьРано = 1 СваритьКашу = 1 РазбудитьМатроса = 1 НакормитьМатроса = 1 УмытьМатроса = 1 ОдетьМатроса = 1 ПосадитьВЛодкуМатроса = 1 ОтправитьсяВПуть = 1 ПрограммаНаСегодня (ИдтиДальше,БезОбеда,ЛопатитьНеРазгибаясь) Пока Слышен.ПодозрительныйШум Цикл Капитан.Действует(Чалится,Просматриват,ЧешетРепу,Идет,Перекуривает,КидаетБлесну) Матрос.Присутствует(Спит,Ест,Пьет,ШлепаетОводов,ДостаетВопросами,ИмитируетГреблю) КонецЦикла НайтиСтоянку = 1 ПоставитьЛагерь = 1 ПриготовитУжин = 1 НакормитьМатроса = 1 УложитьСпатьМатроса = 1 ЛичноеВремя() КонецЕсли КонецЦикла Программист из меня никакой, пусть специалисты поправят, где ошибся. Самое смешное, программа работает! Отредактировано: sergus 17.01.2010 21:22 |
Wayfarer
Москва сообщений: 5646 |
Сочувствую. Помнишь, на Лопасне Кирил тоже очень хотел о компьютерных играх поговорить? Хорошо что я сразу сказал что не играю. Помню, как он тебе лекции читал |
Levran_Aglaja
г.Рязань сообщений: 226 |
Очень похоже... Только у программы нет имени... Совершенно нет комментариев.... Ну и вообще уже пора в ней что-то менять и немного её оптимизировать... Например заменить матроса на М... Будет нормально идентифицировать У личного времени ввести параметр терпимости М. Ну и объединить (чтобы лишний раз не вызывать подпрограммы) Будить М с помощью кормёжки и умывать с помощью посадки в лодку... Кстати у цикла маршрут не окончен нужен дополнительный параметр колличество дней до возврата в исходную точку. И если осталось меньше чем, то выполнять основные действия умноженные на коэффициент больше двух ( например капитан 3хЧешет репу, а М 5хДостаёт вопросами и 50хИмитирует греблю) Уф... Ну и как всегда нет предела оптимизации..
Не преумножай сущностей больше, чем можешь унести! Закон сохранения действует даже там, где и сохранять нечего. НАС ЛЕГИОНЫ! - А НАС РАТЬ! |
Nalim
сообщений: 1686 |
А вирус в неё запустить не пробовали?
|
Новая тема Ответ | |
Перейти на другой форум: |