Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2015, 08:57   #1
Виталий72
Новичок
Джуниор
 
Регистрация: 26.11.2015
Сообщений: 1
По умолчанию Даны 4 отрезка (Площадь треугольника по координатам сторон)

Даны 4 отрезка. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника. Использовать процедуру. В паскаль
Виталий72 вне форума Ответить с цитированием
Старый 26.11.2015, 09:37   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

в качестве идеи:
Код:
type
 Coord=array[1..3,1..2] of double;

procedure Tri(a:coord); 
begin
 writeln(
  'Площадь равна: '
 ,1.2*abs(
   (a[1,1]*(a[2,2]-a[3,2]))+
   (a[2,1]*(a[3,2]-a[1,2]))+
   (a[3,1]*(a[1,2]-a[2,2]))
  )
 );
end;

var c:Coord; i:integer;
begin
 for i:=1 to 3 do begin
   write('X ',i,'-го отрезка:'); Readln(c[i,1]);
   write('Y ',i,'-го отрезка:'); Readln(c[i,2]);
 end; Tri(c);
 readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача: Даны вершины треугольника A(3;-1;4), B(2;4;5), C(4;4;5). Найти его площадь oksi-xd Паскаль, Turbo Pascal, PascalABC.NET 4 14.11.2014 09:28
Даны декартовы координаты вершин треугольника (в плоскости). Разработать проект, вычисляющий площадь и периметр этого треугольника Яночка190 Общие вопросы Delphi 1 12.01.2013 12:49
процедуры и функции - возможно ли построение треугольника по длинам сторон, вычисление площади треугольника по длинам сторон kazbek1 Паскаль, Turbo Pascal, PascalABC.NET 2 18.05.2012 10:38
Найти площадь, периметр и угол треугольника по длинам трёх его сторон ( Delphi 7 ) CONDOR* Помощь студентам 1 15.05.2012 18:26
даны три числа. Если они могут быть длинами сторон треугольника, определите его вид и найдите высоты (Паскаль) charming Помощь студентам 8 26.09.2011 20:48