Найти сумму площадей тругольников авс и мнр заднных кординатми вершин с программы паскаль

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

dimasikkas39

23.01.2022 22:48

Укажите характеристику компьютора 3 поколения...

Audana00

06.09.2021 11:34

ЭЕМ нің даму тарихында 2 буыннын элементтері базасы...

руслан746

19.02.2022 11:17

2.) Чем отличается память человека от памяти человечества?...

5БЭкибастузшкола35

25.07.2021 05:29

Пятачок послал Винни-Пуху сообщение по электронной почте. Скорость работы сети 10 Мегабит/сек, Сообщение передавалось 1 минуту. Какого объема сообщение. Для расчетов...

слмтл

01.01.2023 01:57

Ученик создал видеоролик на уроке информатики объёмом 9 ГБ в формате .avi и должен забрать домой. По рисунку определите устройство памяти, которое можно использовать...

Маришка1231

11.01.2021 22:11

Нужна Пыталась что-то писать, но ничего не выйшло(И чтобы по-понятней немного было:У кожному рядку треба знайти перший додатний елемент і записати його у одновимірний...

Ломастер254630

15.06.2021 17:08

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел. Оформить на С++...

lerka157

16.05.2020 06:54

Заданы две очереди элементами которых являются целые числа.сформулировать на их основе новую очередь элементами который будут по убыванию или возрастанию (достигается...

НЕВЕСОМАЯ67

13.03.2022 15:43

Известно, что исполнитель Кузнечик в системе «Кумир» выполнил программу, в которой 6 команд вперёд 3, а команд назад 4 в 3 раза меньше. Запишите с маленькой буквы...

togrul654

14.06.2020 14:48

Скажите какие есть достоинства и недостатки графиков и диаграмм....

Ответ:

alsumamadaliev

07.10.2020 07:11

Program sumS;
uses crt;
var
ax,ay,bx,by,cx,cy,mx,my,nx,ny,px,py:integer;
S1,S2,Sum:real;
begin
write( 'Введите координату х вершины А:');
readln(ax);
write( 'Введите координату y вершины А:');
readln(ay);
write( 'Введите координату х вершины B:');
readln(bx);
write( 'Введите координату y вершины B:');
readln(by);
write( 'Введите координату х вершины C:');
readln(cx);
write( 'Введите координату y вершины C:');
readln(cy);
write( 'Введите координату х вершины M:');
readln(mx);
write( 'Введите координату y вершины M:');
readln(my);
write( 'Введите координату х вершины N:');readln(nx);
write( 'Введите координату y вершины N:');
readln(ny);
write( 'Введите координату х вершины P:');
readln(px);
write( 'Введите координату y вершины P:');
readln(py);
writeln( 'Координаты треугольника ABC: A(' ,ax,';',ay,') ,B(' ,bx,';',by,') ,C(' ,cx,';',cy,')');
writeln( 'Координаты треугольника MNP: M(' ,mx,';',my,') ,N(' ,nx,';',ny,') ,P(' ,px,';',py,')');
S1:=abs(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2);
writeln('Площадь треугольника ABC=',S1);
S2:=abs(((mx-px)*(ny-py)-(nx-px)*(my-py))/2);
writeln('Площадь треугольника ABC=',S2);
Sum:=s1+s2;
writeln('Сумма площадей=',sum);
readln;end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку