Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 02.03.2015
Сообщений: 13
1

Найти меньшую диагональ параллелограмма

19.03.2015, 14:01. Показов 1557. Ответов 3
Метки нет (Все метки)

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

Добавлено через 30 секунд
пожалуста решите только полностю
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2015, 14:01
Ответы с готовыми решениями:

Подпрограммы: найти меньшую из диагоналей параллелограмма по координатам его вершин
Найти меньшую из диагоналей параллелограмма ABCD, если известно координаты его вершин. Выполнить...

Найти меньшую из диагоналей параллелограмма ABCD, если известно координаты его вершин. Выполнить проверку, является ли д
Найти меньшую из диагоналей параллелограмма ABCD, если известно координаты его вершин. Выполнить...

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

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

3
3182 / 1755 / 471
Регистрация: 28.02.2015
Сообщений: 3,569
19.03.2015, 18:31 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
36
37
38
39
type
  tPoint=record
    x,y:integer;
    end;
var
  a,b,c,d:tPoint;
  lA,lB,lC,lD,lE,lF:real;
{процедура ввода координат}
procedure ReadPoint(var a:tPoint;b:char);
  begin
    write('Enter ',b,'.x:=');
    readln(a.x);
    write('Enter ',b,'.y:=');
    readln(a.y);
  end;
{процедура вычисления растояний между точками}
function Range(a,b:tPoint):real;
  begin
    Range:=sqr(abs(a.x-b.x))+sqr(abs(a.y-b.y));
  end;
begin
{вводим координаты}
  ReadPoint(a,'A');
  ReadPoint(b,'B');
  ReadPoint(c,'C');
  ReadPoint(d,'D');
{считаем растояния между точками}
  lA:=Range(a,b);
  lB:=Range(b,c);
  lC:=Range(c,d);
  lD:=Range(a,d);
  lE:=Range(a,c);
  lF:=Range(b,d);
{проверяем достаточные условия параллелограмма}
  if((lE+lF)=(lA+lB+lC+lD))and(lA=lC)and(lB=lD)
    then if lE>lF then writeln('Result BD:=',sqrt(lF))
                  else writeln('Result AC:=',sqrt(lE))
    else writeln('wrong parallelogram');
end.
0
Вирусоборец
7618 / 5087 / 845
Регистрация: 06.09.2009
Сообщений: 20,178
20.03.2015, 23:56 3
Цитата Сообщение от Constantin Cat Посмотреть сообщение
Range:=sqr(abs(a.x-b.x))+sqr(abs(a.y-b.y));
А зачем до возведения в квадрат еще модуль разности искать?
0
3182 / 1755 / 471
Регистрация: 28.02.2015
Сообщений: 3,569
22.03.2015, 10:22 4
thyrex
Цитата Сообщение от thyrex Посмотреть сообщение
А зачем до возведения в квадрат еще модуль разности искать
Так для подстраховки, один из компиляторов, которые есть у меня, на sqr(-х) ругался.
Я же не знаю какая IDE стоит у спрашивающего.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2015, 10:22

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

Как найти диагональ параллелограмма?
как найти диагональ параллелограмма?

Диагональ параллелограмма как разность векторов его сторон
доказать, что если на векторах а и в построить параллелограмм,то одна из его диагоналей есть вектор...

Найти расстояние от точки на перпендикуляре к плоскости параллелограмма до стороны этого параллелограмма
в параллелограмме АВСД угол А равен 45 и АД равно 6 корней из 2. Отрезок АК перпендикулярен...

Найти меньшую из оставшихся сторон
Периметр четырехугольника равен 18см, одна из его сторон равна 3см, а другая - 4см. Найдите меньшую...


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

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

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