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

Заданы длины катетов прямоугольного треугольника. составьте программу,с которой определите радиус вписанной и радиус описанной окружности.

👇
Ответ:
gilsveta4
gilsveta4
22.01.2021
Формулы:
с=кв.корень из (а^2+b^2)
r=(a+b-c)/2
R=c/2

var   a,b,c,r1,r2: real;
begin
  write ('введите катет а: ');
  readln (a);
  write ('введите катет b: ');
  readln (b);
  c:=sqrt(a*a+b*b);
  r1:=(a+b-c)/2; //радиус вписанной окружности
  r2:=c/2; //радиус описанной окружности
  writeln;
  writeln ('r = ',r1:6:2);
  writeln ('R = ',r2:6:2);
end.

Пример:
введите катет а: 4
введите катет b: 6
r =   1.39
R =   3.61
***значения округлены до 2 знаков после запятой
4,4(25 оценок)
Открыть все ответы
Ответ:
Алёна280104
Алёна280104
22.01.2021
Дискретные сигналы (они же цифровые) - принимают конечное число значений функции:
примеры дискр: 
- энергетические уровни атома, 
- сигналы светофора
- символы, слова... и т.д. и т.п.
непрерывный (он же аналоговый) - принимает бесконечное количество значений функции, амлитуда и время которого меняются непрерывно. 
примеры непрерывных: 
- звуковая волна, 
- диаграмма изменения влажности, напряжения, и других некоторых физических величин

для преобразования непрерывного сигнала в дискретные производят дискретизацию. Процесс дискретизации сопровождается потерей информации если частота дискретизации  в 2 раза меньше максимальной частоты непрерывного сигнала по теореме Найквиста... В России эту теорему называют Котельникова.
4,5(27 оценок)
Ответ:
Роман768
Роман768
22.01.2021
Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

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