Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
alexcrow
1 / 1 / 1
Регистрация: 05.07.2012
Сообщений: 29
#1

Пусть дано n произвольных четырехугольников. Найти четырехугольник с максимальной площадью - Turbo Pascal

08.07.2012, 20:42. Просмотров 679. Ответов 1
Метки нет (Все метки)

Пусть дано n произвольных четырехугольников, заданных координатами своих вершин. Найдите четырехугольник с максимальной площадью. Напишите функцию для нахождения площади четырехугольника.
http://www.cyberforum.ru/pascal/thread139398.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.07.2012, 20:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Пусть дано n произвольных четырехугольников. Найти четырехугольник с максимальной площадью (Turbo Pascal):

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

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

Пусть дано натуральное число n
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые...

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

пусть дано 100 действительных чисел...
пусть дано 100 вещественных чисел которые вводятся по одному. найдите...

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,290
09.07.2012, 08:25 #2
Лучший ответ Сообщение было отмечено alexcrow как решение

Решение

Формула
http://www.mathopenref.com/coordpolygonarea.html
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
45
46
47
48
49
50
51
uses crt;
type poly=array[1..5,1..2] of real;
const nmax=20;
function Plsh(p:poly):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to 4 do
s:=s+(p[i,1]*p[i+1,2]-p[i,2]*p[i+1,1]);
s:=abs(s)/2;
Plsh:=s;
end;
 
var a:array[1..nmax] of poly;
    n,i,j,k,imx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество четырехугольников до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  for j:=1 to 4 do
  for k:=1 to 2 do
  a[i][j,k]:=-9+18*random;
  a[i][5,1]:=a[i][1,1];
  a[i][5,2]:=a[i][1,2];
 end;
writeln('Координаты четырехугольников:');
for i:=1 to n do
 begin
  write(i:2);
  for j:=1 to 4 do
  write(' (',a[i][j,1]:6:2,';',a[i][j,2]:6:2,')');
  writeln('   S=',Plsh(a[i]):0:2);
 end;
mx:=Plsh(a[1]);
imx:=1;
for i:=1 to n do
if Plsh(a[i])>mx then
 begin
  mx:=Plsh(a[i]);
  imx:=i;
 end;
writeln('Максимальную площадь имеет 4х-угольник номер ',imx,' S=',mx:0:2);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2012, 08:25
Привет! Вот еще темы с решениями:

Задача: Пусть дано натуральное число n...
Пусть дано натуральное число n и вещественные числа а1, а2,..., аn, которые...

Четырехугольник задан координатами своих вершин составить программу которая определяет какой это четырехугольник
Помогите пожалуйста

Пусть дано натуральное число n и целочисленная квадратная матрица
Пусть дано натуральное число n и целочисленная квадратная матрица порядка n....

Пусть дано натуральное число, уберите из этого числа цифры 3 и 7
пусть дано натуральное число n уберите из этого числа цифры 3 и 7тоставив...


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

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

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