Люди помогите! Ситуация такая, создать квадрат а в нем бешеный шарик каторый при ударении о стенки квадрата меняет цвет и издает звук!
;) Да без проблем !!!
Подключаешь модуль graph и crt, инициализируешь её initgraph, затем рисуешь квадрат rectangle, рисуешь шарик circle, и зацикливаешь его например через пост условие (пока не ударится стенки квадрата), а если ударится то setcolor(num) где num 0-15 если 16-ти цветная палитра и пишешь writeln(^G) и у тя системная пищалка при ударении будет звук издовать. А чтобы казалось что шарик движется в цикле надо его сначало заданым цветом нарисовать, затем задержка Delay(1000) - 1 sec, а потом setcolor(0) и стираешь шарик (0-чёрный цвет). Ну вот вроде и всё. :yes:
Да и если всё равно не понятно или ти кодить не умеешь то скажи. Я тебе полностью сорц напишу и выложу.
Ну вот типо делать нечего было :p2: и я тут вроде как написал код (ну не удержался):
Здравствуйте, профессионалы и любители Паскаля. Подскажите, пожалуйста, как в графическом режиме в Паскале можно отображать русские буквы? Надеюсь на Ваше понимание и помощь?:p2:
Тебе нужны русифицированные CHR - шрифты.
Взять их можно, например, http://www.ishodniki.ru/base/Pascal/bgirfont.zip
Jahnerus Спасибо! все вроде запустилось.