Предмет: Информатика,
автор: VikaRosa15
Известны координаты вершин A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.
Пример входных данных:
ха=2
ya=1
xb=6
xc=10
yc=1
Пример выходных данных:
S=16.0
Пожалуйста помогите)
Ответы
Автор ответа:
0
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Автор ответа:
0
спасибо
Автор ответа:
0
Программа во вложениях) Удачи ) Всё работает) (только я задал координаты всех точек, если нужно по-другому, то в лс)
Приложения:
Автор ответа:
0
спасибо
Похожие вопросы
Предмет: Математика,
автор: arina7645
Предмет: Русский язык,
автор: redkuse
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: История,
автор: SeregaSelesnev2014