Kiper222

09.07.2021 19:37 •  Информатика

Синформатикой по теме подпрограммы-функции в паскале!
желательно с решением!
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.