Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 03.09.2016
Сообщений: 20

Найти приближенно с точностью до 0.01 наибольшее значение функции

09.09.2016, 19:35. Показов 2006. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти приближенно с точностью до 0.01 наибольшее значение функции y=(ax^2+bx+c)/(dx+e) на отрезке [x1;x2]. Значения a, b, c, d, e, x1, x2 введите с клавиатуры.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.09.2016, 19:35
Ответы с готовыми решениями:

Найти наибольшее значение функции
Всем привет! уважаемые, не могу разобраться с такой простой вещью, как поиск наибольшего.Стыдно, конечно, но уже сил нет, никак ума не...

найти наибольшее и наименьшее значение функции
1)Написать программу которая по n дня недели выводит на экран название дня. N дня вводить с клавиатуры, если 7 < n <= 0 выдать...

Найти наибольшее и наименьшее значение функции
Найти наибольшее и наименьшее значение функции y=3x*x+x-4, если на заданном интервале x меняется с шагом 0.1. Организовать цикл при вводе...

4
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
12.09.2016, 10:48
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function F(const a, b, c, d, e, x: Single): Single;
begin
    F := (a * Sqr(x) + b * x + c) / (d * x + e);
end;
var
    a, b, c, d, e, x2, y, max, x: Single;
begin
    WriteLn('Input a, b, c, d, e, x1, x2');
    ReadLn(a, b, c, d, e, x, x2);
    if (x > x2)
    then
    begin
        WriteLn('Error!');
        Exit;
    end;
    max := F(a, b, c, d, e, x);
    while (x2 - x > 0.001) do
    begin
        x := x + 0.01;
        y := F(a, b, c, d, e, x);
        //WriteLn('x=', x:0:2, ' y=', y:0:2);
        if (y > max)
        then
            max := y;
    end;
    WriteLn('max=', max:0:2);
end.
1
0 / 0 / 0
Регистрация: 03.09.2016
Сообщений: 20
14.09.2016, 21:50  [ТС]
А проверку на ввод букв и деления на ноль можешь сделать,пожалуйста?
0
0 / 0 / 0
Регистрация: 03.09.2016
Сообщений: 20
21.09.2016, 18:19  [ТС]
Неправильное решение
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
22.09.2016, 07:32
В чем неправильное? Приведите подтверждающий пример: исходные данные, полученный результат, ожидаемый результат, пояснение, почему ожидаемый результат правильный, а полученный программой -- нет.

Добавлено через 10 часов 53 минуты
ПС. При ответе постарайтесь учесть https://habrahabr.ru/post/309812/
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
22.09.2016, 07:32
Помогаю со студенческими работами здесь

На заданном интервале [a,b] найти наибольшее значение функции
На заданном интервале найти наибольшее значение функции y=3*x*x+x-4,если x изменяется с шагом 0,5. Аргументы и значения функции привести в...

Цикл for: Найти наибольшее значение функции y=ax3+bx+c
Написать задачу с помощью цикла for Найти наибольшее значение функции y=ax3+bx+c при за данных параметрах a, b, c, если х...

Найти наименьшее и наибольшее значение функции на заданном промежутке
Задание: Найти наименьшее и наибольшее значение функции на промежутке. y=\sqrt{x-{x}^{3}}\, x\epsilon Проблема в том, что не...

Найти наибольшее и наименьшее значение функции в заданном интервале с заданным шагом.
Найти наибольшее и наименьшее значение функции в заданном интервале с заданным шагом.

Найти приближенно с точностью до 0.01 наибольшее значение функции на отрезке
Найти приближенно с точностью до 0.01 наибольшее значение функции y=(ax^2+bx+c)/(dx+e) на отрезке . Значение a,b,c,d,e,x1,x2 введите с...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru