a008888 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору uses     Crt,Graph,Iso; var     GraphDriver: Integer;     GraphMode: Integer;     ErrorCode: Integer;     Ato4kax, Bto4kax: to4kax; begin     GraphDriver := Detect;     DetectGraph(GraphDriver, GraphMode);     InitGraph(GraphDriver,GraphMode,'');     if GraphResult<>GrOk then Halt(1);     Ato4kax.Init(100,100,10);     Bto4kax.Init(200,200,12);     Ato4kax.Show;     Bto4kax.Show;     readln;     CloseGraph; end.   Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 06:52 05-10-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование