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

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

07.10.2013, 12:50. Просмотров 270. Ответов 1
Метки нет (Все метки)

Два треугольника заданы длинами своих сторон . треугольник 1 (a1;b1;c1) треугольник 2 (a2;b2;c2). Вычислить площадь треугольников и исравнить их.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2013, 12:50
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить площадь треугольников и исравнить их. (Turbo Pascal):

Вычислить суммарную площадь треугольников
Два треугольника заданы длинами своих сторон: а1=2,1см, б1=1,9см, с1=2,8см...

Вычислить площади треугольников с помощью формулы Герона и определить, какой треугольник имеет большую площадь
Два треугольника заданы координатами своих вершин. Вычислить площади...

Вычислить площади двух треугольников, и определить, какой из треугольников имеет большую площадь
Два треугольника заданные координатами своих вершин a, b, c. Вычислить площади...

Вычислить площади треугольников по формуле Герона и определить, какой треугольник имеет большую площадь
Два треугольника заданы своими сторонами А, В, С. Вычислить площади...

Определить общую площадь треугольников
Помогите пожалуста....Составьте программу на Паскале. Даны длины сторон трех...

Подсчитать площадь N треугольников по заданным координатам
программа должна быть создана с помощью function Вот начало программы, как я...

1
AnDrOs96
22 / 22 / 7
Регистрация: 11.09.2013
Сообщений: 186
07.10.2013, 13:13 #2
program treygol;
var a1,b1,c1,a2,b2,c2,S1,S2,p1,p2:real;
begin
writeln('Введите стороны первого треугольника через пробел');
readln(a1,b1,c1);
p1:=(a1+b1+c1)/2;
S1:=Sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
writeln('Введите стороны второго треугольника через пробел');
readln(a2,b2,c2);
p2:=(a2+b2+c2)/2;
S2:=Sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
If S1>S2 then writeln('1 треугольник больше')
else writeln('2 треугольник больше');
Writeln(S1);//выдает 0 если такой треугольник не может существовать
Writeln(S2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2013, 13:13
Привет! Вот еще темы с решениями:

Определить какой из треугольников имеет большую площадь
Ребят помогите! Даны два треугольника ABC и DEF с координатами вершин...

Определить, какой из треугольников имеет большую площадь
Даны квадраты вершин двух треугольников. Определить какой из них имеет большую...

Определить, какой из треугольников имеет большую площадь
НУЖНА ПОМОЩЬ!!! Даны координаты вершин двух треугольников. Определить, какой...

Определить, у какого из двух треугольников площадь больше
Два прямоугольных треугольника заданы своими катетами. Определить, у кого из...


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

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

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