Глава 50 (CYOA051)
Как ты ни стараешься идти по своим следам, но больше нигде не видно ни единой серебряной нити. Потратив на поиски несколько часов, останавливаешься у небольшого пруда попить воды. Но увы – на поверхности плавает толстый слой пены, пить такую воду никто не станет. Страдая от жажды и усталости, садишься на берегу пруда отдохнуть.
Пытаешься сообразить, как быть дальше. Тем временем ты срываешь стручок с какого-то растения – раньше ты таких точно не видела. Раскрываешь стручок и лениво бросаешь семена одно за другим в затхлый пруд. Моргаешь, не веря своим глазам – в пене появляется просвет!
Быстро срываешь ещё стручок и высыпаешь семена в пруд. Потрясённо глядишь, как вода становится такой чистой, что видно дно. Делаешь пробный глоток – вода свежайшая. Задыхаясь от восторга, срываешь все странные стручки, что можешь найти.
Узнав, что ты можешь очистить воду, селяне принимают тебя обратно. Сохраняя в тайне место, где растут стручки, ты со временем заработала неплохое состояние, очищая и другие колодцы таинственными семенами. Вскоре твои семена заменили единорожьи рога как самый надёжный метод очистки воды.
Конец
Сколько у тебя сейчас задач?
Источник: «Жиза ИТ руководителя»
Ожидая такси
В четверг ждал такси на улице, оно уже подъезжало. Тут мимо проехала реанимация, за ней 3 скорые, автобус и, видимо, машина сопровождения. Тут подъехало мое такси, и пока садился, нас обогнали еще 4 скорые. Такая вот колонна. Таксиста спросил, он сказал что регулярно такие встречает. Везут с вокзала в военный госпиталь.
Помогите, пожалуйста, дописать код в 1 с
Как написать так, чтобы в случае если соответствие не найдено, было выведено сообщение с ошибкой "Регион не определен". Поле ввода при этом должно быть подсвечено с текстом "ошибка".
&НаКлиенте
Процедура ОпределитьРегион(Команда)
Если Прав(НомерАвтомобиля, 2) = "78" Тогда
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверкаРегиона", ЭтотОбъект);
ПоказатьВопрос(ОписаниеОповещения, "Регион - 78: Санкт-Петербург. Очистить поле Номер автомобиля?",
РежимДиалогаВопрос.ДаНетОтмена);
ИначеЕсли НомерАвтомобиля = Неопределено Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Регион не определен";
Сообщение.Поле = "НомерАвтомобиля";
Сообщение.Сообщить();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПроверкаРегиона(Результат, ПараметрыЗаписи) Экспорт
Если Результат = КодВозвратаДиалога.Да Тогда
НомерАвтомобиля = "";
КонецЕсли;
КонецПроцедуры




