ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / найти периметр треугольника!
11 сообщений из 11, страница 1 из 1
найти периметр треугольника!
    #34889897
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
Привет!
Найти периметр треугольника, заданного координатами своих вершин, определив функцию для расчета длины отрезка по координатам его вершин.
Program Pr;
var p, x,y,z:real;
function p(x1,y1,z1):real;
дальше, у меня не получилось!
подскажите!
заранее спасибо!
...
Рейтинг: 0 / 0
24.10.2007, 09:29:43
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #34889981
SindoMeon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SindoMeon
Участник
Периметр фигуры = сумма длин его сторон
Периметр треугольника = сума длин всех трёх сторон

Длина стороны треугольника:
авторфункцию для расчета длины отрезка по координатам его вершин

длина отрезка по координатам:
Код: plaintext
1.
sqrt((x2-x1)^ 2  + (y2-y1)^ 2  + (z2-z1)^ 2 )
...
Рейтинг: 0 / 0
24.10.2007, 10:03:57
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #34891803
ErV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ErV
Участник
Bella_8686 wrote:

> Привет!
> Найти периметр треугольника, заданного координатами своих вершин,
> определив функцию для расчета длины отрезка по координатам его вершин.
Периметр == сумма длин сторон.
А как находится длина отрезка по его координатам, описано в любом
учебнике по геометрии.
--
We are all going to hell and I'm driving the bus
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
24.10.2007, 15:59:07
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #34895187
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
Bella_8686Program Pr;
var p, x,y,z:real;
function p(x1,y1,z1):real;
дальше, у меня не получилось!
Хм.

1. Правильно ли я понял, что x - это координата первой вершины, y - второй, z - третьей?
2. Сможете объяснить концептуальное различие между переменной p и функцией p?
...
Рейтинг: 0 / 0
25.10.2007, 17:28:05
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #34895320
Dayroon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dayroon
Участник
softwarer
Хм.

1. Правильно ли я понял, что x - это координата первой вершины, y - второй, z - третьей?
2. Сможете объяснить концептуальное различие между переменной p и функцией p?

1. Проекция треугольника на прямую? 8))
...
Рейтинг: 0 / 0
25.10.2007, 17:57:22
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
найти периметр треугольника!
    #36350745
Salam)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Salam)
Гость
program trey;
var x1,x2,x3,y1,y2,y3,s1;
function aud(a1,b1,a2,b2:real):real;
var a,b,c,p:real;
begin
a:=sqrt(sqr(a2-a1)+sqr(b2-b1));
b:=sqrt(sqr(a3-a2)+sqr(b3-b2));
c:=sqrt(sqr(a3-a1)+sqr(b3-b1));
p:=(a+b+c)*2; writeln('p=',p:4:2);
aud:=sqr(p*(p-a)*(p-b)*(p-c));
end;
begin
writeln('x1,y1,x2,y2,x3,y3-?');
read(x1,x2,y1,y2,x3,y3);
s1:=aud(x1,y1,x2,y2,x3,y3);
writeln('s1=',s1);
end.
...
Рейтинг: 0 / 0
06.12.2009, 16:18:40
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #36350887
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
Код: plaintext
1.
2.
3.
/*где x[N], y[N] - координаты соответствующей N-ой вершины*/
sum   = sqrt( (abs(x[ 2 ]-x[ 1 ]))^ 2  + (abs(y[ 2 ]-y[ 1 ]))^ 2  )
sum += sqrt( (abs(x[ 3 ]-x[ 2 ]))^ 2  + (abs(y[ 3 ]-y[ 2 ]))^ 2  )
sum += sqrt( (abs(x[ 1 ]-x[ 3 ]))^ 2  + (abs(y[ 1 ]-y[ 3 ]))^ 2  )
...
Рейтинг: 0 / 0
06.12.2009, 19:43:05
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #36350892
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
AIS
Код: plaintext
(abs(x[ 2 ]-x[ 1 ]))^ 2
жесть
...
Рейтинг: 0 / 0
06.12.2009, 19:47:52
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #36351500
ALKIR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ALKIR
Участник
eNoseAIS
Код: plaintext
(abs(x[ 2 ]-x[ 1 ]))^ 2
жесть

+1
...
Рейтинг: 0 / 0
07.12.2009, 11:39:20
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #36351583
eee-pc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eee-pc
Участник
eNoseAIS
Код: plaintext
(abs(x[ 2 ]-x[ 1 ]))^ 2
жесть
...
Рейтинг: 0 / 0
07.12.2009, 12:00:09
| Ответить | Цитировать | Написать  
найти периметр треугольника!
    #36352245
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
eee-pc , eNose , ALKIR
согласен - лишнее.

но "кашу маслом не испортишь", главное чтобы результат был правильный.
Код: plaintext
1.
2.
3.
/*где x[N], y[N] - координаты соответствующей N-ой вершины*/
sum   = sqrt( (x[ 2 ]-x[ 1 ])^ 2  + (y[ 2 ]-y[ 1 ])^ 2  )
sum += sqrt( (x[ 3 ]-x[ 2 ])^ 2  + (y[ 3 ]-y[ 2 ])^ 2  )
sum += sqrt( (x[ 1 ]-x[ 3 ])^ 2  + (y[ 1 ]-y[ 3 ])^ 2  )
...
Рейтинг: 0 / 0
07.12.2009, 15:34:47
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / найти периметр треугольника!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=36352245&tid=1344042]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 223ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 218ms
total:  560ms
созд. / загр.: 560ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]