Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 24
1

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

07.04.2014, 20:57. Просмотров 608. Ответов 1
Метки нет (Все метки)


треугольник задан коордиатами своих вершин составить программу для вычисления его площади
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
37
38
39
Program х;
uses crt;
var xa,ya,xb,yb,xc,yc: integer;
    x,y,z,sq: real;
 
procedure Dlina(x1,y1,x2,y2: integer; var d:real);
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
end;
 
function Exist (a,b,c: real): boolean;
begin
Exist:=((b+c-a)>0) and ((a+c-b)>0) and ((a+b-c)>0);
end;
 
procedure Square (a,b,c: real; var s: real);
begin
s:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
end;
 
begin
writeln ('Введите координаты 1 вершины треугольника');
readln (xa);
readln (ya);
writeln ('Введите координаты 2 вершины треугольника');
readln (xb);
readln (yb);
writeln ('Введите координаты 3 вершины треугольника');
readln (xc);
readln(yc);
Dlina(xa,ya,xb,yb,x);
Dlina(xb,yb,xc,yc,y);
Dlina(xc,yc,xa,ya,z);
if Exist (x,y,z) then
   begin
   Square (x,y,z,sq);
   writeln('Площадь треугольника=',sq:0:2)
   end else writeln('Вычисление площади треугольника невозможно');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2014, 20:57
Ответы с готовыми решениями:

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

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

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

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Преобразуйте из Procedure в Function program pr11; var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;...

__________________
Помогаю в написании студенческих работ здесь.
1
Модератор
63211 / 46972 / 32373
Регистрация: 18.05.2008
Сообщений: 113,850
08.04.2014, 10:11 2
Pascal
1
2
readln
end.
Добавлено через 1 минуту
Цитата Сообщение от sisaw Посмотреть сообщение
Program х;
Название программы не обязательно, но уж если пишете, то не называйте ее именами переменных и служебных слов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2014, 10:11

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

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

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Буду благодарен

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

Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
Треугольник задан координатами своих вершин. Составить программу для вычисления его площади на Делфи

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

Треугольник задан координатами своих вершин. Составить программу вычисления его площади. Почему-то считает неправильно
Задачу нужно решить с помощью функций.Почему-то все время вместо площади выбивает 0. #include...


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

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

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