I: integer
begin
A:=4.2; x:=0.5;
for i:=1 to 5do
begin
y:=sin(x+A)*x;
end; end.
Який з фрагментів програми не містить помилок:
г) var x, a, b, y, h:real;
begin
readln(a, b, h);
x:=a;
while x<=b+h/2 do
begin
y:=x*sin(x);
writeln(x:6:1, y:9:2);
x:=x+h
end; end.
Який з фрагментів програми не містить помилок:
а) var x, y, z, A: real;
I: integer;
begin
A:=4.2;
x:=0.4;
for i:=1 to 5 do
begin
y:=x+sin(x+A);
end; end.
Який з фрагментів програми не містить помилок:
в) var D, x, y, A: real;
I: integer;
begin
A:=1.2;
x:=0.5; D:=1;
for i:=1 to 8 do
begin
y:=sin(A+x);
D:=D+y;
end; end.
Який з фрагментів програми не містить помилок:
а) var x, y, z, D: real;
begin
D:=0;
x:=4.2;
z:=3.4;
repeat
y:=x*sin(x+z);
D:=D+y;
until D>4;
end; end.
Який з фрагментів програми не містить помилок:
в) var p: integer;
begin
p:=2;
while p<10 do
begin
p:=2*p+1;
p:=p+1;
end; end.
Який з фрагментів програми не містить помилок:
б) var p, z: real;
p:=7.1;
while (p>7) and (p<20) do begin
p=(p+3)/2
p=p-1
end;
Який з фрагментів програми не містить помилок:
б) var x, y, s, min: real;
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, 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 s, x, y: real;
i: integer;
begin
s:=0; x:=2.4;
for i:=1 to 15 do begin
y:=ln(x)*sin(x);
s:=s+y;
end; writeln(‘s=’,s:4:2);
end.
Який з фрагментів програми не містить помилок:
д) var D, x, y: real;
i: integer;
begin
D:=1; x:=0.8;
for i:=1 to 14 do
begin
y:=cos(x)*x;
D:=D*y;
end; writeln(‘D=’,D:4:2);
end.
Який з фрагментів програми не містить помилок:
д) Label 333;
var x, y, z:real;
x:=0.5; z:=0.5;
333: y:=cos(x+z)+z;
x:=x+0.1;
if y>2 then
goto 333
end;
Який з фрагментів програми не містить помилок:
д) var A, x, y: real;
i: integer;
begin
A:=4.5; x:=0.2;
for i:=1 to12 do begin
y:=sin(x+A)*x;
write(‘y=’, y:5:2);
x:=x+0.2;
end;
readln; end.
Який з фрагментів програми не містить помилок:
в) var A, B, x, y: real;
begin
A:=2.4; B:=0.4; x:=0.8;
repeat
y:=cos(A+B)*ln(x);
x:=x+y;
until x>4
end; end.
Який з фрагментів програми не містить помилок:
в) var x, y, z, A: real;
i: integer;
begin
A:=4.2; x:=0.4;
for i:=1 to 5 do begin
y=x+ln(x+A);
writeln(‘y= ’, y:5:2); end;
readln; end.
Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:
в) var a:array[1..20] of real;
maxA:=real;
i:integer;
begin
maxA:=A[1];
for i:=2 to 20 do
begin
if A[i]>maxA then
maxA:=A[i];
end;
writeln(maxA);
end.
Який з фрагментів програми пошуку максимального елементу не містить помилок:
а) var a:array[1..15] of real;
maxA:real; i:integer;
begin
maxA:=A[1];
i:=1;
while i<=15 do begin
if A[i]>maxA then
maxA:=A[i];
i:=i+1; end;
writeln(maxA); end.
Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:
г) var a:array[1..15] of real;