Построение электрических схем в С Builder - Контрольная работа

Например, команда: Image1->Canvas->LineTo(100,200); Рисует линию в точку с координатами (100,200), после чего текущей становится точка с координатами (100,200). Например, операторы: Image1->Canvas->MoveTo(10,10); Image1->Canvas->LineTo(50,10); Рисуют горизонтальную линию из точки (10,10) в точку (50,10). Инструкция вызова метода в общем виде выглядит так: Image1->Canvas->Arc(x1,y1,x2,y2,x3,y3,x4,y4); Параметры x1,y1,x2,y2 определяют эллипс, частью которого является дуга. Инструкция вызова метода TextOut в общем виде выглядит следующим образом: Image1->Canvas->TextOut(x,y,Текст) Параметр текст задает выводимый текст. Форма проекта Текст программы #include #pragma hdrstop #include Unit1.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource *.dfm TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) {TPoint p[3]; p[0].x=150;p[0].y=40; p[1].x=145;p[1].y=45; p[2].x=155;p[2].y=45; Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Polygon(p,2);//отображает многоульник Image1->Canvas->MoveTo(150,45); Image1->Canvas->LineTo(150,65); Image1->Canvas->Brush->Color=clWhite; Image1->Canvas->Rectangle(155,65,145,90);//отображает прямоугольник Image1->Canvas->MoveTo(150,90); Image1->Canvas->LineTo(150,105); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(147,105,153,111);//отображает точка Image1->Canvas->MoveTo(150,108); Image1->Canvas->LineTo(170,108); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(167,105,173,111); Image1->Canvas->MoveTo(170,108); Image1->Canvas->LineTo(210,108); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(207,105,213,111); Image1->Canvas->MoveTo(210,108); Image1->Canvas->LineTo(220,108); Image1->Canvas->Brush->Color=clWhite; Image1->Canvas->Rectangle(220,103,245,113); Image1->Canvas->MoveTo(245,108); Image1->Canvas->LineTo(265,108); Image1->Canvas->MoveTo(265,101); //конденсатор Image1->Canvas->LineTo(265,115); Image1->Canvas->MoveTo(268,101);//конденсатор Image1->Canvas->LineTo(268,115); Image1->Canvas->MoveTo(268,108); Image1->Canvas->LineTo(290,108); TPoint p1[3]; p1[0].x=295;p1[0].y=108; p1[1].x=290;p1[1].y=103; p1[2].x=290;p1[2].y=113; Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Polygon(p1,2); Image1->Canvas->MoveTo(210,108); Image1->Canvas->LineTo(210,125); Image1->Canvas->MoveTo(203,125);//конденсатор Image1->Canvas->LineTo(217,125); Image1->Canvas->MoveTo(203,128);//конденсатор Image1->Canvas->LineTo(217,128); Image1->Canvas->MoveTo(210,128); Image1->Canvas->LineTo(210,145); Image1->Canvas->MoveTo(210,145); Image1->Canvas->LineTo(170,145); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(167,143,173,149); Image1->Canvas->MoveTo(170,111); Image1->Canvas->LineTo(170,116); Image1->Canvas->Arc(162,116,178,124,170,124,170,116);// дуга Image1->Canvas->Arc(162,124,178,132,170,132,170,124);//дуга Image1->Canvas->Arc(162,132,178,140,170,140,170,132);//дуга Image1->Canvas->MoveTo(170,140); Image1->Canvas->LineTo(170,145); Image1->Canvas->MoveTo(147,108); Image1->Canvas->LineTo(140,108); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(137,105,143,111); Image1->Canvas->MoveTo(140,108); Image1->Canvas->LineTo(140,125); Image1->Canvas->MoveTo(137,108); Image1->Canvas->LineTo(120,108); Image1->Canvas->MoveTo(120,108); Image1->Canvas->LineTo(120,155); Image1->Canvas->Brush->Color=clWhite; Image1->Canvas->Rectangle(125,155,115,180); Image1->Canvas->MoveTo(120,180); Image1->Canvas->LineTo(120,190); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(117,187,123,193); Image1->Canvas->MoveTo(120,190); Image1->Canvas->LineTo(108,190); Image1->Canvas->MoveTo(105,183);//конденсатор Image1->Canvas->LineTo(105,197); Image1->Canvas->MoveTo(108,183);// конденсатор Image1->Canvas->LineTo(108,197); Image1->Canvas->MoveTo(105,190); Image1->Canvas->LineTo(94,190); Image1->Canvas->MoveTo(94,190); Image1->Canvas->LineTo(94,207); Image1->Canvas->Brush->Color=clBlack; Image1->Canvas->Ellipse(91,204,97,210); Image1->Canvas->MoveTo(94,210); Image1->Canvas->LineTo(94,231); Image1->Canvas->MoveTo(94,231); Image1->Canvas->LineTo(83,231); Image1->Canvas->Arc(72,213,88,221,80,221,