Сабақ жоспары Б ір негізді қанықпаған қышқылдар.

Program treugolnik;

uses GraphABC;

begin

setpenwidth(20);

setpencolor(clred);

line(300,100,500,300);

moveTo(500,300);

lineto(100,300);

moveTo(100,300);

lineto(300,100);

floodfill(300,200,clgreen);

end.

Program pryamougolnik;

uses GraphABC;

begin

SetPenColor(clred);

SetPenWidth(20);

Rectangle(50,50,200,200);

FloodFill(100,100,clBlue);

end.

</ uses GraphABC;

begin

Circle(500,200,100);

FloodFill(500,200,clred);

end.

Program oval;

uses GraphABC;

Begin

Ellipse(50,50,200,350);

FloodFill(50+100,50+100,clred);

Ellipse(250,150,550,300);

FloodFill(250+100,150+100,clBlue);

end.