Question

Помогите пожалуйста составить программу:
Найти наибольшее значение функции y=ax в квадрате+bx+c на отрезке [x1,x2]

Answer 1

var
    y, a, b, c, x, x2, h, max: real;

begin
    write('Введите a,b,c');
    readln(a, b, c);
    write('Введите x1,x2 и шаг');
    readln(x, x2, h);
    
    max := a * x * x + b * x + c;
    repeat
        y := a * x * x + b * x + c;
        if max < y then max := y;
        x := x + h;
    until x > x2;
    
    writeln(max);
end.

Answer 2

Var
 i,max,x1,x2,a,b,c:integer;
begin
 read(x1,x2,a,b,c);
 max:=-2147483648;
 for i:=x1 to x2 do
 if a*sqr(i)+b*i+c>max then max:=a*sqr(i)+b*i+c;
 writeln(max);
end.