Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
Fedor1606
0 / 0 / 0
Регистрация: 16.10.2012
Сообщений: 43
1

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

21.10.2012, 12:21. Просмотров 2292. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

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

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
21.10.2012, 12:54 2
Лучший ответ Сообщение было отмечено Fedor1606 как решение

Решение

программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses triangl;
var
  x1,y1,x2,y2,x3,y3: real;
  a,b,c: real;
begin
  writeln('Введите координаты точек');
  readln(x1,y1,x2,y2,x3,y3);
  a:=dlina(x2,y2,x1,y1);
  b:=dlina(x2,y2,x3,y3);
  c:=dlina(x3,y3,x1,y1);
  centr(x2,y2,x1,y1);
  centr(x2,y2,x3,y3);
  centr(x3,y3,x1,y1);
  perim(a,b,c);
  plosh(a,b,c);
  readln;
end.
модуль
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
unit triangl;
 
interface
 
function dlina(x1,y1,x2,y2: real): real;
procedure centr(x1,y1,x2,y2: real);
procedure perim(a,b,c: real);
procedure plosh(a,b,c: real);
 
implementation
 
function dlina(x1,y1,x2,y2: real): real;
var a: real;
begin
  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('a= ',a:0:2);
  dlina:=a;
end;
 
procedure centr(x1,y1,x2,y2: real);
begin
  writeln('Координаты центра стороны = [',(x2+x1)/2:0:2,',',(y2+y1)/2:0:2,']');
end;
 
procedure perim(a,b,c: real);
begin
  writeln('Периметр треугольника = ',a+b+c:0:2);
end;
 
procedure plosh(a,b,c: real);
var p: real;
begin
  p:=(a+b+c)/2;
  writeln('Площадь треугольника = ',sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
end;
end.
Добавлено через 1 минуту
не забудьте модуль и программу сохранить в одном месте (в одной папке), у модуля должно быть свое имя (в нашем случае triangl.pas)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.10.2012, 12:54

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

Даны длины сторон треугольника. Определите, является ли данный треугольник разносторонним
Даны длины сторон треугольника. Определите, является ли данный треугольник...

Даны длины сторон треугольника. Определите, является ли данный треугольник равносторонним
Даны длины сторон треугольника. Определите, является ли данный треугольник...


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

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

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