Нарисовать фигуру и вычислить ее площадь

@VKL · Регистрация: 14.01.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужно нарисовать такой вот рисунок:

@VKL · 14.01.2015, 21:24 **[ТС]**

Если говорить точнее, нарисовать рисунок и рассчитать его площадь. Спасибо! Размер окна 320х320 пикселей.

@Sergio Leone · 14.01.2015, 23:07

площадь легко подсчитать: от площади прямоугольника (6 клеточек умножить на 12 клеточек) нужно вычесть площадь полукруга (это 1/2 * Пи * 9 квадратиков )

@Puporev · 15.01.2015, 12:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses graphABC;
var i,c,d,x,y:integer;
    p:real;
    s:string;
begin
Window.Width:=320;
Window.Height:=320;
c:=160;
d:=20;
x:=c-9*d;
for i:=1 to 17 do
 begin
  if i=9 then 
   begin
    Pen.Width:=2;
    Pen.Style:=psDash
   end 
  else 
   begin
    Pen.Width:=1;
    Pen.Style:=psSolid;
   end; 
  line(x+i*d,c-5*d,x+i*d,c+5*d);
 end; 
y:=c-6*d;
for i:=1 to 11 do
 begin
  if i=6 then 
   begin
    Pen.Width:=2;
    Pen.Style:=psDash
   end
  else 
   begin
    Pen.Width:=1;
    Pen.Style:=psSolid;
   end; 
  line(c-9*d,y+i*d,c+9*d,y+i*d);
 end; 
Brush.Style:=bsClear;
Pen.Width:=3;
Rectangle(c-6*d,c-3*d,c+6*d,c+3*d);
Arc(c,c-3*d,3*d,180,360);
Pen.Color:=clWhite;
line(c-3*d+1,c-3*d,c+3*d-1,c-3*d);
Pen.Width:=2;
Pen.Color:=clBlack;
Pen.Style:=psDash;
line(c-3*d+1,c-3*d,c+3*d-1,c-3*d);
p:=6*12-pi*3*3;
str(p:0:2,s);
textout(c-100,c+6*d,'Площадь фигуры='+s+' квадрата');
end.

@VKL · 15.01.2015, 13:15 **[ТС]**

Спасибо огромное!!!!

@Sergio Leone · 15.01.2015, 13:41

Сообщение от Puporev

Pascal
1
p:=6*12-pi*3*3;

Неверно.

нужно половину площади круга вычитать:

Pascal
1
p:=6*12-0.5*pi*3*3;

@Puporev · 15.01.2015, 13:44

Сообщение от Sergio Leone

нужно половину площади круга вычитать:

Да, уж....

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@VKL 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 3

	Нарисовать фигуру и вычислить ее площадь 14.01.2015, 21:12. Показов 5163. Ответов 6 Метки нет (Все метки) Здравствуйте, нужно нарисовать такой вот рисунок: Изображения 0

@VKL 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 3
	14.01.2015, 21:24 [ТС]
	Если говорить точнее, нарисовать рисунок и рассчитать его площадь. Спасибо! Размер окна 320х320 пикселей. 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	14.01.2015, 23:07
	площадь легко подсчитать: от площади прямоугольника (6 клеточек умножить на 12 клеточек) нужно вычесть площадь полукруга (это 1/2 * Пи * 9 квадратиков ) 0

@VKL 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 3
	15.01.2015, 13:15 [ТС]
	Спасибо огромное!!!! 0