Помогите пожалуйста!найти сумму площадей тругольников авс и мнр заднных кординат...

August 2022 1 17 Report

Помогите пожалуйста!найти сумму площадей тругольников авс и мнр заднных кординатми вершин с помощью программы ПАСКАЛЬ

Answers & Comments

Ленгит 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 votes Thanks 0

Answers & Comments

ПОЖАЛУЙСТА!!! В обычной водопроводной воде массовая доля тяжелой воды составляет...

Помогите решить пожалуйста! Срочно! Ответом должен быть промежуток...

Какая начальная форма у местоимений ЭТОГО , НАШИ?...

Помогите пожалуйста!Много балов даю Задание 15...

Чему равен горизонтальный параллакс Юпитера, наблюдаемого с Земли в противостоян...

Задайте интересные вопросы по физике пожалуйста,посложнее.Именно вопрос,а не зад...

с под углом 30° к горизонту с поверхности Земли. На каком участке движения тела ...

Пожалуйста распределители на 2 позиции «холод» и «тепло» предметы и героев из ск...

СРОЧНО!!!! Составьте блок-схему и алгоритм к задаче. Найти сумму 100 чисел после...

Словосочетание "каждого второго" в данном случае КАЖДОГО ,какая часть речи,подск...

рекомендуемые вопросы

Helpful Links

Helpful Social