Найти минимум и максимум функции

@gogo2099 · Регистрация: 20.11.2016

Студворк — интернет-сервис помощи студентам

помогите решить 31. Найти минимум и максимум функции Y = X3 – 7X +8, х принимает целые значения на интервале [a,b]

@Cyborg Drone · 20.11.2016, 23:01

Pascal

var a, b, x, imin, imax: integer;
    y, min, max: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if a > b
    then begin
      x := a;
      a := b;
      b := x
    end;
  min := a * a * a - 7 * a + 8;
  max := min;
  imin := a;
  imax := a;
  for x := a + 1 to b do
    begin
      y := x * x * x - 7 * x + 8;
      if y < min
        then begin
          min := y;
          imin := x
        end
        else if y > max
        then begin
          max := y;
          imax := x
        end
    end;
  writeln('Минимум: Y(', imin, ') = ', min, ', максимум: Y(', imax, ') = ', max);
  readln;
end.

@gogo2099 1 / 1 / 0 Регистрация: 20.11.2016 Сообщений: 85
		1
	Найти минимум и максимум функции 20.11.2016, 15:23. Показов 1892. Ответов 1 Метки нет (Все метки) помогите решить 31. Найти минимум и максимум функции Y = X3 – 7X +8, х принимает целые значения на интервале [a,b] 0

Опции темы

Найти минимум и максимум функции

Решение