Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
artenyancz
15.12.2022 20:44 •
Информатика
Написать программу по данной блок-схеме.Марс Алгоритмика
Показать ответ
Ответ:
yousei1234
07.12.2021 16:55
Function ArcCos(x:real):real;
var t:real;
begin
t:=ArcTan(Sqrt(1-x*x)/x);
if x<0 then ArcCos:=t+Pi
else ArcCos:=t
end;
var
a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
Read(a,b,p);
c:=p-a-b;
p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
h:=a*Sin(beta);
alpha:=alpha*180/Pi;
beta:=beta*180/Pi;
gamma:=180-alpha-beta;
Writeln('c=',c);
Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
Writeln('S=',s,', h=',h)
end.
0,0
(0 оценок)
Ответ:
Dashaass554
26.05.2022 04:27
#include <iostream>#include <iomanip>#include <ctime>
using namespace std;
int main(){ setlocale(LC_ALL, "RUSSIAN"); const int N = 10; int arr[N]; int K, L, sum = 0, sumexcl = 0; srand(time(NULL)); for (int i = 0; i < N; i++) { arr[i] = rand() % 10; sum += arr[i]; } cout << "Введите K >> "; cin >> K; cout << "Введите L >> "; cin >> L; for (int i = 0; i < N; i++) { cout << arr[i] << " "; if((i>=K) && (i<=L)) sumexcl += arr[i]; } sum -= sumexcl; cout << "Результат: " << sum << endl; system("pause");}
0,0
(0 оценок)
Популярные вопросы: Информатика
davidegorov19
15.01.2022 02:33
Какие имена переменных правильные а )lab 25 б) lab_25 в) lab-25 г) 25lab д) begin какие операторы неправильные? а) X:=0,5 б) Y:=2 в) 10:=a г) В:=a+10 чему равно арифмическое...
Nastay1234899
04.08.2020 23:13
Какое число выдаст? i=1 print ( 9 , end= ) while i 3: print ( i, end= ) i += 1...
новиновичек
10.12.2021 04:57
В чём различие стандартных и загружаемых драйверов...
Lezka
03.11.2020 11:56
По блок схеме составить программуОстальное на рисунке...
leralerav
12.12.2021 20:02
Розріж кільце двома лініями на 5 частин...
gsajhja
09.06.2022 21:43
Зачем главе протогосударства потребовалось сосредоточивать в своих руках жреческую власть?...
Yuliy5321
09.06.2022 21:43
Замените выделенные глаголы существительными стремиться к знаниям; просмотреть почту; пригласить на вечер; тосковать по другу зарание !...
maslennikovavi2
09.06.2022 21:43
Подбери синоним к слову новых в предложении: великими известными мореплавателями и открывателями новых земель были викинги....
tatksyushap06w3y
09.06.2022 21:43
Суровый осени печально поздний вид . уныло спят безопасные растения . кто написал этот текст ....
jdavidkina
09.06.2022 21:43
Как разделить 44,8 разделить на 28 ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var t:real;
begin
t:=ArcTan(Sqrt(1-x*x)/x);
if x<0 then ArcCos:=t+Pi
else ArcCos:=t
end;
var
a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
Read(a,b,p);
c:=p-a-b;
p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
h:=a*Sin(beta);
alpha:=alpha*180/Pi;
beta:=beta*180/Pi;
gamma:=180-alpha-beta;
Writeln('c=',c);
Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
Writeln('S=',s,', h=',h)
end.
using namespace std;
int main(){ setlocale(LC_ALL, "RUSSIAN"); const int N = 10; int arr[N]; int K, L, sum = 0, sumexcl = 0; srand(time(NULL)); for (int i = 0; i < N; i++) { arr[i] = rand() % 10; sum += arr[i]; } cout << "Введите K >> "; cin >> K; cout << "Введите L >> "; cin >> L; for (int i = 0; i < N; i++) { cout << arr[i] << " "; if((i>=K) && (i<=L)) sumexcl += arr[i]; } sum -= sumexcl; cout << "Результат: " << sum << endl; system("pause");}