Без проверки полагаем, что по заданным координатам точек можно построить треугольники.
//PascalABC.Net 3.0, сборка 1111 type Point=record x,y:double end;
function TriangleSquare(A,B,C:Point):double; begin Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y)) end;
procedure GetPoint(c:char; var A:Point); begin Write('Введите координаты точки ',c,': '); Readln(A.x,A.y) end;
var A:array['A'..'F'] of Point; i:'A'..'F'; s1,s2:double; begin for i:='A' to 'F' do GetPoint(i,A[i]); s1:=TriangleSquare(A['A'],A['B'],A['C']); s2:=TriangleSquare(A['D'],A['E'],A['F']); if s1>s2 then Writeln('Площадь первого треугольника больше') else if s2>s1 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение: Введите координаты точки A: -4 3.7 Введите координаты точки B: -6.3 0 Введите координаты точки C: 10.2 5.93 Введите координаты точки D: 7.143 8.1 Введите координаты точки E: -6 -3 Введите координаты точки F: 7.4 -5.7 Площадь второго треугольника больше
Алгоритм-конечная совокупность точно заданных правил решения некоторого класса задач или габор инструкций,описывающих порядок действий исполнителя для решений определенной задачи.
Алгорим это конечный габори правил который определяет последовательность операций для решений конкретного множества задач и обладает пятью важными чертами:конечностями,определенность,ввод,вывод,эффективность
Циклический,генетический разветдчющийся.
Утром надо вставать почистить зубы застелить кровать и позавтракать а потом пойти в школу.
//PascalABC.Net 3.0, сборка 1111
type
Point=record
x,y:double
end;
function TriangleSquare(A,B,C:Point):double;
begin
Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;
procedure GetPoint(c:char; var A:Point);
begin
Write('Введите координаты точки ',c,': ');
Readln(A.x,A.y)
end;
var
A:array['A'..'F'] of Point;
i:'A'..'F';
s1,s2:double;
begin
for i:='A' to 'F' do GetPoint(i,A[i]);
s1:=TriangleSquare(A['A'],A['B'],A['C']);
s2:=TriangleSquare(A['D'],A['E'],A['F']);
if s1>s2 then Writeln('Площадь первого треугольника больше')
else
if s2>s1 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше
Объяснение:
Алгоритм-конечная совокупность точно заданных правил решения некоторого класса задач или габор инструкций,описывающих порядок действий исполнителя для решений определенной задачи.
Алгорим это конечный габори правил который определяет последовательность операций для решений конкретного множества задач и обладает пятью важными чертами:конечностями,определенность,ввод,вывод,эффективность
Циклический,генетический разветдчющийся.
Утром надо вставать почистить зубы застелить кровать и позавтракать а потом пойти в школу.
Меняется порядок действий в алгоритме.
Сори прости что смог ч только га вопросы оьветил