код на Python:
import math
x1 = int(input("Введи координату x 1 точки "))
y1 = int(input("Введи координату y 1 точки "))
x2 = int(input("Введи координату x 2 точки "))
y2 = int(input("Введи координату y 2 точки "))
x3 = int(input("Введи координату x 3 точки "))
y3 = int(input("Введи координату y 3 точки "))
a = math.sqrt( pow(x2 - x1, 2) + pow(y2 - y1, 2) )
b = math.sqrt( pow(x3 - x2, 2) + pow(y3 - y2, 2) )
c = math.sqrt( pow(x3 - x1, 2) + pow(y3 - y1, 2) )
p = (a + b + c) / 2
S = math.sqrt( p*(p - a)*(p - b)*(p - c) )
print(S)
Объяснение:
x1,x2,x3,y1,y2,y3 - это координаты точек
a,b,c - вычисление длин между координатами
S - вычисление площади по формуле Герона
Поделитесь своими знаниями, ответьте на вопрос:
ОЧЕНЬ УМОЛЯЮ , Что пропущено в ряду: "Символ - .. - строка - фрагмент текста"? * слово предложение абзац страница Петя набирал текст на компьютере. Внезапно все буквы, которые он набирал, стали вводиться заглавными. Что произошло? * компьютер сломался компьютер завис (залагал) Случайно нажал клавишу CapsLock Случайно нажал клавишу Shift Случайно нажал клавишу NumLock Почему программу автоматического перевода можно использовать для перевода технического текста и нельзя использовать для перевода художественной литературы? Внимание! Вариантов ответа несколько! * Технический текст написан "сухим" языком, без использования эмоциональных оборотов Художественная литература написана с использованием большого количества эмоциональных оборотов Программы автоматического перевода текста делают много ошибок Работа программ автоматического перевода основана на формальном представлении о языке Работа программ автоматического перевода не основана на формальном представлении о языке Обязательный во Внимание! Вариантов ответа несколько!Программа LibreOffice Writer, которую мы используем в классе, предназначена для... * распознавания текста редактирования текстовых документов формирования навыков работы с клавиатурой перевода текста с одного языка на другой создания текстовых документов Обязательный во
Программа на PascalABC
Program 29844007;
uses
GraphABC;
var
XL1,YL1,XR1,YR1:integer; ///координаты первого прямоугольника
XL2,YL2,XR2,YR2:integer; ///координаты второго прямоугольника
XL0,YL0,XR0,YR0:integer; ///координаты результата
s:string; ///строка для вывода результатов;
begin
Window.SetSize(700,700);
writeln('Первый прямоугольник: ');
writeln('Введите X левого нижнего угла ');read(XL1);
writeln('Введите Y левого нижнего угла ');read(YL1);
writeln('Введите X правого верхнего угла ');read(XR1);
writeln('Введите Y правого верхнего угла ');read(YR1);
writeln('Второй прямоугольник: ');
writeln('Введите X левого нижнего угла ');read(XL2);
writeln('Введите Y левого нижнего угла ');read(YL2);
writeln('Введите X правого верхнего угла ');read(XR2);
writeln('Введите Y правого верхнего угла ');read(YR2);
if XL1<XL2 then XL0:=XL1 else XL0:=XL2;
if YL1<YL2 then YL0:=YL1 else YL0:=YL2;
if XR1<XR2 then XR0:=XR2 else XR0:=XR1;
if YR1<YR2 then YR0:=YR2 else YR0:=YR1;
/// Выводим сначала результирующий прямоугольник синим цветом
Brush.Color := clBlue;
Rectangle(XL0,700-YL0,XR0,700-YR0);
/// Рисуем первый прямоугольник красным цветом
Brush.Color := clRed;
Rectangle(XL1,700-YL1,XR1,700-YR1);
/// Выводим второй прямоугольник зелёным
Brush.Color := clGreen;
Rectangle(XL2,700-YL2,XR2,700-YR2);
/// Выводим кординаты
Brush.Color := clWhite;
s:='Координаты левого нижнего угла: '+ IntToStr(XL0)+' '+IntToStr(YL0);
TextOut(0,0,s);
s:='Координаты правого верхнего угла: '+ IntToStr(XR0)+' '+IntToStr(YR0);
TextOut(0,20,s);
end.
Пример вывода на прикреплённом рисунке.