Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vlad200883
19.11.2022 09:07 •
Информатика
Какие из нижеперечисленных команд НЕ относятся командами для кодирования объектов
AutoCAD
1. масштабирование
2. стирания
3.штриховка
4.фаска
Показать ответ
Ответ:
Айринчик
22.12.2021 06:00
1. Вот так сейчас решают подобные задачи:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
0,0
(0 оценок)
Ответ:
sashaloxas
08.05.2023 04:48
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
0,0
(0 оценок)
Популярные вопросы: Информатика
linaangel20012
23.01.2022 23:12
Сколько секунд потребуется модему, передающему сообщения со скоростью 62208 бит/с, чтобы передать цветное растровое изображение размером 1440x900 пикселов, при условии, что цвет...
ElyalyaЗ
01.01.2020 02:18
Отметьте все числа, которые записаны неправильно. 120(2) 383(8) 431(5) 537(6) 135(8)...
DALERALIMOV02
22.05.2023 02:26
Как можно кодировать информацию...
bisenkoda
13.01.2020 04:50
21. Предложение «Алгоритмом_называется набор - правил, описы- вающих порядок действий исполнителя. » содержит лишние про-белы. За какое количество операций «Найти и заменить все»...
данаасус
05.06.2020 20:05
Составить программу вычисления выражения S=b+2b+3b++Nb, где b-любое целое число...
Rzaevat
10.04.2022 02:26
Придумайте и опишите свой вариант командной игры по теме: «Роль алгоритмов в повседневной жизни». В описании необходимо указать: название игры, необходимое оборудование, подробное...
KendallK
04.02.2023 10:53
Як найлегше змінити формат усіх елкмкнтів тексту, до яких застосовано певний стиль...
linasokol03
24.11.2020 05:54
21. Предложение «Алгоритмом_называется набор - правил, описы- вающих порядок действий исполнителя.» содержит лишние про-белы. За какое количество операций «Найти и заменить все»...
киря2289
17.05.2022 16:54
10*. Розгадайте ребус і поясніть значення отриманого слова. O ur ТиеВідповідь:Значення слова:...
амина74726
26.07.2022 05:51
В списке выберите, к чему относится метод кодирования (форма представления)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;