Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Syndrom
0 / 0 / 0
Регистрация: 08.10.2012
Сообщений: 37
1

Вычислить площадь выпуклого четырехугольника

25.10.2012, 15:50. Просмотров 1407. Ответов 1
Метки нет (Все метки)

Написать 4 программы для вычисления площади выпуклого четырехугольника ABCD, заданного длинами сторон AB, BC, CD, DA и диагональю АС.Первые 2 решить с помощью function (с параметром и без него ) и с procedure (с параметром и без него). площадь высчитывается по формуле S:= sqrt(p*(p-a)*(p-b)*(p-c)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2012, 15:50
Ответы с готовыми решениями:

Вычислить площадь четырехугольника
Даны числа X,Y,Z,T - длины сторон четырехугольника. Вычислить его площадь, если...

Вычислить площадь четырехугольника, используя процедуру вычисления площади треугольника
Помогите решить задачи на процедуры в Turbo Pascal! Срочно нужно! Пожалуйста!...

Вычислить площадь четырехугольника, если угол между сторонами длинной x и y-прямой
Даны числа X,Y,Z,T длины сторон четырехугольника. вычислить его площадь если...

Написать программу вычисления площадки выпуклого четырехугольника ABCD
Написать программу вычисления площадки выпуклого четырехугольника ABCD,...

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

1
SladkayaVata
271 / 187 / 173
Регистрация: 06.06.2012
Сообщений: 322
25.10.2012, 23:57 2
Лучший ответ Сообщение было отмечено Syndrom как решение

Решение

функция с параметром
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var ab,bc,cd,ad,ac,p1,p2:integer;
s:real;
Function space1(p1,p2:integer):real;
begin
space1:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
s:=space1(p1,p2);
writeln('Площадь четырехугольника =', s);
end.
функция без параметра
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var ab,bc,cd,ad,ac:integer;
s:real;
Function space1:real;
var p1,p2:integer;
begin
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
space1:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
s:=space1;
writeln('Площадь четырехугольника =', s);
end.
Процедура без параметра
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var ab,bc,cd,ad,ac:integer;
s:real;
Procedure space1;
var p1,p2:integer;
begin
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
s:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
space1;
writeln('Площадь четырехугольника =', s);
end.
Процедура с параметром
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var ab,bc,cd,ad,ac,p1,p2:integer;
s:real;
Procedure space1(p1,p2:integer);
begin
s:=sqrt(p1*(p1-ab)*(p1-bc)*(p1-ac))+sqrt(p2*(p2-ad)*(p2-cd)*(p2-ac));
end;
begin
writeln('Введите длину стороны AB');
readln(ab);
writeln('Введите длину стороны BC');
readln(bc);
writeln('Введите длину стороны CD');
readln(cd);
writeln('Введите длину стороны AD');
readln(ad);
writeln('Введите длину стороны AC');
readln(ac);
P1:=(ab+bc+ac) div 2;
P2:=(ad+cd+ac) div 2;
space1(p1,p2);
writeln('Площадь четырехугольника =', s);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2012, 23:57

Вычислить площадь произвольного четырехугольника,если даны координаты его вершин.Написать программу с помощью ПРОЦЕДУР.
Заранее большое спасибо!

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

Найти площадь выпуклого многоугольника
на плоскости задан выпуклый многоугольник с координатами его вершин M1 (x1,...


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

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

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