Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
даша3464
18.12.2020 19:39 •
Информатика
100 за один вопрос
телефонная база данных,в т.ч и в твёрдой копии относится к какому классу защиты информации?
3б,3а,2б,2а,1д,1г,1б,1а? ?
👇
Увидеть ответ
Открыть все ответы
Ответ:
sksool0360figf
18.12.2020
Function Otr(Ax, Ay, Bx, By: real): real;
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;
function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;
function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;
procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;
var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;
begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.
Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5
Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135
4,5
(74 оценок)
Ответ:
aleksandr7899
18.12.2020
Если у нас есть координаты этих вершин на плоскости вида (x; y), то
A(x1,y1)
B(x2,y2)
C(x3,y3)
program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
4,8
(66 оценок)
Это интересно:
Т
Транспорт
22.10.2022
Как правильно промыть радиатор отопителя автомобиля?...
К
Компьютеры-и-электроника
10.06.2020
Как узнать, что ваше текстовое сообщение прочитано (на iPhone/iPad)...
К
Кулинария-и-гостеприимство
16.10.2022
Легкий способ открыть банку с завинчивающейся крышкой: советы от эксперта...
С
Стиль-и-уход-за-собой
23.10.2022
Как лечить келоид: эффективные методы и рекомендации...
К
Компьютеры-и-электроника
14.11.2020
Как удалить Genieo: подробная инструкция и советы...
З
Здоровье
24.03.2021
Потница: простые способы лечения и профилактика...
Д
Дом-и-сад
13.05.2022
Как укладывать ламинат: подробное руководство и советы от профессионалов...
П
Питомцы-и-животные
02.01.2021
Как приучить щенка к его имени: основные правила и эффективные методы...
К
Компьютеры-и-электроника
29.03.2023
Как восстановить документ Word: готовые решения для всех случаев...
Д
Дом-и-сад
27.10.2020
Как побелить мебель: простые способы обновления старых вещей...
Новые ответы от MOGZ: Информатика
VIP161
29.03.2021
Скорость передачи данных через adsl-соединение равна 256000бит/с. передача файла через данное соединение заняла 16 секунд. определить размер файла в кбайт. если можно...
Matthi
29.03.2021
Подсчитайте объём информации в словах ; название словаря ,составитель ,издательство...
AnnGo9909
29.03.2021
Написать программу которая выводит таблицу значений функции y=|x+2| диапозон изменений аргумента от -4 до 4. шаг 0,5....
12ал12ён12на12
29.03.2021
Какой набор символов будет выведен в результате работы следующей программы? function f(x: string; a: byte): string; begin if a =3 then f: =copy (x,1,a) else f: =f(copy(x,2,a),a-2);...
Boodmi
21.05.2022
Составьте программу вычисления выражения y=3x+5x2 , введите с клавиатуры x. выведите значение х и y....
anastysiaparsh
09.05.2020
Ребус з інформатики, до ть...
xAlonerx
23.08.2022
Какое количество информации несёт сообщения о том, что встреча назначена на 15:00?...
tanushkako
18.09.2022
Где применяется в мобильная сеть сидит...
Cherry5858
15.01.2022
Вводится одно слово. требуется сдвинуть все буквы в нем на 1 вправо, перенеся последнюю букву в начало. входные данные вводится последовательность строчных латинских...
Anastasiay80
30.08.2021
Укажите информационные каналы передачи информации 1.телефон 2.dvd- диск 3. телевидение 4.книга 5. интернет. 2.отметьте информационные процессы (действия с информацией)...
MOGZ ответил
Выполните умножения 2) -5.9(-6.3): 5) -3.2. (-0.47); 1)-(-36); -3.6...
Составить логическое выражение по таблице истинности X. Y. Z 1....
А.С. Пушкин «Барышня-крестьянка» 1. Узнайте героя по описанию: Этот...
Where is DVD disk put in computer...
Что получится при нагревании смеси этанола и пропанола-2 в присутствии...
Дана функция f(x)=35/√1-x^2 Для данной функции найди первообразную,...
Задача. Задан трикутник АВС координатами своїх вершин : А(-2.9)...
вот рисунок нужно начертить , чтоб рука от рисунка оторвалась 3...
Добрый день решить 2 задачи №1 а стороне AC треугольника ABC отмечены...
Укажите график функции у=ах² завтра я буду дописывать сор...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;
function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;
function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;
procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;
var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;
begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.
Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5
Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135