Построить окружность, описанную вокруг квадрата и вычислить ее площадь

@Torres0910 · Регистрация: 21.11.2014

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

Даны два файла вещественных чисел. В файле x.dat хранятся координаты точек по оси Ox, в файле y.dat – координаты точек по оси Oy (не менее 10 компонентов). Во всех вариантах выводить на экран координатные оси, все данные точки и соответствующие надписи на осях
Пусть координаты первых двух точек являются координатами вершин квадрата. Построить окружность, описанную вокруг квадрата и вычислить ее площадь. Выделить цветом квадрат. Заштриховать то что принадлежит окружности и не принадлежит квадрату.

@Puporev · 26.11.2014, 20:19

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

являются координатами вершин квадрата.

Каких вершин, противолежащих?

@Torres0910 · 26.11.2014, 20:23 **[ТС]**

да, верно

@Puporev · 26.11.2014, 22:30

Вот примерно так. Доделывать уже лень.
Программа для создания файлов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var f,g:file of real;
    a:real;
    i:integer;
begin
randomize;
assign(f,'X.dat');
rewrite(f);
assign(g,'Y.dat');
rewrite(g);
for i:=1 to 15 do
 begin
  a:=-10+20*random;
  write(f,a);
  a:=-10+20*random;
  write(g,a);
 end;
close(f);
close(g);
write('Файлы координат созданы')
end.

Основная программа.

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
uses graphABC;
type point=record
           x,y:integer;
           end;
var f,g:file of real;
    x,y,x1,y1,x2,y2,x3,y3,x4,y4,xc,yc,r,s,m:real;
    i,x0,y0:integer;
    p:array[1..5] of point;
    st:string;
begin
assign(f,'X.dat');
reset(f);
assign(g,'Y.dat');
reset(g);
i:=0;
while not eof(f) do
 begin
  read(f,x);
  read(g,y);
  inc(i);
  if i=1 then
   begin
    x1:=x;
    y1:=y
   end
  else if i=2 then
   begin
    x2:=x;
    y2:=y
   end;
 end;
xc:=(x1+x2)/2;//центр квадрата и окружности
yc:=(y1+y2)/2;
r:=sqrt(sqr(xc-x1)+sqr(yc-y1));//радиус окружности
s:=pi*r*r;//площадь круга
x3:=(x1+x2)/2-(y2-y1)/2; //координаты двух других вершин
y3:=(y1+y2)/2+(x2-x1)/2;
x4:=(x1+x2)/2+(y2-y1)/2;
y4:=(y1+y2)/2-(x2-x1)/2;
setwindowsize(500,500);
x0:=windowwidth div 2;
y0:=x0;
m:=(x0-30)/10;
setpencolor(clRed);
setbrushcolor(clRed);
setbrushstyle(bsCross);
circle(x0+round(xc*m),y0-round(yc*m),round(r*m));
p[1].x:=x0+round(x1*m); p[1].y:=y0-round(y1*m);
p[2].x:=x0+round(x3*m); p[2].y:=y0-round(y3*m);
p[3].x:=x0+round(x2*m); p[3].y:=y0-round(y2*m);
p[4].x:=x0+round(x4*m); p[4].y:=y0-round(y4*m);
p[5]:=p[1];
setpencolor(clYellow);
setbrushcolor(clYellow);
setbrushstyle(bsSolid);
polygon(p,5);
setpencolor(clBlack);
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
setbrushstyle(bsClear);
for i:=1 to 10 do
 begin
  line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
  line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
  textout(x0-20,y0-round(i*m),inttostr(i));
  textout(x0-25,y0+round(i*m),inttostr(-i));
  line(x0+round(i*m),y0-3,x0+round(i*m),y0+3);
  line(x0-round(i*m),y0-3,x0-round(i*m),y0+3);
  textout(x0+round(i*m),y0+10,inttostr(i));
  textout(x0-round(i*m),y0+10,inttostr(-i));
 end;
textout(x0+5,y0+10,'0');
textout(windowwidth-15,y0-20,'X');
textout(x0+5,10, 'Y');
reset(f);
reset(g);
i:=0;
while not eof(f) do
 begin
  read(f,x);
  read(g,y);
  inc(i);
  if i in [1..2] then
   begin
    setpencolor(clBlue);
    setbrushcolor(clBlue);
    setbrushstyle(bsSolid);
    circle(x0+round(x*m),y0-round(y*m),3);
    setbrushstyle(bsClear);
    setfontcolor(clBlue);
    textout(x0+round(x*m)+5,y0-round(y*m)-5,inttostr(i));
   end
  else
   begin
    setpencolor(clBlack);
    setbrushcolor(clBlack);
    setbrushstyle(bsSolid);
    circle(x0+round(x*m),y0-round(y*m),2);
    setbrushstyle(bsClear);
    setfontcolor(clBlack);
    textout(x0+round(x*m)+5,y0-round(y*m)-5,inttostr(i));
   end;
 end;
close(f);
close(g);
str(s:0:2,st);
setfontsize(12);
textout(20,20,'Площадь круга='+st);
end.

Обе программы должны быть в одной папке.

@Torres0910 · 26.11.2014, 22:39 **[ТС]**

pas(46) : Неизвестное имя 'bsCross'
setbrushstyle(bsCross); в этой строке

@Puporev · 27.11.2014, 09:34

Раздел Паскаль АВС, код в нем и написан.А если Вы пользуетесь Паскаль АВС.net, так и тему нужно было создавать в том разделе.
Вот тоже в net, чуть переделал еще.

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
uses graphABC;
var f,g:file of real;
    x,y,x1,y1,x2,y2,x3,y3,x4,y4,xc,yc,r,s,m:real;
    i,x0,y0:integer;
    p:array of point;
    st:string;
begin
//читаем файлы 1 раз, делаем необходимые вычисления
assign(f,'X.dat');
reset(f);
assign(g,'Y.dat');
reset(g);
i:=0;
while not eof(f) do
 begin
  read(f,x);
  read(g,y);
  inc(i);
  if i=1 then
   begin
    x1:=x;
    y1:=y
   end
  else if i=2 then
   begin
    x2:=x;
    y2:=y
   end;
 end;
xc:=(x1+x2)/2;//центр квадрата и окружности
yc:=(y1+y2)/2;
r:=sqrt(sqr(xc-x1)+sqr(yc-y1));//радиус окружности
s:=pi*r*r;//площадь круга
x3:=(x1+x2)/2-(y2-y1)/2; //координаты двух других вершин
y3:=(y1+y2)/2+(x2-x1)/2;
x4:=(x1+x2)/2+(y2-y1)/2;
y4:=(y1+y2)/2-(x2-x1)/2;
//устанавливаем размер окна, определяем координаты центра и масштаб
Window.SetSize(600,600);
CenterWindow;
x0:=Window.Width div 2;
y0:=x0;
m:=(x0-10)/20;
//рисуем круг
Pen.Color:=clRed;
Brush.Style:=bsHatch;//штриховой стиль кисти
Brush.Hatch:=bhCross;//вид штриховки
Brush.Color:=clRed;//ее цвет
Circle(x0+round(xc*m),y0-round(yc*m),round(r*m));
//рисуем полигон квадрат
Setlength(p,5);
p[0].x:=x0+round(x1*m); p[0].y:=y0-round(y1*m);
p[1].x:=x0+round(x3*m); p[1].y:=y0-round(y3*m);
p[2].x:=x0+round(x2*m); p[2].y:=y0-round(y2*m);
p[3].x:=x0+round(x4*m); p[3].y:=y0-round(y4*m);
p[4]:=p[0];
Pen.Color:=clYellow;
Brush.Style:=bsSolid;
Brush.Color:=clYellow;
Polygon(p);
//рисуем оси координат
Pen.Color:=clBlack;
Line(0,y0,windowwidth,y0);
Line(x0,0,x0,windowheight);
Brush.Style:=bsClear;
for i:=1 to 20 do
 begin
  Line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
  Line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));
  Line(x0+round(i*m),y0-3,x0+round(i*m),y0+3);
  Line(x0-round(i*m),y0-3,x0-round(i*m),y0+3);
  if i mod 2=0 then
   begin
    TextOut(x0-20,y0-round(i*m),inttostr(i));
    TextOut(x0-25,y0+round(i*m),inttostr(-i));
    TextOut(x0+round(i*m),y0+10,inttostr(i));
    TextOut(x0-round(i*m),y0+10,inttostr(-i));
   end; 
 end;
TextOut(x0+5,y0+10,'0');
TextOut(windowwidth-15,y0-20,'X');
TextOut(x0+5,10, 'Y');
//открываем файлы 2 раз, наносим точки
reset(f);
reset(g);
i:=0;
while not eof(f) do
 begin
  read(f,x);
  read(g,y);
  inc(i);
  if i in [1..2] then//1 и 2
   begin
    Pen.Color:=clBlue;
    Brush.Color:=clBlue;
    Brush.Style:=bsSolid;
    Circle(x0+round(x*m),y0-round(y*m),5);
    Brush.Style:=bsClear;
    Font.Color:=clBlue;
    Font.Size:=12;
    Font.Style:=fsBold;
    TextOut(x0+round(x*m)+5,y0-round(y*m)-5,inttostr(i));
   end
  else//остальные
   begin
    Pen.Color:=clBlack;
    Brush.Color:=clBlack;
    Brush.Style:=bsSolid;
    Circle(x0+round(x*m),y0-round(y*m),3);
    Brush.Style:=bsClear;
    Font.Color:=clBlack;
    Font.Size:=10;
    Font.Style:=fsNormal;
    TextOut(x0+round(x*m)+5,y0-round(y*m)-5,inttostr(i));
   end;
 end;
close(f);
close(g);
//выводим площадь круга
str(s:0:2,st);
Font.Size:=12;
Font.Color:=clRed;
Font.Style:=fsBold;
TextOut(20,20,'Площадь круга='+st);
end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Torres0910 0 / 0 / 0 Регистрация: 21.11.2014 Сообщений: 9

	Построить окружность, описанную вокруг квадрата и вычислить ее площадь 26.11.2014, 20:09. Показов 2355. Ответов 5 Метки нет (Все метки) Даны два файла вещественных чисел. В файле x.dat хранятся координаты точек по оси Ox, в файле y.dat – координаты точек по оси Oy (не менее 10 компонентов). Во всех вариантах выводить на экран координатные оси, все данные точки и соответствующие надписи на осях Пусть координаты первых двух точек являются координатами вершин квадрата. Построить окружность, описанную вокруг квадрата и вычислить ее площадь. Выделить цветом квадрат. Заштриховать то что принадлежит окружности и не принадлежит квадрату. 0

@Torres0910 0 / 0 / 0 Регистрация: 21.11.2014 Сообщений: 9
	26.11.2014, 20:23 [ТС]
	да, верно 0

@Torres0910 0 / 0 / 0 Регистрация: 21.11.2014 Сообщений: 9
	26.11.2014, 22:39 [ТС]
	pas(46) : Неизвестное имя 'bsCross' setbrushstyle(bsCross); в этой строке 0

Построить окружность, описанную вокруг квадрата и вычислить ее площадь

Решение