Помогите решить задачу в Паскале

[Nur]

Помогите решить задачу в Паскале

Стороны одного треугольника равны A1,B1,C1. Написать алгоритм и программу проверки равенства ему другого треугольника.

 

[Vladimir_S]

Стороны одного треугольника равны A1,B1,C1. Написать алгоритм и программу проверки равенства ему другого треугольника.

Например, так:
1. Упорядочиваем нумерацию сторон обоих треугольников по возрастанию длин сторон.
2. Сравниваем соответствующие стороны. Если все три совпадают, то треугольники равны и программа выдает 'TRUE', в противном случае - 'FALSE'.

Var
 A1,B1,C1,A2,B2,C2:Real;

Procedure Order(p,q,r:real; var p1:real; var q1:real; var r1:real);
var
 p2,q2,r2,s:real;
begin
 p2:=p;
 q2:=q;
 r2:=r;
 if p2>q2 then
  begin
   s:=p2;
   p2:=q2;
   q2:=s;
  end;
 if p2>r2 then
  begin
   s:=p2;
   p2:=r2;
   r2:=s;
  end;
 if q2>r2 then
  begin
   s:=q2;
   q2:=r2;
   r2:=s;
  end;
 p1:=p2;
 q1:=q2;
 r1:=r2;
end;

Begin
 Writeln('Sides of first triangular:');
 Write('a= ');
 Readln(A1);
 Write('b= ');
 Readln(B1);
 Write('c= ');
 Readln(C1);
 Writeln;
 Writeln('Sides of second triangular:');
 Write('a= ');
 Readln(A2);
 Write('b= ');
 Readln(B2);
 Write('c= ');
 Readln(C2);
 Writeln;
 Order(A1,B1,C1,A1,B1,C1);
 Order(A2,B2,C2,A2,B2,C2);
 Write((A1=A2) and (B1=B2) and (C1=C2));
 Readln
End.

Впрочем, можно и проще, без процедуры, путём перебора всех вариантов соответствия сторон:

Var
 A1,B1,C1,A2,B2,C2:Real;

Begin
 Writeln('Sides of first triangular:');
 Write('a= ');
 Readln(A1);
 Write('b= ');
 Readln(B1);
 Write('c= ');
 Readln(C1);
 Writeln;
 Writeln('Sides of second triangular:');
 Write('a= ');
 Readln(A2);
 Write('b= ');
 Readln(B2);
 Write('c= ');
 Readln(C2);
 Writeln;
 Write(((A1=A2) and (B1=B2) and (C1=C2)) or
       ((A1=A2) and (B1=C2) and (C1=B2)) or
       ((A1=B2) and (B1=A2) and (C1=C2)) or
       ((A1=B2) and (B1=C2) and (C1=A2)) or
       ((A1=C2) and (B1=A2) and (C1=B2)) or
       ((A1=C2) and (B1=B2) and (C1=A2)));
 Readln
End.

А уж если мы договоримся, что стороны наших треугольников - это ЦЕЛЫЕ числа, не превышающие 255, то можно использовать тип "множество", и тогда - совсем просто и коротко:

Var
 A1,B1,C1,A2,B2,C2:Byte;
 S1,S2:Set of Byte;

Begin
 S1:=[];
 S2:=[];
 Writeln('Sides of first triangular:');
 Write('a= ');
 Readln(A1);
 S1:=S1+[A1];
 Write('b= ');
 Readln(B1);
 S1:=S1+[B1];
 Write('c= ');
 Readln(C1);
 S1:=S1+[C1];
 Writeln;
 Writeln('Sides of second triangular:');
 Write('a= ');
 Readln(A2);
 S2:=S2+[A2];
 Write('b= ');
 Readln(B2);
 S2:=S2+[B2];
 Write('c= ');
 Readln(C2);
 S2:=S2+[C2];
 Writeln;
 Write(S1=S2);
 Readln
End.