Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
3 / 3 / 0
Регистрация: 23.09.2020
Сообщений: 73

Вычислить значение выражения

16.02.2021, 17:40. Показов 891. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Непонятная задача.
дано действительные числа a,b,c, получить:
max(a,a+b)+max(a,b+c)/(1+max(a+bc,1,15))
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.02.2021, 17:40
Ответы с готовыми решениями:

Вычислить значение выражения
(exp(y*ln(x))+exp(z*ln(y)))/a+exp(5*ln(b))

Вычислить значение выражения
Вычислить значение выражения Y=25x^5-\sqrt{x^2+x}\ \ \ \ npu\ x=25.144

Вычислить значение выражения
program bis; uses crt; begin f:=power(2,x)+5*x-3; end; var a,b,x,e:real; N:integer; begin N:=0; writeln('ввести пределы a, b,...

8
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
16.02.2021, 17:49
Получить (max(a,a+b)+max(a,b+c)) / (1+max(a+bc,b,15))
1
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
16.02.2021, 17:51
Catveira, и что тут непонятного? не знаешь, что такое функция max() ?
Так это функция возвращает максимальное значение из переданных ей аргументов.

остальное - это просто арифметика: сложение, умножение, деление.
0
3 / 3 / 0
Регистрация: 23.09.2020
Сообщений: 73
16.02.2021, 18:09  [ТС]
запятые в конце 1,15, это сравнение того, что получилось с этими числами?
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
16.02.2021, 18:29
Цитата Сообщение от Catveira Посмотреть сообщение
max(a+bc,1,15))
Сравниваются числа
a+b*c
1
15
и из них находится наибольшее.
0
3 / 3 / 0
Регистрация: 23.09.2020
Сообщений: 73
16.02.2021, 19:23  [ТС]
а как вставить в функцию max сложение умножение и т.д.?
0
Модератор
10450 / 5740 / 3409
Регистрация: 17.08.2012
Сообщений: 17,472
16.02.2021, 22:58
В теле функции max никакие арифметические операции не требуются, поскольку при вычислении максимума требуются только логические операции, а в формальных параметрах при вызове функции - как написано в формуле, так и пишите.

В программе по ссылке зачем-то сделаны аж целых две подпрограммы для разных максимумов, это незачем, поскольку максимум трёх чисел можно вычислить с помощью функции вычисления максимума двух чисел:
max(u,v,w)=max(max(u,v),w).

Вот так проще:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function max(x, y: real): real; //функция вычисления максимума двух чисел
begin
  if x > y then max := x else max := y //если первое число больше, то максимум = первое, иначе максимум = второе
end;
 
var
  a, b, c, y: real; //числа, результат
begin
  write('a = '); //вводим числа
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  y := max(a, a+b) + max(a, b+c) / (1 + max(max(a+b*c, 1), 15)); //вычисляем выражение
  writeln('y = ', y); //выводим результат
  readln
end.
0
3 / 3 / 0
Регистрация: 23.09.2020
Сообщений: 73
17.02.2021, 00:23  [ТС]
у меня что то не сходится

Добавлено через 1 минуту
a=2 b=4 c=6
max(a, a+b) + max(a, b+c) / (1 + max(max(a+b*c, 1), 15))
max(2,2+4) + max(2, 4+6) = 16
1+max(max(2+4*6,1),15)) = 27
16/27=0.5925
но программа выдает 6.37037037037037, почему так? я что то упускаю из виду?

Добавлено через 43 минуты
я понял
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
y := max(a, a+b) + max(a, b+c) / (1 + max(max(a+b*c, 1), 15)); //вычисляем выражение
тут не стояли скобки и потому оно считало как 6+10/27
0
Модератор
10450 / 5740 / 3409
Регистрация: 17.08.2012
Сообщений: 17,472
17.02.2021, 02:07
У меня сделано всё правильно. Это не "тут не стояли скобки", а в задании Вашем скобок нет. Поэтому ответ должен быть 6.3703, а не 0.5925, как Вы ошибочно полагаете.

Вы ошиблись при копировании задания? если так, то будьте в следующий раз внимательнее. Если Вы скопировали всё верно, то у меня для Вас плохие новости: чтобы получилось 0.5925, в задании должно быть написано (max(a,a+b)+max(a,b+c))/(1+max(a+bc,1,15)), но это не так. Может быть, Вы считаете, что всё, что до знака дроби, непременно должно быть числителем? Если так, то Вы заблуждаетесь, и Вам нужно почитать что-нибудь про приоритеты операций.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.02.2021, 02:07
Помогаю со студенческими работами здесь

Вычислить значение выражения
Добрых суток!Помогите, пожалуйста, написать программу на языке Pascal и составить блок-схему. Вычислить: (sin 2x+ sin 5x- sin 3x)/(cos...

Вычислить значение выражения
Задание по информатике. Даны два числа x и y. Вычислить

Вычислить значение выражения
Вычислить.y=система sin(8.x).x больше или равно 0 2x+4.x больше 5 где x-натуральные числа,y-с дробной частью.

Вычислить значение выражения
sqrt(1+sqrt(2+sqrt(3+...+sqrt(9+sqrt(10))))) Задача на цикл

Вычислить значение выражения
Привет, парни помогите решить задачи... y=\begin{cases}x+1 & \text{ , } x<0 \\\\ 2x & \text{ , } x\geq 0\end{cases} (Фотография...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru