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

Треугольник задан длинами сторон. найти радиусы вписанной и описанной окружностей. решите в c# как можно проще

👇
Ответ:
Yuki16
Yuki16
27.01.2020
Если нужен ввод через запятую:
using System;
namespace ConsoleApp14{    class Program    {        static void Main(string[] args)        {            Console.WriteLine("Введите длины сторон треугольника через запятую");            string[] OutS = Console.ReadLine().Split(',');            double a = Convert.ToInt32(OutS[0]);            double b = Convert.ToInt32(OutS[1]);            double c = Convert.ToInt32(OutS[1]);            double p = ((a + b + c) / 2);            Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c;            Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p));            Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется
        }    }}
Если не хочешь использовать метод Split:
using System;
namespace ConsoleApp14{    class Program    {        static void Main(string[] args)        {            Console.WriteLine("Введите длину стороны a");                       double a = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("Введите длину стороны b");            double b = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("Введите длину стороны c");            double c = Convert.ToInt32(Console.ReadLine());            double p = ((a + b + c) / 2);            Console.WriteLine("Радиус описанной окружности: {0}", (a*b*c)/(4*Math.Sqrt(p*((p-a)*(p-b)*(p-c;            Console.WriteLine("Радиус вписанной окружности: {0}", Math.Sqrt(((p-a)*(p-b)*(p-c))/p));            Console.ReadKey(); //пока не нажать любую кнопку, программа не закроется
        }    }}
4,6(63 оценок)
Открыть все ответы
Ответ:
Houghin
Houghin
27.01.2020
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  м1, с1, м2, с2, м3, с3: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Первый спортсмен: ");
  м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
  Вывод.Цепь("^Второй спортсмен: ");
  м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
  Вывод.Цепь("^Третий спортсмен: ");
  м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();

  с1 := с1 + м1 * 60;
  с2 := с2 + м2 * 60;
  с3 := с3 + м3 * 60;

  ЕСЛИ с1 > с2 ТО
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с1 > с3 ТО
      Вывод.Цепь("^Первый.")
    ИНАЧЕ
      Вывод.Цепь("^Первый и третий.")
  АЕСЛИ с2 > с1 ТО
    ЕСЛИ с3 > с2 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с2 > с3 ТО
      Вывод.Цепь("^Второй.")
    ИНАЧЕ
      Вывод.Цепь("^Второй и третий.")
  ИНАЧЕ
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с3 < с1 ТО
      Вывод.Цепь("^Первый и второй.")
    ИНАЧЕ
      Вывод.Цепь("^Ничья.")
  КОН

КОН Задание.
Нужно решить . 75 + первому кто ответит лучший засчитаю. в компьютер поступают результаты соревнован
4,6(26 оценок)
Ответ:
bambam4
bambam4
27.01.2020
Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 15 ИЗ ВЕЩ;
  сч, найдено: ЦЕЛ;
  найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;

УКАЗ
  найдено := 0;
  СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] = массив[0] ТО
      найденное[найдено] := сч;
      УВЕЛИЧИТЬ(найдено)
    КОН
  КОН;
  ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
  ИНАЧЕ
    СОЗДАТЬ(индексы, найдено);
    ОТ сч := 0 ДО найдено - 1 ВЫП
      индексы[сч] := найденное[сч]
    КОН;
    найденное := ПУСТО
  КОН

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