Написать программу нахождения Ymax, если задана функция:

Y = Х2 - 100 Х + 10, где Х изменяется от Хнач. до Хкон. с шагом С. Программа должна так же выводить и значение Х, при котором Y принимает максимальное значение.

Значения Хнач., Хкон. и С должны задаваться пользователем при выполнении программы. Для организации цикла воспользуйтесь оператором While.

Question

Информатика

Лаврен

27 сентября, 01:27

Написать программу нахождения Ymax, если задана функция:

Y = Х2 - 100 Х + 10, где Х изменяется от Хнач. до Хкон. с шагом С. Программа должна так же выводить и значение Х, при котором Y принимает максимальное значение.

Значения Хнач., Хкон. и С должны задаваться пользователем при выполнении программы. Для организации цикла воспользуйтесь оператором While.

+1

Ответы (1)

Знаете ответ на вопрос?

Евстафия · Answer 1

Var

x0, xn, c:real;

x, y, xmax, ymax:real;

begin

writeln ('Xнач, Xкон:') ;

readln (x0, xn) ;

write ('С = ') ; readln (c) ;

x:=x0;

xmax:=x; ymax:=x*x-100*x+10;

while x
begin

x:=x+c;

y:=x*x-100*x+10;

if y>ymax then begin xmax:=x; ymax:=y; end;

end;

writeln ('xmax = ', xmax,' ymax = ', ymax) ;

end.

Пример:

Xнач, Xкон:

-10 20

С = 1

xmax = - 10 ymax = 1110