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

Из заданных отрезков построить треугольники и определить периметр и площадь каждого треугольника

10.01.2016, 14:42. Просмотров 844. Ответов 1
Метки нет (Все метки)

Даны длины отрезков a, b, c, d. Для каждой тройки этих отрезков, из которых можно построить треугольник, вычислить периметр и площадь этого треугольника.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2016, 14:42
Ответы с готовыми решениями:

Для каждой тройки отрезков, из которых можно построить треугольник, вычислить периметр и площадь треугольника
4. Даны длины отрезков a, b, c, d. Для каждой тройки этих отрезков, из которых...

Для каждой тройки этих отрезков, из которых можно построить треугольники, вычислить площадь данного треугольника"
Привет всем! Ребята помогите)) вот задача: "Даны отрезки A, B, C, D. Для...

Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно...

Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника
Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно...

Можно ли из отрезков с длинами a, b, c построить треугольник, и определить тип треугольника
Условный оператор. Выяснить, можно ли из отрезков с длинами a, b, c построить...

1
Xo6ut
101 / 88 / 75
Регистрация: 04.11.2011
Сообщений: 1,785
10.01.2016, 16:47 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
40
var a,b,c,d: real;
 
function Exist (x,y,z: real): boolean;
begin
Exist:=((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0);
end;
 
function Perimetr (x,y,z: real): real;
begin
Perimetr:=x+y+z;
end;
 
procedure Plo (s: string; x,y,z: real);
var sq: real;
begin
if ((y+z-x)>0) and ((x+z-y)>0) and ((x+y-z)>0) then
   begin
   sq:=0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-z)));
   writeln('Площадь треугольника со сторонами ',s,'=',sq:0:3);
   end else writeln('Треугольник со сторонами ',s,' не существует');
end;
 
begin
write('Длина отрезка a: '); readln(a);
write('Длина отрезка b: '); readln(b);
write('Длина отрезка c: '); readln(c);
write('Длина отрезка d: '); readln(d);
if Exist (a,b,c) then writeln('Периметр треугольника ABC=',Perimetr (a,b,c):0:2)
   else writeln('Треугольник со сторонами ABC не существует');
if Exist (a,b,d) then writeln('Периметр треугольника ABD=',Perimetr (a,b,d):0:2)
   else writeln('Треугольник со сторонами ABD не существует');
if Exist (a,c,d) then writeln('Периметр треугольника ACD=',Perimetr (a,c,d):0:2)
   else writeln('Треугольник со сторонами ACD не существует');
if Exist (b,c,d) then writeln('Периметр треугольника BCD=',Perimetr (b,c,d):0:2)
   else writeln('Треугольник со сторонами BCD не существует');
   Plo ('a,b,c',a,b,c);
Plo ('a,b,d',a,b,d);
Plo ('a,c,d',a,c,d);
Plo ('b,c,d',b,c,d);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2016, 16:47

Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный треугольник
Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить...

Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить прямоугольный треугольник.
Даны длины трех отрезков. Проверить, можно ли из заданных отрезков построить...

задачка про треугольники Герона, их площадь и периметр.
добрый день/вечер! у меня возникла проблема с задачей. Pascal. звучит она...


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

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

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