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