Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
marmurinajulia
17.04.2020 11:42 •
Информатика
Pascal 1. дан прямоугольный треугольник с катетами a и b. составьте программу для вычисления гипотенузы c, периметра, площади, радиуса вписанной и описанной окружности. напишите программу в pascal
Показать ответ
Ответ:
Ахмрев
31.07.2020 17:56
Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;
begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vadosik228
08.10.2021 11:17
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок...
remboibragimov
11.08.2022 12:23
Напишите в чертежнике алгоритм слова женя 25...
гульназ5623
06.11.2022 16:17
Напишите программу, которая сортирует массив (по возрастанию или убыванию) и находит количество различных чисел в нём. Пример:Массив:534216324После сортировки:122334456Различных...
Ботаник1111111111
19.06.2020 16:37
Задание №1 Выполнить сканирование и лечение локального диска, содержащего зараженные вирусами файлы с не менее чем двух антивирусных программ. Можно использовать следующие дополнительные...
faa7
06.01.2020 13:31
Алг нач цел s,k s:=1 нц для k от 1 до 5 s:=s*k кц вывод s кон...
жанара06
01.10.2020 16:46
Составить 2 задачи в паскале 1. Вася и Петя ловили рыбу. У Васи хорошо клевало, у Пети хуже. Сколько рыбы они вместе поймали, если Петя поймал на 18 меньше, чем они поймали вместе...
еджика
12.10.2022 06:41
Дано число 424000000. Данное число можно представить в виде 0,424⋅10...
ВладКрикет
01.06.2023 00:39
Сравните нумерованные и маркированные списки Что у них общего и в чём различие...
pstepanova496
07.04.2020 14:32
Как создать npc объект (к примеру червяка :D) в unity3d?...
алла7781
19.09.2022 01:20
Добрый день. Возник такой во Что такое стиль работ в фотошопе под названием Деревня ? Хотелось бы увидеть пример таких работ. Также утверждают, что это связанно с винтажом напрямую....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;
begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.