Основные понятия алгебры логики. Логические значения, операции и выражения?

Question

Информатика: Основные понятия алгебры логики. Логические значения, операции и выражения?

alexkiop76 · Accepted Answer

Конечно, так нормальные люди не пишут, но это ради выполнения корявых требований процедуры и функции.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
Point=record
x,y:real
end;

function Len(A,B:Point):=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y));

procedure Sides(A,B,C:Point; var la,lb,lc:real);
begin
la:=Len(B,C); lb:=Len(A,C); lc:=Len(A,B)
end;

function Perim(a,b,c:real):=a+b+c;

begin
var a,b,c:Point;
var l1,l2,l3:real;
for var i:=1 to 2 do begin
    Writeln('Вводите парами координаты каждой вершины треугольника;');
    Read(a.x,a.y,b.x,b.y,c.x,c.y);
    Sides(a,b,c,l1,l2,l3);
    Writeln('Периметр треугольника ',Perim(l1,l2,l3))
    end
end.

MOGZ ответил