В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
farita1
farita1
05.03.2021 22:09 •  Алгебра

Sub макрос5() ' ' макрос5 макрос ' ' dim number as long dim names as string number = inputbox("введите номер курсанского") names = inputbox("введите фамилию имя отчество") dim sa as double dim step as long dim min_num as integer sa = number mod 10 step = 10 do dim this_num as integer this_num = ((number - number mod step) mod (step * 10)) / step sa = (sa + this_num) / 2 step = step * 10 loop while step < number first_space_index = instr(1, names, " ") last_space_index = instrrev(names, " ", len(names)) len_first_word = len(left(names, first_space_index - 1)) len_second_word = last_space_index - 1 - first_space_index len_third_word = len(names) - last_space_index if len_first_word < = len_second_word then if len_frist_word < = len_third_word then min_num = len_first_word else min_num = len_third_word end if elseif len_second_word < = len_third_word then min_num = len_second_word else min_num = len_third_word end if selection.wholestory dim words_count as integer words_count = selection.words.count selection.homekey unit: =wdstory for i = 1 to words_count selection.moveright unit: =wdword, count: =1, extend: =wdextend if len(selection.text) < = sa then selection.font.size = 18 selection.font.colorindex = wdred selection.font.spacing = 3 selection.font.bold = true end if if len(selection.text) > = min_num then selection.text = " okay " end if selection.moveright unit: =wdcharacter, count: =1 next i end sub разобраться в макросепоясните каждое действиезаранее огромное !

Показать ответ
Ответ:
zmeya9
zmeya9
26.11.2020 13:27
1) x² - 8 x +15 = 0
По теореме Виета если  х1  и х2  -  корни этого уравнения, то 
         х1 + х2  =  8
         х1*х2  =  15  =>   корни одного знака     х1 =  3,      х2 = 5
Нам требуется записать квадратное уравнение, корни которого отличались бы от данных корней только знаками,  т.е  корнями будут  числа    -3 и -5.
По теореме о разложении квадратного трехчлена на множители уравнение с таким корнями будет иметь вид:  (х + 3)( х + 5) = 0            раскроем скобки
                     х² +5х + 3х + 15 = 0
                     х² + 8х + 15 = 0 
Вывод:    приведенное уравнение, корни которого отличаются от корней данного уравнения только знаками,  имеет коэффициент  Р обратный по знаку от исходного.                  
 2)    x² + bx + c=0          =>           x² -  bx + c=0             
0,0(0 оценок)
Ответ:
DANIIL12317
DANIIL12317
11.06.2020 11:42
Log(6x+1, 25x)-2log(25x, 6x+1)>1
ОДЗ:
25x>0 => x>0
6x+1>0 => x>-1/6
25x=\=1 => x=\=-1/25
6x+1=\=1 => x=\=0
общий промежуток ОДЗ: x>0
пользуемся свойством логарифмов
log(6x+1, 25x)-2/log(6x+1, 25x)>1
t= log(6x+1, 25x)
t-2/t<1
(t^2-t-2)/2<0
методом интервалов
t C (-1;0) U (2;+oo)
возвращаемся к переменной
 log(6x+1, 25x)>-1
1. 6x+1>0 => x>-1/6
6x+1<1 => x<0
x C (-1/6;0)
меняем знак неравенства. больше расписывать этот момент не будем, т.к. в остальных случаях промежуток тот же
нет решений
2. 6x+1>1 => x>0
25x>1/(6x+1)
x>1/30

log(6x+1, 25x)<0 
1. x C (-1/6;0)
25x>1 => x>1/25; нет решений
2. x  C (0;+oo)
25x<1 => x<1/25
x C (0;1/25)

log(6x+1, 25x)>2
1. x C (-1/6;0)
25x<(6x+1)^2
x C (-1/6;0)
2. x C (0;+oo)
25x>(6x+1)^2
x C 1/9;1/4)
 объединяем решения
x C (1/30; 1/25) U (1/9; 1/4)
0,0(0 оценок)
Популярные вопросы: Алгебра
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота