Парикмахерская, программа |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Парикмахерская, программа |
Дон |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация: 0 |
Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем.. Помогите,плизз,если кто может.. |
Дон |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Репутация: 0 |
Цитата Поварьируй c в пределах от 0 до 15 (для фона от 0 до 7). И цвет фона поменял и текста,только... Нужно чтобы цвет меняла только надпись "Парикмахерская"..а так как мы вставляем оператор textcolor после begin,то цвет меняет весь текст в программе... я думал что-то получится,если напишу так: Код begin TextColor(2); Write('Парикмахерская'); end; то есть отдельным циклом...но не вышло..как поступить? Цитата Плохо выглядит вывод времени в долях часа.. действительно плохо..как этого можно избежать? |
Lapp |
Сообщение
#3
|
Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Код begin TextColor(2); Write('Парикмахерская'); end; то есть отдельным циклом...но не вышло..как поступить? действительно плохо..как этого можно избежать? Это не цикл.. Циклы - это три конкретных оператора: for, while, repeat. А begin и end - это так называемые "операторные скобки", они превращают группу операторов в как бы один. Но только тут они не нужны. Все, что тебе нужно - это после написания сменить цвет обратно: Код TextColor(2); Write('Парикмахерская'); TextColor(7); Что касается форматирования времени под вывод минут, то это можно сделать примерно так.. Сначала берешь целую часть времени в часах (это сколько часов), потом дробную часть умножаешь на 60 и округляешь (это минуты). var Hour,Min:integer; Этот вариант все же грешит тем, что выводит минуты без нулей. Поэтому если хочешь организовать стандартный вывод Час:Мин (через двоеточие), то надо добавлять печать нуля, если минут меньше 10 (то есть чтоб было 12:02, а не 12:2 ) var И напоследок, поскольку у тебя в программе вывод времени делается много раз, то лучше засунуть это все в процедуру. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 5.05.2024 6:18 |