Question

Можете написать по командам как в pascal нарисовать окружность(круг) закрашенный!!! срочно пожалуйста!!!!!!!!!!!!!!!

Answer 1

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC; // графическая библиотека
begin
  Pen.Color:=clBlue; // выбрать перо синего цвета
  Pen.Width:=3; // толщина пера 3 пикселя
  DrawCircle(100,120,50); // окружность c центром (100,120) и R=50
  Brush.Color:=clPink; // кисть розового цвета
  FillCircle(100,120,50) // закрасить окружность
end.

Answer 2

Drawing a Filled Circle in Pascal

To draw a filled circle in Pascal, you can use the following code:

program DrawFilledCircle;
uses Graph;

var
  gd, gm: smallint;
  x, y, radius: integer;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

x := 200; // x-coordinate of the center
  y := 200; // y-coordinate of the center
  radius := 100; // radius of the circle

SetColor(15); // set color to white
  SetFillStyle(1, 15); // set fill style to solid fill with white color
  FillCircle(x, y, radius); // draw a filled circle

ReadLn;
  CloseGraph;
end.

In this code: - We use the `Graph` unit for graphics operations. - We initialize the graphics mode using `InitGraph`. - Define the center coordinates (`x` and `y`) and the radius of the circle. - Set the color and fill style using `SetColor` and `SetFillStyle`. - Finally, we draw a filled circle using `FillCircle`.

This code will draw a filled circle with a white color in the graphics window.

I hope this helps! Let me know if you have further questions or issues.