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

146

310

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

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

Dariailko

Информатика

4,7(84 оценок)

// 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.

pups223

Информатика

4,7(30 оценок)

Uses crt; var x,y: real; begin read(x,y); if (x> 0) and (y> 0) then writeln('i') else if (x< 0) and (y> 0) then writeln('ii') else if (x< 0) and (y< 0) then writeln('iii') else writeln('iv'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.