Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 27.05.2015, 23:14   #1
Конь Антон
Пользователь
 
Регистрация: 24.05.2015
Сообщений: 15
Репутация: 10
По умолчанию найти наибольшее и наименьшее значение функции y=3*x^2+x-4, если на заданном интервале от [a,b] х изменяется с шагом 0,1

найти наибольшее и наименьшее значение функции y=3*x^2+x-4, если на заданном интервале от [a,b] х изменяется с шагом 0,1
Конь Антон вне форума   Ответить с цитированием
Старый 28.05.2015, 06:21   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,454
Репутация: 1347

skype: newerow1989
По умолчанию

Код:

function f(x:real):real;
begin
   Result:=3*x*x+x-4;
end;

const a=-10;
      b=10;
      h=0.1;
var x,y1,y2,y3,xmin,xmax:real;
begin
   xmin:=a-h;
   xmax:=a-h;
   x:=a-h;
   Repeat
      x:=x+h;
      y1:=f(x-h);
      y2:=f(x);
      y3:=f(x+h);
      If (y1<y2) and (y2>y3) and (f(xmax)<y2) then
         xmax:=x;
      If (y1>y2) and (y2<y3) and (f(xmin)>y2) then
         xmin:=x;
   Until x>=b;
   If xmax>=a then
      Writeln('maximum: f(',xmax:5:1,') = ',f(xmax):5:3) else
      Writeln('no maximum');
   If xmin>=a then
      Writeln('minimum: f(',xmin:5:1,') = ',f(xmin):5:3) else
      Writeln('no minimum');
   Readln;
end.

Сойдет?
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 28.05.2015, 11:26   #3
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 21,648
Репутация: 4911
По умолчанию

Цитата:
Код:

    y1:=f(x-h);
      y2:=f(x);
      y3:=f(x+h);
      If (y1<y2) and (y2>y3) and (f(xmax)<y2) then
         xmax:=x;
      If (y1>y2) and (y2<y3) and (f(xmin)>y2) then
         xmin:=x;

зачем так сложно? Три переменные, какие-то проверки многоуровневые!
функция может не иметь максимум/минимум?
В условии об этом что-то сказано? Так зачем делать лишнее?

p.s. да ещё и потенциально неверно.
Например, рассмотрите линейную возрастающую функцию. y=x
если я не ошибаюсь, ваша программа выдаст, что функция минимума не имеет!
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 06.03.2017, 15:26   #4
александр12345673
Новичок
 
Регистрация: 06.03.2017
Сообщений: 1
Репутация: 10
По умолчанию

паскаль
program pr_203;
var a,b,x,y,max,min:real;
begin
readln(a,b);
x:=a;
while x<=b do begin
y:=3*x*x+x-4;
if x=a then
begin
min:=y; max:=y;
end;
if y<min then min:=y;
if y>max then max:=y;
x:=x+0.1;
end;
writeln('min = ',min,'max =',max);
end.
александр12345673 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить график и протабулировать следущие функции на заданном интервале [a,b], с заданным шагом h Pro_overrseer Помощь студентам 1 05.11.2013 23:27
Составьте программу вычисления значений функции на заданном интервале [х0, х1] с шагом dx. Asya_S Помощь студентам 2 21.05.2013 14:21
Построить график функции F(x) на заданном интервале с заданным шагом и вывести значения х и функции F(x) в таблицу в графическом р Proskurina Паскаль 8 12.11.2012 21:57
Задача:Найти наименьшее и наибольшее значение заданной функции с помощью массива.(Pascal) abiturient Помощь студентам 12 08.10.2009 20:35




06:31.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru