Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
LaraKroft
0 / 0 / 0
Регистрация: 01.12.2013
Сообщений: 5
1

Вычисление длины и периметра по координатам

02.12.2013, 01:22. Просмотров 905. Ответов 1
Метки нет (Все метки)

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

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

Вычисление периметра и площади прямоугольника, через данные из файла
Помогите написать программу вычисления периметра и площади прямоугольника,...

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

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

Вычисление длины вектора
как выглядит формула вычисления вектора в pascal? program prog; uses ...

1
Puporev
Модератор
55401 / 42537 / 29390
Регистрация: 18.05.2008
Сообщений: 100,605
02.12.2013, 08:32 2
Лучший ответ Сообщение было отмечено LaraKroft как решение

Решение

Текст модуля
Pascal
1
2
3
4
5
6
7
8
9
unit modul;
interface
function D(x1,y1,x2,y2:real):real;
implementation
function D(x1,y1,x2,y2:real):real;
begin
D:=sqrt(sqr(x1-x2)+sqr(y1-y2))
end;
end.
Текст программы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt,modul;
var x1,y1,x2,y2,x3,y3,a,b,c:real;
begin
clrscr;
writeln('Ââåäèòå êîîðäèГ*Г*ГІГ» âåðøèГ* òðåóãîëüГ*ГЁГЄГ*');
readln(x1,y1,x2,y2,x3,y3);
a:=D(x1,y1,x2,y2);
b:=D(x2,y2,x3,y3);
c:=D(x1,y1,x3,y3);
writeln('a=',a:0:2);
writeln('b=',b:0:2);
writeln('c=',c:0:2);
write('P=',a+b+c:0:2);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2013, 08:32

Вычисление длины вектора в виде подпрограммы типа Function
Решить уравнение dx=c, где d-длина вектора a= {a1, a2, a3, a4} и c -длина...

Вычисление площади поверхности и длины экватора на основе известного радиуса планет
Напишите программу вычисления площади поверхности и длины экватора на основе...

Выбрать слово средней длины среди трёх слов разной длины
Создать программу ,которая выбирается из введенных трех разных слов длины на...


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

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

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