20.12.2013, 22:27 | #1 (permalink) |
Новичок
Регистрация: 20.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу в Паскале
|
20.12.2013, 22:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую посмотреть на аналогичные топики, там вы можете найти содержательные ответы по вашему запросу Помогите решить задачу в Паскале Помогите решить задачу в Паскале Помогите решить задачу в Паскале |
21.12.2013, 08:31 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|