Дополнительные процедуры

[DRAgon™]

не пойму ,что значит эта процедура и что она рисует Arc (x,y :Integer; fi1,fi2,r :Word) и как вообще с нею рисовать?

[zumm]

Ну по названию можно предположить, что она рисует дугу. х и у координаты центра окружности, fi1 и fi2 углы отклонения краев от горизонтали, r радиус. вроде не чего сложного.

[DRAgon™]

Сообщение от zumm

Ну по названию можно предположить, что она рисует дугу. х и у координаты центра окружности, fi1 и fi2 углы отклонения краев от горизонтали, r радиус. вроде не чего сложного.

можешь что-нибудь на примере показать как она рисует дугу пожалуйста

[zumm]

program arca;
uses
  Graph;
var
  Driver,Mode: integer;
begin
  Driver:=Detect;
  InitGraph(Driver,Mode,'');
  Arc(100,100,0,90,50);
  CloseGraph;
end.

Ну где то так...

[_-Re@l-_]

Driver,Mode: integer;

Проще так

gd,gM: integer;

Хотя как по-моему так вообще без разницы как называть эти переменные

[DRAgon™]

ФэНкСсссссс

[_-Re@l-_]

ФэНкСсссссс

Мог бы тоже самое в отзыве написать....

[DRAgon™]

Сообщение от _-Re@l-_

Мог бы тоже самое в отзыве написать....

написалллл