Question

Синформатикой по теме подпрограммы-функции в паскале!
желательно с решением!
1)определите, какое число будет напечатано в результате выполнения следующего
алгоритма:
var a,b,t,m,r: integer;
function f(x: integer): integer;
begin
f: =(5-x)*(x+3);
end;
begin
a: =-20; b: =20;
m: =a; r: =f(a);
for t: =a to b do begin
if (f(t)> r)then begin
m: =t;
r: =f(t);
end;
end;
write(r);
end.

2) определите, какое число будет напечатано в результате выполнения следующего
алгоритма:
var a,b,t,m,r: integer;
function f(x: integer): integer;
begin
f: =(x-5)*(x+3);
end;
begin
a: =-5; b: =5;
m: =a; r: =f(a);
for t: =a to b do begin
if (f(t)> r)then begin
m: =t;
r: =f(t);
end;
end;
write(m);
end.

3) определите, какое число будет напечатано в результате выполнения следующего
алгоритма:
var a,b,t,m,r: integer;
function f(x: integer): integer;
begin
f: = abs(x-5) + abs(x+5) - 3;
end;
begin
a: =-20; b: =20;
m: =a; r: =f(a);
for t: =a to b do begin
if (f(t) m: =t;
r: =f(t);
end;
end;
write(m+r);
end.

4)определите, какое число будет напечатано в результате выполнения следующего
алгоритма:
var a,b,t,m,r: integer;
function f(x: integer): integer;
begin
f : = abs(x-7)+abs(x+7) - 16
end;
begin
a : = -20; b : = 20;
m : = a; r: = f(a);
for t : = a to b do begin
if (f(t)< =r) then begin
m : = t;
r: = f(t)
end
end;
write(m+r);
end.

Answer 1

dim a, b, t, m, r as integer

a = -20: b = 20

m = a: r = f(a)

for t = a to b

    if f(t) < r then

        m = t

        r = f(t)

    end if

next t

print r

function f(x)

    f : = 4*(x-5)*(x+3)

end function

var a,b,t,m,r : integer;

    function f(x: integer): integer;

    begin

        f : = 4*(x-5)*(x+3);

    end;

begin

    a : = -20; b : = 20;

    m : = a; r : = f(a);

    for t : = a to b do begin

        if (f(t)< r) then begin

            m : = t;

            r : = f(t);

        end;

    end;

write(r);

end.