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

132

170

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

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

Айнұра

Информатика

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

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin var d: (real,real,real,real)-> real: = (x1,y1,x2,y2)-> sqrt(sqr(x2-x1)+sqr(y2-y1)); var (x1,y1): =readreal2('введите координаты 1-й точки: '); var (x2,y2): =readreal2('введите координаты 2-й точки: '); var (x3,y3): =readreal2('введите координаты 3-й точки: '); var a: =d(x1,y1,x2,y2); var b: =d(x2,y2,x3,y3); var c: =d(x1,y1,x3,y3); if (a+b> c) and (a+c> b) and (b+c> a) then begin var p: =(a+b+c)/2; var s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s = ',s) end else writeln('невозможно построить треугольник') end. пример введите координаты 1-й точки: -2.5 1.6 введите координаты 2-й точки: 5.2 4 введите координаты 3-й точки: 1 -1 s = 14.21 pascal abc, free pascal var x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; function d(x1,y1,x2,y2: real): real; begin d: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin write('введите координаты 1-й точки: '); read(x1,y1); write('введите координаты 2-й точки: '); read(x2,y2); write('введите координаты 3-й точки: '); read(x3,y3); a: =d(x1,y1,x2,y2); b: =d(x2,y2,x3,y3); c: =d(x1,y1,x3,y3); if (a+b> c) and (a+c> b) and (b+c> a) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s = ',s) end else writeln('невозможно построить треугольник') end. с процедурой: var x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; procedure d(x1,y1,x2,y2: real; var r: real); begin r: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin write('введите координаты 1-й точки: '); read(x1,y1); write('введите координаты 2-й точки: '); read(x2,y2); write('введите координаты 3-й точки: '); read(x3,y3); d(x1,y1,x2,y2,a); d(x2,y2,x3,y3,b); d(x1,y1,x3,y3,c); if (a+b> c) and (a+c> b) and (b+c> a) then begin p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln('s = ',s) end else writeln('невозможно построить треугольник') end.

Natali250707

Информатика

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

Элик. мне приснилось что есть такой робот который чувствует и как живой друг или подруга и когда я пришла в школу то узнала что у нас сочинение и записала это и я хочу чтобы это исполнилось

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

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

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

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

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

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

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

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

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

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