Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
arpine1977
16.01.2020 06:28 •
Информатика
Составить программу "вычисление площади прямоугольника ,если заданы координаты 3-х его вершин"
Показать ответ
Ответ:
Опа111прпрррр
25.08.2020 01:51
Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mystery322
05.04.2022 20:04
Решите : графическое изображение занимает на экране дисплея область размером 100х100 пикселей.цветовая палитра-256 цветов.найти объем оперативной памяти,занимаемой этой иллюстрацией....
ppp13
05.04.2022 20:04
Перечислите числа из 2 системы счисления в 10 -ную: 1100000(под нулем последним двоечка); 1100100(и здесь двоечка); 1011110(и двоечка); ! заранее всем.☺...
opd23
11.06.2022 20:43
Вполученной случайным образом последовательности n целых чисел из промежутка [10; 1000] найти числа, у которых ровно 4 делителя....
veronikaandruseiko
19.04.2023 14:05
1. укажите лишнее: a) собака.doc b) дом.bmp c) уроки.txt d) каникулы.rtf 2. укажите графический файл: a) зима.wav b) весна.doc c) лето.jpg d) осень.mid...
axeltrofimsky
30.12.2022 04:19
Нужно составить программу вывода таблицы перевода расстояний в дюймах в сантиметры от 1 до 10 дюймов (1 дюйм=2,54).обозначить: d-расстояние в дюймах,s-в сантиметрах...
aizazaliyaF
25.03.2023 19:24
ответьте на 2 любых вопроса кратко....
helppliz5
27.11.2022 00:19
Информационное сообщение объёмом 16,5Кб содержит 11264 символа. сколько символов содержит алфавит, с которого было записано это сообщение !!...
fullwalkgroundEger
22.01.2021 14:34
Изучи установленные параметры и определи, верно ли, что пароль для открытия документа ненадежный? Верно/Неверно...
ЭЩЩКЕРЕЕЕ
08.04.2021 02:08
В бейсике. Построить семейство N горизонтально расположенных квадратов заданного размера случайных цветов...
SashylikS
04.02.2022 02:33
Составить сочинение на казапуском языке про поход с мамой в супермаркет за продуктами.7-9 предложений.....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.