beginread(a, b); x := a;writeln(' x', ' ', ' y'); writeln('----------------'); while x <= b do begin y := (3 * sqr(x) + x - 4); if(x = a) then maxy := y else if(maxy < y) then maxy := y; writeln(x:1:1, ' ', y:1:2); x := x + 0.5; end; writeln; write('Наибольшее значение функции равно ', maxy); end.
Answers & Comments
varx, y, maxy: real;
a, b: integer;
beginread(a, b);
x := a;writeln(' x', ' ', ' y');
writeln('----------------');
while x <= b do
begin
y := (3 * sqr(x) + x - 4);
if(x = a) then maxy := y
else if(maxy < y) then maxy := y;
writeln(x:1:1, ' ', y:1:2);
x := x + 0.5;
end;
writeln;
write('Наибольшее значение функции равно ', maxy);
end.