Question

Составьте программу для рисования рыбки в АВС паскаль​

Answer 1

Ответ:

uses graphabc;

begin

SetPenWidth(3);

MoveTo(100,50);

LineTo(150,200);

LineTo(100,400);

LineTo(200,200);

LineTo(200,150);

LineTo(100,50);

FloodFill(150,150, clGray);

MoveTo(200,150);

LineTo(300,100);

LineTo(350,50);

LineTo(500,100);

LineTo(550,150);

LineTo(550,200);

LineTo(500,250);

LineTo(350,300);

LineTo(300,250);

LineTo(200,200);

Line(300,100,500,100);

FloodFill(350,90, clGray);

Line(300,250,500,250);

FloodFill(350,290, clGray);

SetBrushColor(clGray);

Circle(500,150,10);

SetBrushColor(clBlack);

Circle(500,150,4);

Rectangle(550,150,557,200);

SetBrushStyle(bsDiagCross);

FloodFill(250,150, clGray)

end.

Объяснение:

картинка