IPB
ЛогинПароль:

> Графика в FPC 2.2.0
mr.voland
сообщение 27.11.2007 20:17
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Вобщем есть задание нарисовать чебурашку.
В колледже мы используем БП, дома у меня стоит виста поэтому юзаю FPC
В учебники сказано что пистаь надо так.
Цитата

programm test;
uses Graph;
var driver, mode: integer;
Begin
driver:=detect;
initgraph (driver, mode, 'C:\TP\BGI');
Ellipse (200,250,0,359,10,20); (это овал)
closegraph;
end.

папки C:\TP\BGI у меня естественно нет я не чего умне как взять папку из БП скопировал папку в фрипаскаль не придумал.
Но не работает (чесно говоря я и не удивлен)
собственно и вопрос что делать?.
Заранее благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 27.11.2007 23:20
Сообщение #2


Гость






Цитата
собственно и вопрос что делать?
Исправлять, разумеется...
uses graph;
var
driver, mode: smallint; { <--- InitGraph работает не с integer-ами, а со SmallInt }
Begin
// driver:=detect; { это делать в FPC необязательно }
initgraph (driver, mode, ''); { <--- Путь тоже можно не указывать }
Ellipse (200,250,0,359,10,20);
readln; { <--- ждешь нажатия на Enter }
closegraph;
end.
Все работает...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 3:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"