Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Динара22235
19.01.2020 21:30 •
Информатика
Принадлежит ли точка с координатами ( х,у) области треугольника авс, где(x1,,,y3) . нужно написать программу для кубэсика.. , . мне нужно(
Показать ответ
Ответ:
анна2265
02.10.2020 15:07
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
Внутри
0,0
(0 оценок)
Популярные вопросы: Информатика
emin551
26.08.2021 03:36
Даны числа: 6; 35; 482; 2657; 10580. Используя MS Excel, вычисли среднее арифметическое данных чисел....
kirill885
01.06.2020 00:17
Записать в формализованной форме высказывания: 1) мы поедем в санкт-петербург(а), и если будет хорошая погода(в), обязательно съездим в петергоф(с). 2) если будет хорошая погода(а),...
Diana451111
24.08.2020 14:07
Тан фрагмент электронной таблицы.с чему станет равным значение ячейки90 SAS3 sD3, если в нее скопировать формулу из35ячейки С1?АБs12010S2. Вячейке С1 записана формула =$B1-3....
kirichmix
12.01.2023 08:13
Скорость передачи данных по каналу связи равна 15 Кбит/сек. Сколько потребуется времени для передачи файла размером 3,4 Мб?...
Artem1143
01.02.2023 05:34
По введенному возрасту человека определить, может ли он получить паспорт. Задача в паскаль....
solov1
26.08.2021 06:11
Уровень воды в сосудах 1 и 2 одинаковы. диаметры сосудов отличаются в 2 раза. отличаются ли давления на дно сосудов? силы давления?...
Gushkaa
02.06.2022 08:40
Огэ. признак подобия треугольников . вариант 225...
Ilya1140
13.04.2023 15:35
Определите первоначальный заряд металлической пластины,если при освещении она потеряла n=250 электронов и ее заряд стал q2=4,8*10^-17 кл...
DementоR
01.09.2020 10:50
Решите 2 вариант , 3 с дано! и 4,5 номер...
37892
20.12.2021 16:47
Какие растения и животные водятся в калининградской области?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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
Внутри