Компьютердегі тәжірибелік жұмыс

uses GraphABC;

SetWindowSize(500, 500); //задаем размер графического окна

Circle(225,160,50); //рисуем окружность

Line(225,160,225,180); //рисуем линии

Line( 210,190,240,190);

Line( 225,210,225,250);

Line( 100,100,200,260);

Line( 200,260,400,260);

Line( 210,350,200,480);

Line(240,350,250,480);

Rectangle(200,230,250,350); //рисуем прямоугольник

SetBrushColor(clLime);

FillRect(0, 480,500,500); //рисуем закрашенный прямоугольник

SetBrushColor(clWhite);

Circle(205,150,10);

Circle(245,150,10);

end.

Program Domik;

uses Graphabc; //подключение модуля GraphABC

SetWindowHeight(600); //высота окна программы

SetPenWidth(3); //толщина пера

SetFontSize(18); //размер шрифта

SetFontColor(clRed); //цвет шрифта

SetFontStyle(fsBold); //жирный стиль шрифта

TextOut(100,100,'Домик'); //текст

Rectangle(200, 300, 600,600); //дом

Circle(400,225, 40); //круг

SetBrushColor(clAqua); //цвет заливки окна

FillRect(300, 400,500,500); //процедура заливки окна

rectangle(300,400,500,500); //окно

Line(400,400,400,500); // окно

Line(300,450,500,450); //окно

Line(200,300,400,150); //крыша

Line(400,150,600,300); //крыша

Line(480,210,480,160); //труба

Line(480,160,520,160); //труба

Line(520,160,520,240); //труба

end.

var i: integer;

st:string;

begin

SetPenWidth(2); {Коричневая стена}

SetBrushColor(clBrown);

FillRect(100,50,150,100);

SetPenColor(clBrown); {Крыша желтого цвета}

Line(125,25,80,75);

Line(125,25,170,75);

FloodFill(125, 30,clYellow);

SetPenColor(clGreen); {Крона дерева}

SetBrushColor(clGreen);

Ellipse(100,150,150,200);

SetBrushColor(clBrown); {ствол дерева}