Площа чотирикутника. Допоможіть створити проект на Delphi

1 Тема від m_e_r_i_7 18.12.2012 18:25:12

m_e_r_i_7
Користувач
Поза форумом

Дата реєстрації: 18.12.2012
Повідомлень: 9

: 1

Тема: Площа чотирикутника. Допоможіть створити проект на Delphi

Створіть проект, у якому двома способами обчислюється площа опуклого
чотирикутника:
1) за відомими довжинами сторін АВ, ВС, CD, DA та довжиною діагоналі
АС. Використайте процедуру обчислення площі трикутника за форму-
лою Герона. Складіть обробник події OnClick першої кнопки, виконання
якого приведе до виведення розв’язку задачі у вікно повідомлення;
2) за відомими координатами вершин чотирикутника, поданими у порядку
обходу. Використайте функцію обчислення довжини відрізка за коорди-
натами його кінців. Складіть обробник події OnClick другої кнопки, ви-
конання якого приведе до виведення розв’язку задачі в окремий напис.

2 Відповідь від Пам'ять не може бути READ 18.12.2012 18:28:20

Пам'ять не може бути READ
Replace Team
Поза форумом

Дата реєстрації: 08.06.2012
Повідомлень: 2 031

Репутація

: 743

Re: Площа чотирикутника. Допоможіть створити проект на Delphi

m_e_r_i_7 написав:

Створіть проект, у якому двома способами обчислюється площа опуклого
чотирикутника:
1) за відомими довжинами сторін АВ, ВС, CD, DA та довжиною діагоналі
АС. Використайте процедуру обчислення площі трикутника за форму-
лою Герона. Складіть обробник події OnClick першої кнопки, виконання
якого приведе до виведення розв’язку задачі у вікно повідомлення;
2) за відомими координатами вершин чотирикутника, поданими у порядку
обходу. Використайте функцію обчислення довжини відрізка за коорди-
натами його кінців. Складіть обробник події OnClick другої кнопки, ви-
конання якого приведе до виведення розв’язку задачі в окремий напис.

Дайте мені формули за якими це все обчислюється і я зроблю Вам проектик.

Подякували: Replace1

3 Відповідь від m_e_r_i_7 18.12.2012 18:45:56

m_e_r_i_7
Користувач
Поза форумом

Дата реєстрації: 18.12.2012
Повідомлень: 9

Репутація

: 1

Re: Площа чотирикутника. Допоможіть створити проект на Delphi

1) S=sqrt(p*(p-a)*(p-b)*(p-c)); p=(a+b+c)/2; Потім площі двох трикутників додать

4 Відповідь від Replace 18.12.2012 18:47:40

Replace
Replace Team
Поза форумом

Звідки: Київ
Дата реєстрації: 06.04.2012
Повідомлень: 2 895

Репутація

: 2106

Re: Площа чотирикутника. Допоможіть створити проект на Delphi

1:
[code=pas]
p1 := (ab + bc + ac) / 2;
s1 := sqrt(p * (p - ab) * (p - bc) * (p - ac));
p1 := (cd + da + ac) / 2;
s1 := sqrt(p * (p - cd) * (p - da) * (p - ac));
[/code]

2.

ab := sqrt(sqr(ax - bx) + sqr(ay - by));
bc := sqrt(sqr(bx - cx) + sqr(by - cy));
cd := sqrt(sqr(cx - dx) + sqr(cy - dy));
da := sqrt(sqr(dx - ax) + sqr(dy - ay));
ac := sqrt(sqr(ax - cx) + sqr(ay - cy));
p1 := (ab + bc + ac) / 2;
s1 := sqrt(p * (p - ab) * (p - bc) * (p - ac));
p1 := (cd + da + ac) / 2;
s1 := sqrt(p * (p - cd) * (p - da) * (p - ac));

Подякували: m_e_r_i_7, DW3

Replace вебсайт