Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Pandi2
18.05.2021 05:04 •
Информатика
Много за решение.. треугольник задан координатами вершин, вычеслить периметр, площадь.вычеслить длин сторон, оформить с процедур на паскале надо
Показать ответ
Ответ:
ilqartural2005
30.06.2020 12:51
Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гузаля
19.06.2021 04:21
В текстовом процессоре создайте новый файл и сохраните его в личной папке под именем Индексы.rtf. 2. Выберите тип шрифта Arial, размер шрифта 14, начертание курсив. 3. Наберите...
FunLayn1
28.06.2020 00:12
О чем думаю програмисты перед перед сном ?...
Kajdit
24.11.2022 11:08
Pascal. дан массив натуральных чисел. вывести все элементы массива, являющиеся двузначными числами....
avysocka
10.01.2021 21:21
Даны три целых числа. Составить программу в смарт студио для нахождения положительных и отоицательных чисел в исходном массиве...
anyutra
20.03.2020 16:05
Выберите признак алгоритма с неполным разветвлением:A) имеет два вариантаB) имеет много вариантов действийC) имеет 1 вариант действийD) Не имеет вариантов действий...
neket678885
22.01.2022 09:41
Подскажите где найти текст подназванием a successful hairdreeser...
5class1i
22.01.2022 09:41
Вычислите: cos 0,3pi sin 0,2pi+sin 0,3pi cos 0,2pi...
кириешка5
22.01.2022 09:41
Список слов, ударение которых запомнить ассоциации? 5 слов...
4epHo3eM
22.01.2022 09:41
Глаголы в повелительной форме мн.ч второго лица-ловите,урчите, лижите -написать в форме второго лица,множественного числа...
nastia110228
22.01.2022 09:41
Найти нод и нок для чисел 22, 115. и указать их кратные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
end.