4 года назад

Срочно !!!заданы координаты трех вершин треугольника (х1;у1),(х2;у2);(х3;у3) найдите его периметр и площадьрисунок(блок схема)

Знания

Информатика

1 ответ:

DimaFoto [7]4 года назад

0 0

Program Нахождение площади и периметра треугольника;

var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, P,p, S: real;

Begin

readln (x1, y1, x2, y2, x3, y3);

d1:= sqrt (sqr(x2-x1) + sqr (y2-y1));

d2:= sqrt (sqr(x3-x2) + sqr (y3-y2));

d3:= sqrt (sqr(x1-x3) + sqr (y1-y3));

P:= d1+d2+d3;

p:=P/2;

S:= sqrt(p*(p-d1)*(p-d2)*(p-d3));

end.

Читайте также

У исполнителя Омега две команды, которым присвоены номера:1. прибавь 3;2. раздели на b(b — неизвестное натуральное число; b ≥ 2)

kazhok85

Ответ во вложении...

0 0

4 года назад

Для каждого из приведенных объектов укажите величину и значение: ОБЪЕКТ СВОЙСТВО Человек Рыжеволосый Арбуз Семикилограммовый Ч

AlinaMsl [1]

1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов

0 0

4 года назад

Какие шрифты и начертания лучше использовать для заголовков, основного текста, выделений в основном тексте?

Сай-Суу [3]

Для заголовков лучше таймс нью роман жирный 16, а для подзаголовков тот же шрифт но уже курсив и 14

0 0

4 года назад

Дан одномерный массив из p элементов. Сформировать 2 новых массива. Элементами первых должен быть чётные значения элементов, сто

AdvantaStar

===== PascalABC.NET =====

begin

var p := ReadInteger('p =');

var a := ArrRandom(p, -99, 99);

a.Println;

var q := a.FindIndex(r -> r < 0);

if q > -1 then

begin

var b := a?[:q].Where(r -> r.IsEven).ToArray;

Print('Первый массив:');

b.Println;

var c := a?[q:].Where(r -> r.IsOdd).ToArray;

Print('Второй массив:');

c.Println;

end

else

Println('В массиве нет отрицательных элементов')

end.

0 0

4 года назад

Даны два целых числа. Если они оба положительны, то большее из них заменить их средним арифметическим; если оба отрицательны, то

Натулька Жукова

Var
a, b: integer;

begin
readln(a, b);
if a * b < 0 then {если числа разных знаков}
    writeln(2 * a, ' ', 2 * b)
else if a > 0 then begin{иначе одного знака и больше нуля}
    if a > b then
      writeln((a + b) / 2, ' ', b)
    else
      writeln(a, ' ', (a + b) / 2)
end
else begin
    if a > b then
      writeln(a, ' ', -b)
    else
      writeln(-a, ' ', b)
end;
end.

0 0

4 года назад