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

238

461

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

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

katerina2398

Информатика

4,5(62 оценок)

// pascalabc.net 3.0, сборка 1066 type point=record x,y: double; end; procedure getpoint(c: char; var m: point); begin write('введите координаты точки ',c,': '); read(m.x,m.y) end; function l(a,b: point): double; begin result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; function s(a,b,c: point): double; var p,la,lb,lc: double; begin la: =l(a,b); lb: =l(b,c); lc: =l(c,a); if (la+lb> lc) and (la+lc> lb) and (lb+lc> la) then begin p: =0.5*(la+lb+lc); result: =sqrt(p*(p-la)*(p-lb)*(p-lc)) end else result: =0 end; var a,b,c,d: point; s1,s2: double; begin getpoint('a',a); getpoint('b',b); getpoint('c',c); getpoint('d',d); s1: =s(a,b,c); if s1=0 then write('по точкам а,в,с нельзя построить треугольник') else begin s2: =s(c,d,a); if s2=0 then write('по точкам c,d,a нельзя построить треугольник') else writeln('площадь четырехугольника равна ',s1+s2) end end. тестовое решение: введите координаты точки a: -5 -7 введите координаты точки b: -2 4 введите координаты точки c: 5 9 введите координаты точки d: 9 -3 площадь четырехугольника равна 123

ostapbelyaev

Информатика

4,6(53 оценок)

Сори ай эт донттноу

Объяснение:

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

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

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

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

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

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

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

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

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

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