Дан 4-х угольник С координатами вершин своих сторон

@depp- · Регистрация: 23.04.2009

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

Дан 4-х угольник с координатами(на плоскости) вершин своих сторон.проверить является ли он квадратом? помогите плиз с зачетом

@Jazon_deenAlt · 02.06.2009, 15:53

ф-лу на определение длинны зная координаты начала и конца в студию

@depp- · 02.06.2009, 16:00 **[ТС]**

мы их сами задаем в программу напиши плиз как это всё сделать?

@Jazon_deenAlt · 02.06.2009, 16:07

например есть стороны(1,2,3,4) находиш их, если противоположные стороны ровны(1=3,2=4) и корень квадрвтный с суммы квадратов прелигающих сторон равен отрезку с координатами необщих точек прелигающих сторон то ето квадрат...

@depp- · 02.06.2009, 16:12 **[ТС]**

А программа как будет выглядеть?сор,но в паскале плохо разбираюсь...

@Jazon_deenAlt · 02.06.2009, 18:55

Будет офигительно выглядеть... Чесно) Я же просил написать формулу определения длинны зная координаты начала и конца? просил... Ну и где она? Я что должен все за вас делать? Вы хоть чуть-чуть напрячца можете??? Поисковиком попользоватса для разнообразия? проще всего сказать "простите, я не компетентен..." от етого вашы знания не прибавятса... Так праведный гнев прошел, теперь код...

вот он

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program koord;
uses crt;
var
xa,ya,xb,yb,xc,yc,xd,yd:integer;
begin
writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
writeln;
readln(xa);
readln(ya);
readln(xb);
readln(yb);
readln(xc);
readln(yc);
readln(xd);
readln(yd);
if (xa-xb=xd-xc) and (ya-yb=yd-yc) and (xa-xd=xb-xc) and (ya-yd=yb-yc) and (xa-xc=xd-xb) and (ya-yc=yb-yd) then begin
writeln('da eto taki kvadrat');
end
else
writeln('net eto ne kvadrat');
readln;
end.

@kentaw · 02.06.2009, 19:27

это параллелограмм,
вот квадрат

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//если у 4-х угольника диагонали равны, тогда этот 4-х угольник называется квадратом
program koord;
uses crt;
var
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
  clrscr;
  writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
  writeln;
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  if sqrt(sqr(x4-x2)+sqr(y4-y2))=sqrt(sqr(x3-x1)+sqr(y3-y1)) then
  writeln('da eto taki kvadrat')
  else
  writeln('net eto ne kvadrat');
  readln
end.

@Puporev · 02.06.2009, 19:38

Круто конечно, но откуда Вы знаете, что именно точки 1 и 3, и 2 и 4 образуют диагонали?

//если у 4-х угольника диагонали равны, тогда этот 4-х угольник называется квадратом

А у прямоугольника диагонали что ли не равны?
А у равнобедренной трапеции?

Добавлено через 5 минут 8 секунд
Нужно найти длины 6 линий, и если 4 которые короче равны + 2 которые длинне тоже равны это квадрат. Можно и проще сделать, поищите в инете.

Добавлено через 49 секунд
Проще, это если знаете следствия теоремы косинусов.

@kentaw · 02.06.2009, 19:40

если в матеметике нет условие задача, тогда она не решимая
(не знаю смог ли сказат или нет....)
если что, именно точки 1 и 3, и 2 и 4 образуют диагонали, тогда
здесь надо посмотрит задачу комбинаторики, т.е размешений по m элементов в кажлом, составленных из данных n элементов

@Puporev · 02.06.2009, 19:42

здесь надо посмотрит задачу комбинаторики,

А задачи из области астрономии не надо посмотреть?

@kentaw · 02.06.2009, 19:50

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

Нужно найти длины 6 линий, и если 4 которые короче равны + 2 которые длинне тоже равны это квадрат. Можно и проще сделать, поищите в инете.

да...это правда, подожди шас сделаю......

Добавлено через 7 минут 25 секунд
наконец этот код безусловно определяет квадрату

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
program koord;
uses crt;
var
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
  clrscr;
  writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
  writeln;
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  if (sqrt(sqr(x4-x2)+sqr(y4-y2))=sqrt(sqr(x3-x1)+sqr(y3-y1)))
   and (sqrt(sqr(x2-x1)+sqr(y2-y1))=sqrt(sqr(x3-x2)+sqr(y3-y2)))
   and (sqrt(sqr(x4-x3)+sqr(y4-y3))=sqrt(sqr(x4-x1)+sqr(y4-y1))) then
  writeln('da eto taki kvadrat')
  else
  writeln('net eto ne kvadrat');
  readln
end.

@Puporev · 02.06.2009, 20:21

Вот предлагаю извращенский способ решения, ни разу не встречал.

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
uses crt;
const t=0.000001;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var p:array[1..2,1..4] of real;{массив точек}
    d:array[1..6] of real;{массив длин сторон и диагоналей}
    i,j,k:byte;
    x:real;
begin
clrscr;
writeln('Vvedite koordinaty 1 tochki:');
readln(p[1,1],p[2,1]);
writeln('Vvedite koordinaty 2 tochki:');
readln(p[1,2],p[2,2]);
writeln('Vvedite koordinaty 3 tochki:');
readln(p[1,3],p[2,3]);
writeln('Vvedite koordinaty 4 tochki:');
readln(p[1,4],p[2,4]);
k:=0;
for i:=1 to 3 do
for j:=i+1 to 4 do
 begin
  k:=k+1;
  d[k]:=Dlina(p[1,i],p[2,i],p[1,j],p[2,j]);{делаем массив длин}
 end;
for i:=1 to 5 do
for j:=i+1 to 6 do
if d[i]>d[j] then{сортируем по возрастанию}
 begin
  x:=d[i];
  d[i]:=d[j];
  d[j]:=x;
 end;
{длины сторон и диагоналей}
for i:=1 to 6 do
write(d[i]:5:2);
writeln;
if (abs(d[1]-d[2])<t)and(abs(d[2]-d[3])<t)and(abs(d[3]-d[4])<t)
and(abs(d[5]-d[6])<t)
then write('Yes!') else write('No!');
readln
end.

@kentaw · 02.06.2009, 20:30

Браво!
но, это очень сложный способ для начинаюшего и даже его преподователя. Ето +, преподавател не разбирая будет поставить 5
-ни разу не встречал-ЧТО ЗНАЧИТ ЭТО?

@Puporev · 02.06.2009, 20:35

ни разу не встречал-ЧТО ЗНАЧИТ ЭТО?

Ну, я же что-то читаю, смотрю. Но такой способ не встречал, сел, придумал и написал.

@kentaw · 02.06.2009, 20:41

вы помогаете многому. В частности, экзаменационные сессие в ввузах

Новые блоги и статьи Все статьи Все блоги /
Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .

@depp- 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 8

	Дан 4-х угольник С координатами вершин своих сторон 02.06.2009, 15:49. Показов 2888. Ответов 14 Метки нет (Все метки) Дан 4-х угольник с координатами(на плоскости) вершин своих сторон.проверить является ли он квадратом? помогите плиз с зачетом 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	02.06.2009, 15:53
	ф-лу на определение длинны зная координаты начала и конца в студию 0

@depp- 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 8
	02.06.2009, 16:00 [ТС]
	мы их сами задаем в программу напиши плиз как это всё сделать? 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	02.06.2009, 16:07
	например есть стороны(1,2,3,4) находиш их, если противоположные стороны ровны(1=3,2=4) и корень квадрвтный с суммы квадратов прелигающих сторон равен отрезку с координатами необщих точек прелигающих сторон то ето квадрат... 0

@depp- 0 / 0 / 0 Регистрация: 23.04.2009 Сообщений: 8
	02.06.2009, 16:12 [ТС]
	А программа как будет выглядеть?сор,но в паскале плохо разбираюсь... 0

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	02.06.2009, 19:40
	если в матеметике нет условие задача, тогда она не решимая (не знаю смог ли сказат или нет....) если что, именно точки 1 и 3, и 2 и 4 образуют диагонали, тогда здесь надо посмотрит задачу комбинаторики, т.е размешений по m элементов в кажлом, составленных из данных n элементов 0

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	02.06.2009, 20:30
	Браво! но, это очень сложный способ для начинаюшего и даже его преподователя. Ето +, преподавател не разбирая будет поставить 5 -ни разу не встречал-ЧТО ЗНАЧИТ ЭТО? 0

@kentaw 421 / 130 / 33 Регистрация: 24.02.2009 Сообщений: 1,122
	02.06.2009, 20:41
	вы помогаете многому. В частности, экзаменационные сессие в ввузах 0