Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  й
Language: PASCAL
Code:
Program A14;
Uses crt;
Var d,a,b,t,M,R :real;
Function F(x : real):real;
begin
F:=(x+2)*(4-x);
end;
BEGIN
a:=-2; b:=4;
d:=0.1;
t:=a; M:=a; R:=F(a);
while t<=b do
begin
if (F(t)>R) then
begin
M:=t;
R:=F(t);
end;
t:=t+d;
end;
write(M);
END.
Comments: