М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
olga195888
olga195888
19.12.2021 13:10 •  Информатика

На c ++ в этой должна присутствовать функция нахождения периметра треугольника и функция нахождения площади треугольника. по желанию можно добавить функцию нахождения длины отрезка по его координатам. треугольник задан координатами своих вершин. найдите его периметр и площадь. формат входных данных вводится три пары вещественных чисел x1, y1, x2, y2, x3, y3, каждое из которых по модулю не превосходит 10 в 5 степени и задано с точностью до двух знаков после запятой, — координаты вершин треугольника. формат выходных данных требуется вывести два вещественных числа — периметр и площадь треугольника с точностью до шести знаков после десятичной точки.

👇
Ответ:
fyjdtjjhtjh
fyjdtjjhtjh
19.12.2021
#include <iostream>
#include <iomanip
#include <cmath>
using namespace std;

double St(double x1, double y1, double x2, double y2)
{
return sqrt((y2-y1)*(y2-y1)+(x2-x1)*(x2-x1));
}

double Per(double a, double b, double c)
{
return a+b+c;
}

double S(double a, double b, double c)
{
double p2 = Per(a,b,c)/2;
return sqrt(p2*(p2-a)*(p2-b)*(p2-c));
}

int main()
{
    double x1, y1, x2, y2, x3, y3;
    double a, b, c, p, s;
    cin >> x1 >> y1;
    cin >> x2 >> y2;
    cin >> x3 >> y3;
    a = St(x1,y1,x2,y2);
    b = St(x1,y1,x3,y3);
    c = St(x2,y2,x3,y3);
    p = Per(a,b,c);
    s = S(a,b,c);
    cout.setf(std::ios::fixed);
    cout.precision(6);
    cout << "p = " << p << "\n";
    cout << "s = " << s << "\n";
    system("Pause");
    return 0;
}

Пример:
1 1
4 1
1 5
p = 12.000000
s = 6.000000
4,6(10 оценок)
Открыть все ответы
Ответ:
spongebob2353
spongebob2353
19.12.2021
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln('Сумма четных: ',Range(2,n,2).Sum);
  Writeln('Произведение нечетных: ',
      Range(1,n,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.

Примеры
n= 10
Сумма четных: 30
Произведение нечетных: 945

n= 100
Сумма четных: 2550
Произведение нечетных: 2725392139750729502980713245400918633290796330545803413734328823443106201171875

n= 220
Сумма четных: 12210
Произведение нечетных: 1107777077219218863731176870556049213277080310011307546922058816496685355705579762805879646585202270946781726057710274499420058851200005273702334889222745707797723907366146060509882690145022444427013397216796875
4,4(26 оценок)
Ответ:
AlexandraBobkova
AlexandraBobkova
19.12.2021
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
4,6(15 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ