Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/26: Рейтинг темы: голосов - 26, средняя оценка - 4.92
PozitiFF
0 / 0 / 0
Регистрация: 19.07.2010
Сообщений: 3
#1

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

22.07.2010, 01:58. Просмотров 5127. Ответов 12
Метки нет (Все метки)

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

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

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

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

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2010, 01:58
Ответы с готовыми решениями:

Найти периметр четырехугольника ABCD, если известны координаты его вершин
Найти периметр четырехугольника АВСD, если известны координаты его ...

По заданным сторонам двух треугольников проверить их на равновеликость (равенство площадей)
Написать программу, которая по заданным сторонам двух треугольников проверяет...

По заданным трём сторонам определить, существует ли треугольник, и, если да, то какой
Даны три стороны треугольника, узнать существует ли он, и если да то...

Найти периметр фигуры ABCD по заданным сторонам
найти периметр фигуры ABCD по заданным сторонам ab,ac и dc и углам bac =bcd =90...

По сторонам треугольника найти площадь и периметр
По сторонам прямоугольного треугольника а,в,с найти площадь, затем периметр...

12
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
22.07.2010, 07:07 #2
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.
1
nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
22.07.2010, 11:04 #3
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 #4
Если фигура такая, например (см. вложение)
1
Миниатюры
Найти периметр фигуры ABCD по заданным сторонам AB, AC и DC  
nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
22.07.2010, 11:19 #5
Угол ACD легко вычисляется он = углу ABC.
AC, CD, <ACD - известны, значит можно вычислить AD, но не по теореме Пифагора для прямоугольного треугольника
1
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
22.07.2010, 11:31 #6
Для особо одаренных
1
Вложения
Тип файла: doc Doc2.doc (24.5 Кб, 103 просмотров)
nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
22.07.2010, 11:39 #7
Puporev,
В этом случае фигура должна быть записана, как
ABDC
а не
ABCD
или в геометрии что-то поменялось??

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

Добавлено через 1 минуту
Хотя я больше поверю, что условие не верно записано автором темы...
1
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
22.07.2010, 11:42 #8
Цитата Сообщение от PozitiFF Посмотреть сообщение
сторонам AB, AC и DC. Используя процедуру определения гипотенузы по двум катетам. (< BAC и < BCD = 90 градусов).
Исходя из этого дебильного условия, четырехугольник может быть только ABDC, иначе АС не сторона, а гипотенуза. Это не я такое условие придумал.
1
nFalcon
143 / 49 / 2
Регистрация: 04.06.2008
Сообщений: 126
22.07.2010, 11:46 #9
Я ж говорю, что с условием что-то не то
1
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
22.07.2010, 11:47 #10
Однако я изогнулся....
1
PozitiFF
0 / 0 / 0
Регистрация: 19.07.2010
Сообщений: 3
22.07.2010, 14:42  [ТС] #11
Puporev, спасибо большое))
0
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
22.07.2010, 14:54 #12
PozitiFF, А с условием первой задачи нужно разобраться. Дело в том что 4-х угольник пишется ABCD, и стороны АС в нем быть не может.
0
PozitiFF
0 / 0 / 0
Регистрация: 19.07.2010
Сообщений: 3
23.07.2010, 08:33  [ТС] #13
Цитата Сообщение от Puporev Посмотреть сообщение
PozitiFF, А с условием первой задачи нужно разобраться. Дело в том что 4-х угольник пишется ABCD, и стороны АС в нем быть не может.
Дело в том, что условие мне такое дали)) я ничего не изменял, может опечатка какая...
0
23.07.2010, 08:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.07.2010, 08:33

Найти площадь треугольника по заданным двум сторонам и углу между ними.
Предоставить возможность ввода угла в радианах или в градусах. Замечание:...

Найти периметр фигуры
Найти периметр фигуры АВСD по заданным сторонам AB,AC, и DC и углам...

По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагоналей
По данным сторонам прямоугольника вычислить его периметр (P), площадь (S) и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru