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

C++ ! напишите функцию triangle_area, которая возвращает вещественное число — площадь треугольника. функции должны даваться различные наборы параметров: double triangle_area (double a, double b, double c) — длины трёх сторон; double triangle_area (double x1, double y1, double x2, double y2, double x3, double y3) — координаты трёх точек. при проверке с клавиатуры будет вводиться список параметров, которые нужно передать в функцию. формат входных данных в первой строке вводится целое число p (p=3 или p=6) — количество параметров, которые следует передать в функцию. в следующей строке вводятся p вещественных чисел, не превышающих по модулю 10, и заданных с точностью не более одного знака после десятичной точки. формат выходных данных требуется вывести площадь треугольника с точностью не менее 4 знаков после десятичной точки. примеры ввод- 3 3.0 4.0 5.0 вывод- 6.0000 ввод- 6 0.0 0.0 3.0 0.0 0.0 4.0 ввывод- 6.0000

👇
Ответ:
darkdemonsown3mz
darkdemonsown3mz
19.06.2021
Double triangle_area(double a, double b, double c)
{
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p-a)*(p-b)*(p-c));
return s;
}

double triangle_area(double x1, double y1, double x2, double y2, double x3,
double y3)
{
double a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
double b = sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
double c = sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
return triangle_area(a, b, c);
}
4,4(58 оценок)
Открыть все ответы
Ответ:
YULEMESLEILAA
YULEMESLEILAA
19.06.2021
Pascal:
var n,a,s:longint;
begin
  repeat
    write ('N = ');
    readln(n);
  until n in [10..99];
  write ('A = ');
  readln(a);
  s:=0;
  while n<>0 do
    begin
       s:=s+n mod 10;
       n:=n div 10;
    end;
  if s>a then writeln ('YES') else writeln ('NO');
  readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
   int a,n,s = 0;
   do
   {
      cout <<"N = ";
      cin >>n;
   }
   while (n<10 || n>99);
   cout <<"A = ";
   cin >>a;
   while (n!=0)
   {
     s+=n%10;
     n/=10;
   }
   if (s>a)
      cout <<"YES" <<endl;
   else cout <<"NO" <<endl;
   return 0;
}
4,4(80 оценок)
Ответ:
mikreaz
mikreaz
19.06.2021
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
procedure GetProdNeg(a:array of integer; var p:real);
// произведение отрицательных элементов
begin
  p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e)
end;

function IsPrime(n:integer):boolean:=
  Range(2,Round(sqrt(n))).All(i->n mod i<>0);

procedure ArrPrime(n:integer; var a:array of integer);
// массив простых чисел не больших n
begin
  a:=Range(2,n).Where(i->IsPrime(i)).ToArray
end;

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50); a.Println;
  var r:real;
  GetProdNeg(a,r);
  Writeln('Произведение ',r);
  n:=ReadInteger('n=');
  var b:array of integer;
  ArrPrime(n,b);
  b.Println
end.

Тестовое решение:
n= 15
27 -7 -36 40 -15 -21 -47 -28 -12 45 3 -38 -15 1 -39
Произведение 27866837980800
n= 300
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293
4,8(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ