Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 26, средняя оценка - 4.81
Тёмкинс
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
#1

Вычислить для треугольника ABC все стороны, все углы, периметр и площадь - Pascal

14.11.2009, 13:28. Просмотров 3199. Ответов 9
Метки нет (Все метки)

Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона BC и углы BAC, ACB.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран.

понятия неимею как решать(....буду признателен если небросите меня в беде ,а поможете решить)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2009, 13:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычислить для треугольника ABC все стороны, все углы, периметр и площадь (Pascal):

Вычислить для треугольника ABC все стороны, все углы, периметр и площадь - Pascal
1)Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC. ...

Вычислить для треугольник все стороны,углы,периметр и площадь - Pascal
Ребята,помогите пожалуйста) Буквально спасайте ))) С геометрией огромнейший напряг был ещё в школе,а потом её совсем забыла и тут...

Вычислить периметр и площадь прямоугольного треугольника - Pascal
Добрый день, помогите пожалуйста с задачами, еще нужна блок схема к каждой, заранее спасибо.

вычислить площадь и периметр равнобедренного треугольника зная только его катеты - Pascal
задача очень лёгкая но у меня не получается))) я начинающий тока..... вычислить площадь (S) и периметр (P) равнобедренного треугольника...

Вычислить площадь прямоугольного треугольника по формуле Герона, если заданы его стороны - Pascal
Помогите пожалуйста решить задачку: Вычислить площадь прямоугольного треугольника по формуле Герона, если заданы его стороны.

Найти периметр и площадь треугольника - Pascal
Найти периметр и площадь треугольника в объектно ориентированном программировании

9
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
14.11.2009, 14:11 #2
Цитата Сообщение от Тёмкинс Посмотреть сообщение
понятия неимею как решать
сначала находите одну сторону по теореме синусов, потом также находите вторую сторону, дальше площадь и периметр!
Все элементарно!!
0
flambo
25 / 25 / 0
Регистрация: 03.10.2009
Сообщений: 122
14.11.2009, 14:16 #3
Цитата Сообщение от Snoopy Посмотреть сообщение
(90 минус два угла которые даны-найдем третий угол)
180-(сумма двух известных углов)
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
14.11.2009, 14:19 #4
Цитата Сообщение от flambo Посмотреть сообщение
180-(сумма двух известных углов)
Это конечно круто, но в школе учили что сумма трех углов треугольника=180 градусов.
0
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
14.11.2009, 14:22 #5
Цитата Сообщение от flambo Посмотреть сообщение
180-(сумма двух известных углов)
молодец, только я уже давно сам исправил т.к сам увидел,что ошибся!
0
Тёмкинс
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
14.11.2009, 14:35  [ТС] #6
спасибо ) правда эт я знаю только незнаю как записать это в паскале))
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
14.11.2009, 14:38 #7
Snoopy, Очки одень и посмотри кому я написал.
0
flambo
25 / 25 / 0
Регистрация: 03.10.2009
Сообщений: 122
14.11.2009, 14:40 #8
Цитата Сообщение от Puporev Посмотреть сообщение
Это конечно круто, но в школе учили что сумма трех углов треугольника=180 градусов.
не понял смысл вашей цитаты
0
Puporev
Модератор
52821 / 40632 / 13882
Регистрация: 18.05.2008
Сообщений: 94,241
14.11.2009, 15:16 #9
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
uses crt;
function Ugol(a,b:real):real;
begin
Ugol:=180-a-b;
end;
function Stor(a,ua,ub:real):real;
begin
ua:=ua*pi/180;//перевод угла в радианы
ub:=ub*pi/180;
Stor:=a*sin(ub)/sin(ua);//теорема синусов
end;
function Per(a,b,c:real):real;
begin
Per:=a+b+c;
end;
function Plosh(a,b,uc:real):real;
begin
uc:=uc*pi/180;
Plosh:=a*b*sin(uc)/2;//одна из теорем площади
end;
var a,b,c,ua,ub,uc,p,s:real;
begin
clrscr;
write('Введите длину стороны ВС b=');
readln(b);
repeat
writeln('Введите углы ВАС и АСВ:');
readln(ua,uc);
if ua+uc>=180 then writeln('Это не треугольник. Повторите ввод.');
until a+c<180;
ub:=Ugol(ua,uc);
a:=Stor(b,ub,ua);
c:=Stor(b,ub,uc);
p:=Per(a,b,c);
s:=Plosh(a,b,uc);
writeln('Стороны: AB=',c:0:2,'  AC=',b:0:2,'  BC=',a:0:2);
writeln('Углы:    BAC=',ua:0:0,#248,'  ABC=',ub:0:0,#248,'  ACB=',uc:0:0,#248);
write('Периметр=',p:0:2,'  Площадь=',s:0:2);
readln
end.
Добавлено через 1 минуту
flambo, Извини, принял минус за дефис и получилось 180 это (сумма двух известных углов)
0
Тёмкинс
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
15.11.2009, 12:19  [ТС] #10
спасибо за помощь ))) теперь только осталось объяснить информатику как все это получилось)))ну всеравно спасибо)
0
15.11.2009, 12:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2009, 12:19
Привет! Вот еще темы с ответами:

Найти площадь и периметр прямоугольного треугольника - Pascal
Всем доброго времени суток!! У меня такая проблема нужнно в Borland Pascal 7.0 решить задачку, я с паскалем вообще не дружу кто может...

Найти периметр и площадь прямоугольного треугольника - Pascal
Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.Решение есть, но я не уверена, что...

Найти периметр и площадь треугольника, заданного своими координатами - Pascal
Составить программу с помощью процедур Procedure Вершина треугольника a,b,c задана своими координатами. Найти периметр и площадь...

Задан периметр равностороннего треугольника Найти его площадь - Pascal
8. Задан периметр равностороннего треугольника. Найти его площадь.


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

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

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