гикник45
20.04.2023 02:20

У MathCad розв'язати систему рівнянь іть будьласка!!

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
irajhgmvm
21.04.2022 02:38
Три брата рубили в лесу дрова. Пришло время обедать. Стали братья обед варить: набрали воды в котелок, сложили костер, а разжечь костер нечем. Как на грех, ни один не взял с собой из дому ни кремня, ни спичек. Посмотрели вокруг и видят: горит за де­ревьями костер и сидит возле огня старик.Старший брат пошел к старику и попросил:— Дедушка, дай огоньку!— Расскажи сорок одну небылицу — дам, — ответил старик.Постоял-постоял старший брат, ни одной небылицы не придумал. Так и вернулся ни с чем. Пошел к старику средний брат.— Дай огоньку, дедушка!— Дам, если расскажешь сорок одну небылицу, — от­ветил старик.Средний брат почесал в затылке —ни одной небылицы не придумал и тоже вернулся к братьям без огня. Пошел к старику младший брат.— Дедушка, — говорит младший брат старику, — соб­рались мы с братьями обед варить, да огня нет. Дай нам огня.— Если расскажешь сорок одну небылицу, — говорит старик,— дам тебе огня и еще вдобавок котел и жирную утку, что варится в котле.— Ладно, — согласился младший брат, — расскажу я тебе сорок одну небылицу. Только, чур, не сердись.— Да кто же на небылицы сердится!— Ну ладно, слушай. Родилось нас у отца-матери трое братьев. Умирали мы один за другим, и осталось нас всего семь человек. На семерых братьев: один был глухой, другой — слепой, третий — хромой, четвертый — безрукий, а пятый — голый, ни клочка одежды на нем не было.Однажды собрались мы и пошли ловить зайцев. Опута­ли одну рощу нитками, а глухой брат уже услышал.«Вон-вон, там шуршит!» — закричал глухой.А тут слепой зайца увидел: «Ловите! Он в овраг по­бежал!»Побежал хромой вдогонку за зайцем — вот-вот пой­мает… Только безрукий уже схватил зайца.Положил голый зайца в подол и принес домой.Зарезали мы зайца и натопили из него пуд сала.Была у нас на всех одна пара отцовских сапог. И стал я тем салом отцовские сапоги смазывать. Мазал-мазал — хватило сала только на один сапог. Рассердился несма­занный сапог и убежал от меня. Сапог бежит, я — за ним. Прыгнул сапог в какую-то дыру под землю. Свил я ве­ревку из мякины и за сапогом спустился. Тут и догнал его!Стал я назад вылезать, да веревка оборвалась, и свалился я опять под землю. Сижу я, сижу в дыре, а тут весна наступила. Свил себе журавль гнездо, вывел журав­лят. Повадилась за журавлятами лиса лазить: сегодня одного утащит, завтра — другого, послезавтра за третьим приходит. Подкрался я однажды к лисе — и хвать ее за хвост!Побежала лиса и меня за собой потащила. У выхода я застрял, а лиса рванулась — и хвост оторвался.Принес я домой лисий хвост, распорол его, а внутри лежит бумажка. Развернул я бумажку, а там написано: «Старик, который варит сейчас жирную утку и слушает небылицы, должен твоему отцу десять пудов ржи».— Вранье! — рассердился старик. — Небылица!— А ты и спрашивал небылицы, — ответил   младший брат.Нечего делать старику, пришлось отдать и котел, и утку.
0,0(0 оценок)
Ответ:
guldana14
25.01.2020 16:06
Без проверки полагаем, что по заданным координатам точек можно построить треугольники.

//PascalABC.Net 3.0, сборка 1111
type
  Point=record
  x,y:double
  end;

function TriangleSquare(A,B,C:Point):double;
begin
  Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;

procedure GetPoint(c:char; var A:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Readln(A.x,A.y)
end;

var
  A:array['A'..'F'] of Point;
  i:'A'..'F';
  s1,s2:double;
begin
  for i:='A' to 'F' do GetPoint(i,A[i]);
  s1:=TriangleSquare(A['A'],A['B'],A['C']);
  s2:=TriangleSquare(A['D'],A['E'],A['F']);
  if s1>s2 then Writeln('Площадь первого треугольника больше')
  else
    if s2>s1 then Writeln('Площадь второго треугольника больше')
    else Writeln('Площади треугольников равны')
end.

Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота