IPB

> Ellipse.PAS
Чат
Форум
КАК ОБМАНЫВАЮТ ГОСУДАРСТВО И С ЧЕМ Я БОРЮСЬ?
АПК и ПО 26.20: https://t.me/apkpo2620 Чат Ассоциации: https://t.me/dg2620_bot В видео причины создания Ассоциации производителй компьютпров и периферийного оборудования 26.20 ====================== Реклама: imaxai@vk.com ====================== 🔗 Boos ...
Открылась выставка «ИННОПРОМ. Центральная Азия» 2025
ИНЭУМ им. И.С. Брука участвует в международной промышленной выставке «ИННОПРОМ. Центральная Азия» Выставка проходит 28-30 апреля 2025 в г. Ташкент, Республика Узбекистан. Источник: Новости МЦСТ и ИНЭУМ ...
 

Язык:
Русский
English


 { Пример программы для процедуры Ellipse }

uses Graph;

var
  Gd, Gm : Integer;

begin
  Gd := Detect;
  InitGraph(Gd, Gm, 'X:\BP'); { Путь к BGI драйверам }
 if GraphResult <> grOk then
   Halt(1);
  Ellipse(100, 100, 0, 360, 30, 50);
  Ellipse(100, 100, 0, 180, 50, 30);
 ReadLn;
  CloseGraph;
end.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



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