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

Найти длины всех сторон треугольника

20.06.2011, 12:58. Просмотров 859. Ответов 2
Метки нет (Все метки)

Даны координаты трёх вершин треугольника. С помощью функции, найти длины всех его сторон
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2011, 12:58
Ответы с готовыми решениями:

Найти длины всех сторон треугольника
1.Даны координаты трех вершин тре-ка.Найти длины всех сторон. 2. Дано...

Процедуры и функции: по координатам вершин треугольника найти длины всех его сторон
Даны координаты трёх вершин треугольника. Найти длины всех его сторон. 1) как...

Заданы длины сторон треугольника. Найти длины высот и медиан
Заданы длины сторон треугольника. Найти длины высот и медиан.

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

Даны длины a,b и с сторон некоторого треугольника. Найти медианы треугольника, сторонами которого являются медианы исходного треугольника
Как сделать с процедурой

2
lamed
297 / 297 / 150
Регистрация: 07.05.2011
Сообщений: 592
20.06.2011, 13:15 #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
{ Даны координаты трёх вершин треугольника. С помощью функции, найти длины всех его сторон }
type
  TPoint = record
    x,y: real;
  end;
var
  a,b,c:TPoint;
  ab,ac,bc: real;
function dist(p1,p2: TPoint): real;
begin
  dist := sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y));
end;
 
begin
  writeln('Координаты точек ');
  write('a->');
  readln(a.x, a.y);
 
  write('b->');
  readln(b.x, b.y);
  
  write('c->');
  readln(c.x, c.y);
  
  ab := dist(a,b);
  ac := dist(a,c);
  bc := dist(b,c);
  
  writeln('ab=', ab:0:3, ' ac=', ac:0:3, ' bc=',bc:0:3);
  readln;
end.
0
Просто лис
Путешественник вселенной
187 / 154 / 119
Регистрация: 01.03.2011
Сообщений: 664
20.06.2011, 13:15 #3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var x1,x2,x3,y1,y2,y3:shortint;
Function dlin(x,y,x1,y1:shortint):real;
begin
dlin:=sqrt(sqr(x1-x)+sqr(y1-y));
end;
begin
Writeln('Vvedite koordinati treh tochek');
readln(x1,y1,x1,y2,x3,y3);
Writeln('Dlina 1 storoni = ',dlin(x1,y1,x2,y2):1:2);
Writeln('Dlina 2 storoni = ',dlin(x2,y2,x3,y3):1:2);
Writeln('Dlina 3 storoni = ',dlin(x1,y1,x3,y3):1:2);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.06.2011, 13:15

Найти периметр треугольника, взяв длины его сторон из текстового файла
Пропустила лекцию,теперь не могу разобраться Есть текстовый файл, пусть будет...

Даны координаты вершин треугольника.Написать модуль,позволяющий вычислять длины сторон,находить середины сторон,площадь,периметр
Даны координаты вершин треугольника.Написать модуль,позволяющий вычислять длины...

Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника
Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника.


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

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

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