Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ вычисление площади треугольника по 3 вершинам по формуле Герона}
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
begin
     writeln('введите A(X1,Y1), B(X2,Y2) и C(X3,Y3)');
     readln( x1,y1,x2,y2,x3,y3 );
     c:=sqrt(sqr(y1-y2)+sqr(x1-x2));
     a:=sqrt(sqr(y2-y3)+sqr(x2-x3));
     b:=sqrt(sqr(y1-y3)+sqr(x1-x3));
     p:=(a+b+c)/2;
     s:=sqrt(p*(p-a)*(p-b)*(p-c));
     writeln('площадь треугольника = ',s);
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483