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

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

👇
Ответ:
antoxor
antoxor
15.03.2023
Написать программу нахождение площади треугольника

Написать программу нахождение площади треугольника
4,4(3 оценок)
Открыть все ответы
Ответ:
sitkovskiygleb
sitkovskiygleb
15.03.2023

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   int N, average, sum = 0, counter = 0;

   cout << "Введите размер массива (N): ";

   cin >> N;

   int A[N];

   cout << "Вводите значения массива: " << endl;

   for (int i = 0; i < N; ++i){

       cin >> A[N];

       sum += A[N];

   }    

   average = sum / N;    

   cout << "Среднее арифметическое: " << average << endl;    

   for (int i = 0; i < N; ++i){

       if(A[i] < average){

           counter++;

       }

   }

   cout << "Кол-во элементов: " << counter << endl;

   return 0;

}

4,8(10 оценок)
Ответ:
DevilWoods
DevilWoods
15.03.2023
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var xa,ya,xb,yb,xc,yc:real;
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  var xd:=(xb+xc)/2;
  var yd:=(yb+yc)/2;
  var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
  Writeln('ma=',ma:0:5);
  var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
  var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
  var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
  var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
  Writeln('Wb=',Wb:0:5)
end.

Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667

Pascal. записать листинг программы на языке паскаль: треугольник задан координатами вершин а(0; 0),
4,6(81 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ