I: integer;

begin

x:=0.5; s:=5.2;

min:=x*(s+x);

for i:=1 to5 do begin

y:=x*(s+x);

if min>y then min:=y;

x:=x+0.2;

end; writeln(‘min=’,min:4:2);

end.

в) var x, y, s, min: real;

i: integer;

begin

x:=0.5; s=5.2;

min:=x*(s+x);

for i:=1.2 to 5 do begin

y:=x*(s+x);

if min<=y then min:=y;

x:=x+0.2; end;

writeln(‘min=’, min:4:2);

end.

г) var x, y, s, min, i: real;

begin

x:=0.5; s=5.2;

min:=x*(s+x);

for i:=1 to 5 do begin

y:=x*(s+x);

if min>y then y:=min;

x:=x+0.2;

end;

writeln(‘min=’, min:4:2);

д) var i, y, s, min: real;

x: integer;

begin

x:=0.5; s:=5.2;

min:=x*(s+x);

for i:=1 to5 do begin

y:=x*(s+x);

if min<y then min:=y;

x:=x+0.2; end;

writeln(‘min=’,min:4:2);

end.

Який з фрагментів програми пошуку максимального значення функції не містить помилок:

а) var x, y, s, max: real;

I: integer;

begin

x:=0.4;s:=9.5;

max:=x*sin(x+s);

for i:=1 to 5 do begin

y:=x*sin(x+s);

if max>y then max:=y;

x:=x+0.3;

end; writeln(‘max=’,max:4:2);

end.

б) var x, y, s: real;

i: integer;

begin

x:=0.2; s:=0.1;

for i:=1 to (-5) do begin

y=sin(x+s);

s:=s+y; end;

writeln(‘s=’,s:4:2);

end.

в) var x, y, s, max: real;

i: integer;

begin

x:=0.4; s=9.2;

max=x*sin(x+s);

for i:=1 to 5 do begin

y:=x*sin(x+s);

if max<y then max:=y;

x:=x+0.3; end;

writeln(‘max=’,max:4:2);

end.

г) var x, y, s, D: real;

i: integer;

x:=0.2; D:=0; s=4.2

for i:=0.2 to 2 do begin

y=sin(x+2)*s; D:=D*y;

until D>0

end;

writeln(‘D=’,D:4:2);

end;

д) var x, y, s, max: real;

i: integer;

begin

x:=0.4; s=9.2;

max=x*sin(x+s);

fori:=1 to 5.5 do begin

y:=x*sin(x+s);

if max>y then max:=y;

x:=x+0.3; end;

writeln(‘max=’,max:4:2);

end.

Який з фрагментів програми не містить помилок: Немає правильної відповіді

а) var L, s: real;

q: integer;

begin

s:=15; L:=2;

repeat

s:=s*2-16;

T=s-L; inc(q)

until s<L;

end;

б) var x, y, z: integer;

z:=0.15; x:=0.2;

for x:=0.2 to 1 do

y=sin(x+z);

end;

в) var p, x, y, z: real

i: integer

x:=0.2; z:=0.5; p:=16;

while p<1 do

p:=p/2+(x+z);

end;

г) var x., y, z: real;

i:=integer;

y:=7; z:=6;

while x>4 do begin

p:=(p+3)/2; end;

д) var L, s: real;

i: integer;

begin

s:=15; L:=2;

do

s:=s*2-16;

T=s-L;

until s<L;

end;

Який з фрагментів програми не містить помилок:

а) var A, B, C: real;

i:integer;

A=2.4;

for C:=1 to 0.8 do

A:=sin(C)*A;

end; end.

б) var x, y, z: real;

i:integer;

z:=0;

for i:=1 to 5;

y=sin(x)+z;

z:=y+z;

end; end;

в) var s, x, y: real;

i: integer;

begin

for i:=1 to 15 do begin

y:=x+sin(x);

s:=s+y;

end; writeln(‘s=’,s:4:2);

end.

г) var s, x, y: real;

i: integer;

begin

s:=0; x:=2.4;

for i:=1 to 15.6 do begin

y:=ln(x)+sin(s);

s:=s-y;

end; writeln(‘s=’,s:4:2);

end.

д) var s, x, y: real;