Принадлежит ли точка с координатами ( х,у) области треугольника авс, где(x1,,,y3) . нужно написать программу для кубэсика.. , . мне нужно(

246

404

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

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

Виктория41116

Информатика

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

Qbasic: declare function l# (x1#, y1#, x2#, y2#) declare function s3# (x1#, y1#, x2#, y2#, x3#, y3#) cls input "координаты точки а через запятую: ", ax#, ay# input "координаты точки b через запятую: ", bx#, by# input "координаты точки c через запятую: ", cx#, cy# input "координаты точки m через запятую: ", mx#, my# s# = s3#(ax#, ay#, bx#, by#, cx#, cy#) sab# = s3#(ax#, ay#, bx#, by#, mx#, my#) sbc# = s3#(bx#, by#, cx#, cy#, mx#, my#) sca# = s3#(cx#, cy#, ax#, ay#, mx#, my#) eps# = s# - (sab# + sbc# + sca#) eps% = int(eps# * 10000) / 10000 if eps% = 0 then print "внутри" else print "не внутри" end function l# (x1#, y1#, x2#, y2#) l# = sqr((x2# - x1#) ^ 2 + (y2# - y1#) ^ 2) end function function s3# (x1#, y1#, x2#, y2#, x3#, y3#) a# = l#(x1#, y1#, x2#, y2#) b# = l#(x2#, y2#, x3#, y3#) c# = l#(x3#, y3#, x1#, y1#) p# = (a# + b# + c#) / 2 s3# = sqr(p# * (p# - a#) * (p# - b#) * (p# - c#)) end function тестовое решение: координаты точки а через запятую: 2,1 координаты точки b через запятую: 15,10 координаты точки c через запятую: 12,4 координаты точки m через запятую: 9,5 внутри