• Предмет: Информатика
  • Автор: NyashkaYbivashka
  • Вопрос задан 8 лет назад

Выполнить в PascalAbc  С клавиатуры вводится целое число, задающее ширину (высоту) квадратного графического окна в пикселях. Минимальная ширина (высота) окна — 100 пикселей. Поместите окно в центре экрана, так чтобы окно полностью помещалось на нем. Если окно будет очень маленьким (ширина (высота) меньше 100 пикселей) или очень большим (не будет полностью помещаться на экране), то в окне вывода надо сообщить пользователю об ошибке и завершить программу. Если же окно будет приемлемого размера, то, получите случайное число от 1 до 12. Если полученное значение будет от 1 до 3, то нарисуйте часы, показанные на первом рисунке, от 4 до 6 — часы, показанные на втором рисунке, от 7 до 9 — на третьем и, наконец, от 10 до 12 — на четвертом. Часы должны занимать всю ширину и высоту окна, длина делений на часах, составляет 1/8 от ширины (высоты) графического окна, длина большой стрелки — 1/4 от ширины (высоты) графического окна, а длина маленькой стрелки в два раза меньше длины большой. Стрелки часов должны быть разного цвета и короткая стрелка должна располагаться выше длинной.

Приложения:

Ответы

Ответ дал: fireRising
0
от угла все будет зависеть, просто возьми основной код и измени углы
Ответ дал: danilka31rus31
0
притт
Ответ дал: danilka31rus31
0
лох
Вас заинтересует