Рисование графиков Draw Интерфейс процедур Draw \GraphABC.pas procedure Draw(f: Func<real,real>; a,b: real; x1,y1,x2,y2: integer); procedure Draw ( f : Func < real , real > ; a , b : real ; x1 , y1 , x2 , y2 : integer ) Реализация процедур Draw \GraphABC.pas procedure Draw(f: Func<real,real>; a,b: real; x1,y1,x2,y2: integer); procedure Draw ( f : Func < real , real > ; a , b : real ; x1 , y1 , x2 , y2 : integer ) implementation модуля \GraphABC.pas implementation IOGraphABCSystem \GraphABC.pas IOGraphABCSystem = class(IOStandardSystem) IOGraphABCSystem = class ( IOStandardSystem ) procedure LoadWindow с исправлениями Абрамяна \GraphABC.pas procedure LoadWindow(fname: string); procedure LoadWindow ( fname : string ) Раздел переменных \GraphABC.pas MainThread: Thread; MainThread : Thread Draw для рисунка \GraphABC.pas procedure Draw(fname: string; x,y: integer); procedure Draw ( fname : string ; x , y : integer ) Draw для рисунка - реаплизация \GraphABC.pas procedure Draw(fname: string; x,y: integer); procedure Draw ( fname : string ; x , y : integer ) Реализация графических примитивов \GraphABC.pas procedure SetPixel(x,y: integer; c: Color); procedure SetPixel ( x , y : integer ; c : Color ) MoveTo - extension method for Rectangle \GraphABC.pas procedure System.Drawing.Rectangle.MoveTo(x,y: integer); procedure System . Drawing . Rectangle . MoveTo ( x , y : integer ) IOGraphABCSystem \GraphABC.pas IOGraphABCSystem = class(IOStandardSystem) IOGraphABCSystem = class ( IOStandardSystem ) type constructor Create procedure write ( obj : object ) override procedure writeln override function read_symbol : char override function peek : integer override