Определить принадлежность точки заданному выпуклому многоугольнику. на паскаль абс, питон или с++

273

476

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

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

Анастасия133758

Информатика

4,4(9 оценок)

Pascalabc.net 3.4.0, сборка 1671 от 31.05.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('число сторон многоугольника: '); var xp: =new real[n]; var yp: =new real[n]; writeln('введите парами координаты вершин'); for var i: =0 to n-1 do read(xp[i],yp[i]); var (x,y): =readreal2('введите координаты точки: '); var (i,j,c): =(0,n-1,false); while i< n do begin if ((yp[i]< =y) and (y< yp[j]) or (yp[j]< =y) and (y< yp [i])) and (x< (xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c: =not c; j: =i; i+=1; end; if c then writeln('внутри') else writeln('не внутри') end. примеры число сторон многоугольника: 5 введите парами координаты вершин -5 2 2 6 7 3.1 4.3 -5 -6 -6 введите координаты точки: 2.1 1.7 внутри число сторон многоугольника: 5 введите парами координаты вершин -5 2 2 6 7 3.1 4.3 -5 -6 -6 введите координаты точки: -2 5 не внутри

taxirkuliev

Информатика

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

Составим программку: uses crt; const n=20; type mas=array [1..n, 1..n] of integer; var a: mas; i,k, sum: integer; begin clrscr; sum: =0; for i: =1 to n do begin for k: =1 to n do begin if i> k then begin a[i,k]: =1; sum: =sum+a[i,k]; end else begin a[i,k] : =-1; sum: =sum+a[i,k]; end; write(a[i,k]: 3); end; writeln; end; writeln; writeln(' sum = ',sum); readln; end. эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов. если n=20, то sum = -20 если n = 100, то sum = - 100 правильный ответ: 3) - 100

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

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

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

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

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

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

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

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

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

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