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

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.