Вобщем есть задание нарисовать чебурашку.
В колледже мы используем БП, дома у меня стоит виста поэтому юзаю FPC
В учебники сказано что пистаь надо так.
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.
Спасибо большое
У меня пишет что модуль граф отсутствует? че за тема
В Options->Directories закладка Units прописан путь к папке \FPC\2.2.0\units\i386-Win32\graph ?
А, разобрался, спасибо
У меня проблема: линию рисуется разрывна(команда line) в Висте. Как это исправить, подскажите пожалуйста?
у меня тоже пишет что модуль граф отсутствует. но путь прописан В Options->Directories закладка Units \FPC\2.2.0\units\i386-Win32\graph че делать???
А у меня в граф. режиме не реагирует на нажатие клавиш.
{$ifdef Win32}
{$apptype GUI}
{$endif}
Uses
{$ifdef Win32}
Windows,
WinCrt,
{$else}
Crt,
{$endif}
Graph;
//... далее Ваша программа
Cделал, но появляется ошибка при выполнении №103
Program Dot ;
{$Ifdef Win32}
{$apptype GUI}
{$endif}
Uses
{$ifdef Win32}
Windows,
WinCrt,
{$else}
Crt;
{$endif}
Graph;
Var driver,mode:smallint;
begin
initgraph(driver,mode,'');
putpixel(100,100,White);
readln;
CloseGraph;
end.
Сам же запретил создание консольного окна (директивой {$APPTYPE GUI}), и сам же удивляешься, что при попытке чтения из консоли (ReadLn) вылетает ошибка? Так консоли-то нет!
Program Dot;
{$Ifdef Win32}
{$apptype GUI}
{$endif}
Uses
{$ifdef Win32}
Windows, WinCrt, WinGraph; // Под Windows - используем WinGraph, а не Graph
{$else}
Crt, Graph;
{$endif}
Var
driver, mode: smallint;
begin
initgraph(driver, mode, '');
putpixel(100, 100, White);
// Не будем читать из консоли, сделаем по-другому
repeat until readkey = #13;
CloseGraph;
end.