Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC

@PozitiFF · Регистрация: 19.07.2010

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

Помогите пожалуйста написать программы с процедурой:

1) Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC. Используя процедуру определения гипотенузы по двум катетам. (< BAC и < BCD = 90 градусов).

2) Написать программу, определяющую отрезок наибольшей длинны, если заданы начала и концы отрезков. Написать процедуру, определяющую длину отрезка (входной параметр: координаты вершин начала и конца отрезка; выходной параметр: длина отрезка).

Заранее благодарен)

@Puporev · 22.07.2010, 07:07

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
procedure Gip(a,b:real; var c:real);
begin
c:=sqrt(a*a+b*b);
end;
var ab,ac,dc,x,y,p:real;
begin
clrscr;
writeln('Введите длины трех сторон фигуры:');
readln(ab,ac,dc);
Gip(ab,ac,x);
Gip(x,dc,y);
p:=ab+ac+y+dc;
write('Периметр фигуры=',p:0:2);
readln
end.

Добавлено через 54 секунды
2.

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
uses crt;
const nmax=20;
type otr=record
         x1,y1,x2,y2:real;
         end;
procedure Dlina(x1,y1,x2,y2:real; var d:real);
begin
d:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var a:array[1..nmax] of otr;
    n,i,imx:byte;
    d,mx:real;
begin
clrscr;
repeat
write('Количество отрезков до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите координаты начала и конца отрезков:');
mx:=0;imx:=0;
for i:=1 to n do
 begin
  writeln('Отрезок ',i);
  readln(a[i].x1,a[i].y1,a[i].x2,a[i].y2);
  Dlina(a[i].x1,a[i].y1,a[i].x2,a[i].y2,d);
  writeln('длина=',d:0:2);
  if d>mx then
   begin
    mx:=d;
    imx:=i;
   end;
 end;
write('Наибольшую длину имеет отрезок ',imx,' она=',mx:0:2);
readln
end.

@nFalcon · 22.07.2010, 11:04

Puporev,
Первое решение не правильно.
Первым действием вы находите сторону BC = Корень из(AB^2+AC^2) это да, но по описанному условию задачи ABCD - четырех угольник, причем если рисовать правильно по часовой стрелке, то AC - это линия соединяющая противоположные вершины и проходит она внутри фигуры.
Периметр = AB+BC+CD+AD
Вторым действием вы находите переменную "y"-которая совсем не является = AD (ни при каких условиях) - "y"-всего лишь отрезок соединяющий две противоположные вершины четырех угольника.

Чего-то по условию задачи не хватает, одними гипотенузами не обойтись

P.S. угол BAC - это прямой угол внутри фигуры (а не один из углов фигуры между ее сторонами)

@nFalcon · 22.07.2010, 11:14

Если фигура такая, например (см. вложение)

@nFalcon · 22.07.2010, 11:19

Угол ACD легко вычисляется он = углу ABC.
AC, CD, <ACD - известны, значит можно вычислить AD, но не по теореме Пифагора для прямоугольного треугольника

@Puporev · 22.07.2010, 11:31

Для особо одаренных

@nFalcon · 22.07.2010, 11:39

Puporev,
В этом случае фигура должна быть записана, как
ABDC
а не
ABCD
или в геометрии что-то поменялось??

Добавлено через 2 минуты
Поэтому по условию задачи Ваше решение не правильно!

Добавлено через 1 минуту
Хотя я больше поверю, что условие не верно записано автором темы...

@Puporev · 22.07.2010, 11:42

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

сторонам AB, AC и DC. Используя процедуру определения гипотенузы по двум катетам. (< BAC и < BCD = 90 градусов).

Исходя из этого дебильного условия, четырехугольник может быть только ABDC, иначе АС не сторона, а гипотенуза. Это не я такое условие придумал.

@nFalcon · 22.07.2010, 11:46

Я ж говорю, что с условием что-то не то

@Puporev · 22.07.2010, 11:47

Однако я изогнулся....

@PozitiFF · 22.07.2010, 14:42 **[ТС]**

Puporev, спасибо большое))

@Puporev · 22.07.2010, 14:54

PozitiFF, А с условием первой задачи нужно разобраться. Дело в том что 4-х угольник пишется ABCD, и стороны АС в нем быть не может.

@PozitiFF · 23.07.2010, 08:33 **[ТС]**

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

PozitiFF, А с условием первой задачи нужно разобраться. Дело в том что 4-х угольник пишется ABCD, и стороны АС в нем быть не может.

Дело в том, что условие мне такое дали)) я ничего не изменял, может опечатка какая...

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

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

	Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC 22.07.2010, 01:58. Показов 13465. Ответов 12 Метки нет (Все метки) Помогите пожалуйста написать программы с процедурой: 1) Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC. Используя процедуру определения гипотенузы по двум катетам. (< BAC и < BCD = 90 градусов). 2) Написать программу, определяющую отрезок наибольшей длинны, если заданы начала и концы отрезков. Написать процедуру, определяющую длину отрезка (входной параметр: координаты вершин начала и конца отрезка; выходной параметр: длина отрезка). Заранее благодарен) 0

@nFalcon 143 / 49 / 2 Регистрация: 04.06.2008 Сообщений: 126
	22.07.2010, 11:04
	Puporev, Первое решение не правильно. Первым действием вы находите сторону BC = Корень из(AB^2+AC^2) это да, но по описанному условию задачи ABCD - четырех угольник, причем если рисовать правильно по часовой стрелке, то AC - это линия соединяющая противоположные вершины и проходит она внутри фигуры. Периметр = AB+BC+CD+AD Вторым действием вы находите переменную "y"-которая совсем не является = AD (ни при каких условиях) - "y"-всего лишь отрезок соединяющий две противоположные вершины четырех угольника. Чего-то по условию задачи не хватает, одними гипотенузами не обойтись P.S. угол BAC - это прямой угол внутри фигуры (а не один из углов фигуры между ее сторонами) 1

@nFalcon 143 / 49 / 2 Регистрация: 04.06.2008 Сообщений: 126
	22.07.2010, 11:14
	Если фигура такая, например (см. вложение) Миниатюры 1

@nFalcon 143 / 49 / 2 Регистрация: 04.06.2008 Сообщений: 126
	22.07.2010, 11:19
	Угол ACD легко вычисляется он = углу ABC. AC, CD, <ACD - известны, значит можно вычислить AD, но не по теореме Пифагора для прямоугольного треугольника 1

@nFalcon 143 / 49 / 2 Регистрация: 04.06.2008 Сообщений: 126
	22.07.2010, 11:39
	Puporev, В этом случае фигура должна быть записана, как ABDC а не ABCD или в геометрии что-то поменялось?? Добавлено через 2 минуты Поэтому по условию задачи Ваше решение не правильно! Добавлено через 1 минуту Хотя я больше поверю, что условие не верно записано автором темы... 1

@nFalcon 143 / 49 / 2 Регистрация: 04.06.2008 Сообщений: 126
	22.07.2010, 11:46
	Я ж говорю, что с условием что-то не то 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.07.2010, 11:47
	Однако я изогнулся.... 1

@PozitiFF 0 / 0 / 0 Регистрация: 19.07.2010 Сообщений: 3
	22.07.2010, 14:42 [ТС]
	Puporev, спасибо большое)) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.07.2010, 14:54
	PozitiFF, А с условием первой задачи нужно разобраться. Дело в том что 4-х угольник пишется ABCD, и стороны АС в нем быть не может. 0