Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program lab_5;
- var
- x1,y1,x2,y2,x3,y3,s:real;
- //функция
- function proizvedenie(var a,b,c,d:real):real;
- begin
- proizvedenie:=(a-b)*(c-d);
- end;
- //программа
- Begin
- writeln('Введите значения координат вершин треугольника: ');
- writeln('x1,y1');
- read(x1,y1);
- writeln('x2,y2');
- read(x2,y2);
- writeln('x3,y3');
- read(x3,y3);
- s:=0.5* abs(proizvedenie(x1,x3,y2,y3)-proizvedenie(x2,x3,y1,y3));
- if s=0 then
- writeln('Данные вершины не образуют треугольник')
- else
- writeln('Площадь треугольника с данными вершинами равна ',s);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement