Паскаль. два треугольника заданы координатами вершин. определить, подобны ли эти треугольники.

221

266

Посмотреть ответы 2

Ответы на вопрос:

lenaprivet

Информатика

4,8(68 оценок)

// pascalabc.net 3.0, сборка 1076 type point=record x,y: real end; line=record a,b: point end; triangle=record a,b,c: point; sa,sb,sc: real; { длины сторон } end; procedure getpoint(pointname: char; var m: point); begin write('введите координаты точки ',pointname,'(x,y): '); read(m.x,m.y) end; function linelength(a,b: point): real; begin linelength: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; procedure createtriangle(var t: triangle; var l: boolean); begin with t do begin getpoint('a',a); getpoint('b',b); getpoint('c',c); sa: =linelength(b,c); sb: =linelength(a,c); sc: =linelength(a,b); l: =(sa+sb> sc) and (sa+sc> sb) and (sb+sc> sa) end end; function triangleislikes(t1,t2: triangle): boolean; var k1,k2,k3: real; begin k1: =t1.sa/t2.sa; k2: =t1.sb/t2.sb; if k1=k2 then begin k3: =t1.sc/t2.sc; triangleislikes: =k1=k3 end else triangleislikes: =false end; var t1,t2: triangle; legal: boolean; begin writeln('*** первый треугольник ***'); createtriangle(t1,legal); if legal then begin writeln('*** второй треугольник ***'); createtriangle(t2,legal); if legal then if triangleislikes(t1,t2) then writeln('треугольники подобны') else writeln('треугольники не подобны') else writeln('треугольник невозможно построить') end else writeln('треугольник невозможно построить') end.