Укажи, к какому информационному
процессу относится видеосъемка
праздника в школе.
Ообработка
Охранение
представление
сообщения
Осбор
Опередача
197
494
Ответы на вопрос:
Function sq(a,b,c: real): real; var p: real; begin p: =(a+b+c)/2; result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function tr(a,b,c: real): boolean; begin result: =(a+b> c)and(a+c> b)and(b+c> a) end; var a,b,c,k1,k2,h,t,s,r1,r2: real; begin writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 '); readln(k1); if k1=1 then begin writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)? '); readln(k2); write('сторона а = '); readln(a); write('сторона b = '); readln(b); write('сторона с = '); readln(c); if tr(a,b,c) then begin s: =sq(a,b,c); if k2=1 then begin r1: =(a+b+c)/(2*s); writeln('радиус вписанной окружности = ' , r1); end; if k2=2 then begin r2: =a*b*c/(4*s); writeln('радиус описанной окружности = ', r2); end; end else writeln('треугольник не существует'); end else if k1=2 then begin writeln('что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2' ); readln(k2); if k2=1 then begin write('высота = '); readln(h); write('cторона = '); readln(t); s: =1/2*h*t; writeln('площадь = ',s); end; if k2=2 then begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if tr(a,b,c) then begin s: =sq(a,b,c); writeln('площадь = ',s) ; end else writeln('треугольник не существует'); end; end; end. пример: найти радиус или площадь треугольника? если радиус,то нажмите 1. если площадь, то нажмите 2 2 что вам известно? если а и h, то нажмите 1. если а,b,с то нажмите 2 1 высота = 3 cторона = 4 площадь = 6
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
msajkina01.02.2021 19:32
-
Лилесим25.01.2021 03:55
-
Щащашчщ25.05.2021 13:06
-
пипл401.03.2023 04:37
-
dima284527.03.2020 18:19
-
10count13.04.2020 19:08
-
Taticyan70702.05.2021 09:28
-
dfgds114.08.2022 16:15
-
toshaprostakis4510.08.2022 01:13
-
Raphael111104.02.2020 00:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.