Напишите функцию, вычисляющую площадь треугольника по целочисленным координатам его вершин. С помощью этой функции в

В формуле имеется модуль, в Паскале он обозначается abs(значение).

program z9;
var x1, x2, x3, y1, y2, y3, x4, y4, S1, S2, S: real;

//Функция вычисления площади треугольника по координатам
function plosad (var x1,y1,x2,y2,x3,y3: real): real;
begin
plosad:=abs(((x1-x3)*(y2-y3) - (x2-x3)*(y1-y3))/2);
end;

BEGIN
writeln('Приветствую, введите координаты вершин четырехугольника.');
write('x1 = '); read(x1);
write('y1 = '); read (y1);
write('x2 = '); read(x2);
write('y2 = '); read (y2);
write('x3 = '); read(x3);
write('y3 = '); read (y3);
write('x4 = '); read(x3);
write('y4 = '); read (y4);
Writeln ('Координаты: A[', x1, ';', y1, ']; B[', x2, ';', y2, ']; C[', x3, ';', y3, '];');
S1 := plosad(x1, y1, x2, y2, x3, y3);
S2 := plosad(x1, y1, x3, y3, x4, y4);
S:=S1+S2;
Writeln ('Площадь равна ', S:0:2);
END.

ответ:

мен кыргызстанды мактоого

биринчи жолу эмес.

бул болуп сулуу үчүн,

мен сени чакырабыз.

келгиле, бүт күчтөрдү берели

ал эми чакан жана жаштар менен да, карылар.

анын сулуулугу, биз, көбөйүп,

тизесине, ал ордунан туруп.

келгиле, биз да ошондой кылам,

менин эне жердештери.

ошон үчүн ар бир аны менен сунушталса кубанычта болот деп,

көз жашын агып эмес.

күн, биз да жарык чачты

кырсык эч качан көргөн эмес.

анткени, ар бир жолу эле калды.

түбөлүк - мунун баары болот!

чыгып, элди эч ишенбе,

башкача айтканда, "уят, кыргызстан."

мен, ирээтин жана буюмдарды ыйык тутууну туура тиленүүгө,

башына чейин сыймыктануу менен өткөрүлгөн !

объяснение:

1.Лёгкая атле́тика — олимпийский вид спорта, включающий бег, ходьбу, прыжки и метания. ... ИААФ даёт следующее определение термину «лёгкая атлетика»: «соревнования на стадионе, бег по шоссе, спортивная ходьба, кросс и бег по горам (горный бег)».

2.оревнования по бегу проводятся на специальных легкоатлетических стадионах с оборудованными дорожками. На летних стадионах обычно 8-9 дорожек, на зимних 4-6 дорожек. Ширина дорожки — 1.22 м, линии, разделяющей дорожки — 5 см. На дорожки наносится специальная разметка указывающая старт и финиш всех дистанций и коридоры для передачи эстафетной палочки.

Сами соревнования почти не требуют сколько-нибудь особенных условий. Определённое значение имеет покрытие из которого изготовлена беговая дорожка. Исторически сначала дорожки были земляными, гаревыми, асфальтовыми. В настоящее время дорожки на стадионах изготовлены из синтетических материалов таких как тартан, рекортан, регупол и других. Для крупных международных стартов технический комитет IAAF сертифицирует качество покрытия по нескольким классам.

Объяснение: