Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
4 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 36
1

По сторонам треугольника найти площадь и периметр

14.01.2012, 20:44. Просмотров 951. Ответов 2
Метки нет (Все метки)

По сторонам прямоугольного треугольника а,в,с найти площадь, затем периметр (если это возможно)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2012, 20:44
Ответы с готовыми решениями:

Найти площадь треугольника по заданным двум сторонам и углу между ними.
Предоставить возможность ввода угла в радианах или в градусах. Замечание: функция sin, встроенная в...

Найти периметр и площадь треугольника
Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и...

Найти периметр и площадь треугольника
Задача такова: Треугольник задан координатами своих вершин.Найти периметр и площадь треугольника....

Найти периметр и площадь треугольника
Всем собратьям доброй ночи!К сожалению не очень дружу с Паскалем,но именно на этом языке требуется...

2
Почетный модератор
7950 / 3921 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
14.01.2012, 20:57 2
Лучший ответ Сообщение было отмечено DJ Дина как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b,c,s,p: real;
 
begin
writeln ('Укажите стороны треугольника a,b,c=');
readln (a,b,c);
if ((b+c-a)<=0) or ((a+c-b)<=0) or ((a+b-c)<=0)
   then writeln('Вычисление площади невозможно') else
        begin
        s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
        writeln ('Площадь  треугольника = ',s:7:2);
        p:=a+b+c;
        writeln ('Периметр треугольника = ',p:7:2);
        end;
readkey
end.
1
любитель покушать
684 / 636 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
14.01.2012, 21:02 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,c,p,d,s: real;
begin
writeln('Vvedite storony treygolnika');
readln(a);
readln(b);
readln(c);
if (a+b<c) or (b+c<a) or (a+c<b) then begin
writeln('takoy treygolnik ne sushestvuet');
end
else begin
p:=a+b+c;
d:=p/2;
s:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln('Perimetr treygolnika - ',p,', ploshad - ',s);
end;
end.
Опоздал немножко)
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2012, 21:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти периметр и площадь треугольника
Уважаемые программисты, помогите пожалуйста не могу задачку написать для Турбо Паскаля:...

Найти периметр и площадь прямоугольного треугольника
Ребят, помогите пожалуйста найти ПЕРИМЕТР и Площадь прямоугольного треугольника , если с клавиатуры...

Найти периметр и площадь треугольника. Записи
Задана запись, которая имеет три поля: первое - первая сторона треугольника, второе - вторая...

Найти площадь круга и периметр треугольника
Задана одна из геометрических фигур: прямоугольник, треугольник или круг. Фигуры задаются разными...


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

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

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