Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
14.11.2009, 13:28   #1
Тёмкинс
Новичок
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь / Pascal (Паскаль)

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

понятия неимею как решать(....буду признателен если небросите меня в беде ,а поможете решить)))
14.11.2009, 13:28
AdAgent
Объявления
14.11.2009, 14:11   #2
Snoopy
Форумчанин
1907 / 1078 / 21
Регистрация: 06.12.2008
Сообщений: 2,810
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Цитата Сообщение от Тёмкинс Посмотреть сообщение
понятия неимею как решать
сначала находите одну сторону по теореме синусов, потом также находите вторую сторону, дальше площадь и периметр!
Все элементарно!!
Другие темы раздела
Pascal Шел n-й год(n нечетное число).Цифры моего возраста совпадают с двумя последними цифрами года моего рождения.По вводимому n определить наши годы рожден
Program test uses crt; var n,g,d,f:integer; begin clrscr; writeln('vvedite nineshniy god,nechetnii'); readln(n); g:=n mod 100; d:=g div 2; f:=n-d;
Pascal програмка
помогите пожал.на эту программу зделать больше графики вставок каких-либо какую нибуть финальную заставку uses crt, graph; const n=10; var a:array of integer; i,max,min,k:integer; dr, dm:integer; procedure graphika; begin initgraph(dr,dm,'');
14.11.2009, 14:16   #3
flambo
Форумчанин
24 / 24 / 0
Регистрация: 03.10.2009
Сообщений: 122
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Цитата Сообщение от Snoopy Посмотреть сообщение
(90 минус два угла которые даны-найдем третий угол)
180-(сумма двух известных углов)
14.11.2009, 14:19   #4
Puporev
Модератор
42130 / 30649 / 1767
Регистрация: 18.05.2008
Сообщений: 65,204
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Цитата Сообщение от flambo Посмотреть сообщение
180-(сумма двух известных углов)
Это конечно круто, но в школе учили что сумма трех углов треугольника=180 градусов.
14.11.2009, 14:22   #5
Snoopy
Форумчанин
1907 / 1078 / 21
Регистрация: 06.12.2008
Сообщений: 2,810
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Цитата Сообщение от flambo Посмотреть сообщение
180-(сумма двух известных углов)
молодец, только я уже давно сам исправил т.к сам увидел,что ошибся!
14.11.2009, 14:35  [ТС]   #6
Тёмкинс
Новичок
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

спасибо ) правда эт я знаю только незнаю как записать это в паскале))
14.11.2009, 14:38   #7
Puporev
Модератор
42130 / 30649 / 1767
Регистрация: 18.05.2008
Сообщений: 65,204
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Snoopy, Очки одень и посмотри кому я написал.
14.11.2009, 14:40   #8
flambo
Форумчанин
24 / 24 / 0
Регистрация: 03.10.2009
Сообщений: 122
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Цитата Сообщение от Puporev Посмотреть сообщение
Это конечно круто, но в школе учили что сумма трех углов треугольника=180 градусов.
не понял смысл вашей цитаты
14.11.2009, 15:16   #9
Puporev
Модератор
42130 / 30649 / 1767
Регистрация: 18.05.2008
Сообщений: 65,204
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь

Код 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 это (сумма двух известных углов)
15.11.2009, 12:19  [ТС]   #10
Тёмкинс
Новичок
0 / 0 / 0
Регистрация: 13.11.2009
Сообщений: 10
Вычислить для треугольника ABC все стороны, все углы, периметр и площадь / Pascal (Паскаль)

спасибо за помощь ))) теперь только осталось объяснить информатику как все это получилось)))ну всеравно спасибо)
15.11.2009, 12:19
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь
Народ умоляю как сделать задачи.Сам дуб дубом в паскале Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона AC и углы ACB, ABC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление...
Turbo Pascal Мелло 05.01.2013 13:33
Free Pascal Вычислить для треугольника ABC все стороны, все углы, периметр и площадь
Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона BC и углы BAC, ACB. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений...
Free Pascal loleikin 14.12.2012 17:54
Pascal ABC Вычислить для треугольника ABC все стороны, все углы (в градусной мере)
Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: сторона AC и углы ACB, ABC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений...
Pascal ABC Vampiriys 07.12.2012 18:17
Pascal Вычислить для треугольника ABC все стороны, все углы, периметр и площадь
1)Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов...
Pascal (Паскаль) Кристина_1 23.05.2011 18:02
Pascal Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь
добрый вечер. помогите, пожалуйста, решить 3 задания в паскале ABC. сдавать курсовую уже завтра, а с решениями все очень печально :( заранее спасибо! 1. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол ABC. 2....
Pascal (Паскаль) play_in_myself 17.05.2010 18:31
Опции темы

Текущее время: 10:17. Часовой пояс GMT +4.

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