М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Артемка0610
Артемка0610
26.03.2023 04:10 •  Информатика

Найти минимум функции: y = log^3 ( |x -12|^1,7 +5,1) логарифм по основанию 2. язык паскаль

👇
Ответ:
Жебир
Жебир
26.03.2023
Function f(x: real): real;
begin
  f := exp(3 * ln(ln(exp(1.7 * ln(abs(x - 12))) + 5.1))) / exp(3 * ln(ln(2)));
end;

var
  a, b, eps, r, delta, lp, rp, sgn: real;

begin
  r := (sqrt(5) + 1) / 2; {Пропорция золотого сечения}
  writeln('Пропорция золотого сечения=', r:0:6);
  writeln('Задайте границы интервала и точность решения');
  readln(a, b, eps);
  delta := eps / 2;
  rp := a + (b - a) / r;
  lp := b - (b - a) / r;
  if f(a) > (f(a + delta)) then sgn := 1 else sgn := -1;
  while abs(b - a) > eps do
  begin
    rp := a + (b - a) / r;
    lp := b - (b - a) / r;
    if (sgn * f(lp)) < (sgn * f(rp)) then b := rp else a := lp
  end;
  if sgn = -1 then writeln('Максимум достигнут при х=', lp:0:6,
      ', значение функции равно ', f(lp):0:6)
  else writeln('Минимум достигнут при х=', rp:0:6,
      ', значение функции равно ', f(rp):0:6)
end.

Тестовое решение:

Пропорция золотого сечения=1.618034
Задайте границы интервала и точность решения
11 15 0.00001
Минимум достигнут при х=11.999996, значение функции равно 12.986115
4,4(12 оценок)
Открыть все ответы
Ответ:
makslitovchenk
makslitovchenk
26.03.2023
Цикл с предусловием это такой цикл, в котором условие проверяется перед выполнением тела цикла.
А цикл с постусловием - на оборот, он сначала выполнит, а потом проверит условие и если условие true, то цикл завершится.

Цикл с постусловием, можно использовать в таких ситуациях, когда надо что-то сделать и если чего-то не хватает, то сделать еще раз. Напрмер отправить письмо на email, а если не отправилось, то повторить еще 3 раза. Сначала выполнится тело цикла, в котором находятся функции отправки письма и если отправка удачная, то сообщаем until() true. Иначе тело выполнится еще и еще и еще кучу раз, если мы не задали счетчик в теле цикла, как вариант...

Цикл с предусловием можно использовать, если надо проверять какое-то значение ПЕРЕД выполнением тела цикла и тебе не важно, должно ли оно хоть раз выполниться. Например запросить пароль у пользователя. Но если пользователь уже ввёл пароль, то зачем его запрашивать? Тут можно было бы использовать while
4,6(76 оценок)
Ответ:
maksymmakarec
maksymmakarec
26.03.2023
Сколь­ко су­ще­ству­ет раз­лич­ных на­бо­ров зна­че­ний ло­ги­че­ских пе­ре­мен­ных x1, x2, … x8, y1, y2, … y8, ко­то­рые удо­вле­тво­ря­ют всем пе­ре­чис­лен­ным ниже усло­ви­ям?

 

(x1 ∨ x2) ∧ ((x1 ∧ x2) → x3) ∧ (¬x1 ∨ y1) = 1

(x2 ∨ x3) ∧ ((x2 ∧ x3) → x4) ∧ (¬x2 ∨ y2) = 1

(x6 ∨ x7) ∧ ((x6 ∧ x7) → x8) ∧ (¬x6 ∨ y6) = 1

(x7 ∨ x8) ∧ (¬x7 ∨ y7) = 1

(¬x8 ∨ y8) = 1

 

В от­ве­те не нужно пе­ре­чис­лять все раз­лич­ные на­бо­ры зна­че­ний пе­ре­мен­ных x1, x2, … x8, y1, y2, … y8, при ко­то­рых вы­пол­не­на дан­ная си­сте­ма ра­венств. В ка­че­стве от­ве­та Вам нужно ука­зать ко­ли­че­ство таких на­бо­ров.

 

По­яс­не­ние.

Из по­след­не­го урав­не­ния на­хо­дим, что воз­мож­ны три ва­ри­ан­та зна­че­ний x8 и y8: 01, 00, 11. По­стро­им древо ва­ри­ан­тов для пер­вой и вто­рой пар зна­че­ний.

 

 

Таким об­ра­зом, имеем 16 на­бо­ров пе­ре­мен­ных.

Де­ре­во ва­ри­ан­тов для пары зна­че­ний 11:

 

 

По­лу­ча­ем 45 ва­ри­ан­тов. Таким об­ра­зом, си­сте­ма будет иметь 45 + 16 = 61 раз­лич­ных на­бо­ров ре­ше­ний.

 

ответ: 61
4,6(61 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ