|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.10.2008, 09:37 | #1 |
Пользователь
Регистрация: 22.09.2008
Сообщений: 27
|
SOS_Графика!
Господа, мне нужно решить следующее задание:
написать программу, которая выводит на экран изображение работающего светофора (смена цветов управляется пользователем). т.к. раньше я с паскалем не работал решил сделать небольшой набросок и вот что что у меня получилось: Program Graphic; uses graph, crt; var driver, mode, Err : integer; begin driver:=detect; InitGraph (driver, mode,'C:\Bp\Bgi'); Err:= GraphResult; if Err<>grOK then writeln ('Ошибка при инициализации графического режима') else begin SetColor (63); rectangle (125,125,175,265); setcolor (3); circle (150,150,20); readkey; circle (150,195,20); readkey; circle (150,240,20); end; readkey; CloseGraph; end. 1. После компеляции программы на домашней машине светофор почему то о_О зависал после появления первого круга. Я решил попробывать откомпелировать на рабочей машине, и на ней все прошло нормально. С чем связанна данная ситуация и как ее решить? 2. Если вас не затруднит сделайте набросок, как лутше реализовать смену цветов, ну или на словах подсабите. |
10.10.2008, 12:39 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
По первому вопросу трудно что-то сказать. Если дело не в компьютере, то попробуйте обновить Паскаль или модули.
По второму вопросу вот набросал, в принципе работает. Код:
|
10.10.2008, 13:16 | #3 |
Пользователь
Регистрация: 22.09.2008
Сообщений: 27
|
1. Я вот, как раз думаю на компьютер. Потому что ставил из одного дистребутива. Возможног глупо будет звучать , но требований по Паскалю есть какие небудь? ))
2. Спасибо за решение. |
10.10.2008, 14:01 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
1.Никаких.
|
11.10.2008, 17:00 | #5 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
1. После компеляции программы на домашней машине
Цитата:
Данная ситуация связана с тем, что Дос умер! "DOS is dead, baby. DOS is dead. :-) RIP! 2) для решения можете попробовать найти TP 7.1 (вроде там что-то было подправлено именно для быстрых (в то время быстрых ) машин... Либо, гарантированно!, поможет использование программы DosBox - это эмулятор ДОС |
|
11.10.2008, 17:38 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Если нет особой привычки к Турбо Паскаль, скачайте FreePascal, тоже самое, но сильно расширены возможности и нормально работает на современных машинах.
|