Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Kate2017Wes
24.02.2021 21:31 •
Информатика
Составьте блок-схему и напишите программу вычисления площади и гипотенузы прямоугольного треугольника, если известны его катеты.
Показать ответ
Ответ:
НикаиВикаСестры
02.10.2020 08:56
Var
a,b,c,z,p,r:real;
begin
writeln ('Введите катет А ');
readln (a);
writeln ('Введите катет B ');
readln (b);
z:=sqr(a)+sqr(b);
c:=sqrt(z);
writeln ('Гипотенуза равна ',c);
p:=(a+b+c)/2; {по формуле Герона нахожу полупериметр}
r:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника равна --> ',r);
end.
надеюсь блок схема понятна
0,0
(0 оценок)
Популярные вопросы: Информатика
Aldhynbaavyl
11.10.2021 14:45
Выполните задание. На бесконечном поле есть горизонтальная и вертикальная стены. Левый конец горизонтальной стены соединён с нижним концом вертикальной стены. Длины стен неизвестны....
blakblood2влад
04.03.2023 11:16
Төменде берілген сөйлемдегі 1 және 2 деген сандардың қолданылу мақсатын аңықтаңыз. Компьютер құрылғылары негізгі және қосымша болып екіге бөлінеді...
Savcik
13.05.2021 03:50
Написать программу ввода одного символа с клавиатуры и поместить в памяти под именем tmp си++...
fargustyana
09.04.2021 04:51
,не берите ответы с интернета. и напишите решение...
flow789456587
25.01.2020 17:20
Обьем свободной памяти флэш карты составляет 4 кб реферат занимает в формате docx = 5600 байт в формате pdf = 4000 байт определите и обьясните какой документ поместится на флэш...
Мимиf
20.05.2021 05:38
Вкаких условиях шло формирование и развитие жизни...
jennie17
20.05.2021 05:38
Решить (подробно с пояснениями) сторону прямоугольного участка земли,равную 35 целых 3/4 м,увеличили на 8 целых 7/20 м и получили прямоугольный участок площадью 882 квадратном...
тиматимуша
20.05.2021 05:38
Сформулируйте закон сохранения электрического заряда...
ErmolinVI
20.05.2021 05:38
Нужно ! число , состоящее из 2016 единиц, раздели на 11.сколько единиц содержится в записи частного?...
рис18
20.05.2021 05:38
Впекарне на выпечку ватрушек потратили 24 кг творога. это 1/3 всего творога, который был в пекарне. на выпечку куличей потратили ещё 36 кг творога. сколько килограммов творога...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,z,p,r:real;
begin
writeln ('Введите катет А ');
readln (a);
writeln ('Введите катет B ');
readln (b);
z:=sqr(a)+sqr(b);
c:=sqrt(z);
writeln ('Гипотенуза равна ',c);
p:=(a+b+c)/2; {по формуле Герона нахожу полупериметр}
r:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln ('Площадь треугольника равна --> ',r);
end.
надеюсь блок схема понятна