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

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

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

Даны координаты вершин треугольника.Написать модуль,позволяющий вычислять длины сторон,находить середины сторон,площадь,периметр
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2012, 12:21
Ответы с готовыми решениями:

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

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

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

По длинам сторон треугольника определить периметр, площадь, углы, медианы, высоты.
По данным значениями длин сторон треугольника a, b, c вычислить его а) периметр; б) площадь; в)...

1
3449 / 2387 / 2135
Регистрация: 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.10.2012, 12:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

Найти третью сторону, периметр и площадь треугольника по длинам двух сторон и углу между ними
1)математическая модель. 2)алгоритм решения. 3)программа решения. Треугольник задан длинами...

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

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


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

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

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