 |
|
Б) sin(x) cos(x) ArcSin(x)
в) ln(x) sinys(x) sqr(x)
г) geron(x) cos(x) exp(x)
д) exp(x) sqr(x) param(x,y)
Знайдіть невірно записане на мові Паскаль число:
а) 1.0
б) -1.05
В) .27
г) ХІІ
д) 32
Що обчислює наступна програма на мові Паскаль?
program first;
var S,a,b:real;
begin
readln(a); readln(b);
S:=0.5*a*b; writeln(S);
end.
а) Площа прямокутника зі сторонами a і b
б) Площа квадрату зі стороною a
В) Площа прямокутного трикутника зі сторонами a і b
г) Площа паралелограма зі сторонами a і b
д) Площа трапеції з основами a і b
Знайдіть значення змінної x після виконання операції присвоювання:
x:=15;
x:=x-10;
а) 5
б) -5
в) х
г) 10
д) 25
Знайдіть значення змінних x та y після виконання операцій присвоєння:
x:=3; y:=3;
y:=x+y; y:=x-2*y;
а) x=6 y=-3
б) x=3 y=-9
в) x=6 y=3
г) x=3 y=6
д) x=3 y=-3
Вкажіть вірний запис виразу на мові Паскаль
[(ax-b)x+c]x-d
а) [(ax-b)x+c]x-d
б) ((a*x-b)*x+c)*x-d
в) ((a*x-b)x+c)*x-d
г) ((ax-b)x+c)x-d
д) [(a*x-b)*x+c]*x-d
Вкажіть вірний запис на мові Паскаль виразу
x4+5*x:
а) x4+5x
б) x4+5*x
в) sqrt(sqr(x))+5*x
г) sqr(sqr(x))+5*x
д) sqrt(sqrt(x))+5*x
Вкажіть вірний запис на мові Паскаль виразу
(1+x)2:
а) (1+x)^2
б) (1+x)*(1+x)
в) sqrt(1+x)
г) (1+x)*2
д) exp(2*log(1+x))
Вкажіть вірний запис на мові Паскаль виразу
|a+bx|
а) a+b*x
б) abs(a+bx)
в) |а+bx|
г) abs(a+b*x)
д) inc(a+b*x)
Визначити значення змінної s після виконання наступних операторів:
s:=0; n:=5;
for i:=1 to n do
s:=s+i;
а) 16
б) 25
в) 1
Г) 15
д) 5
Який з фрагментів програми пошуку максимального з трьох дійсних чисел X, Y,Z не містить помилок:
a)
Var x, y, max : Real; z:Integer;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z<max then max:=z;
Write(‘Max= ’, max); readln
End.
б)
Var x, y, z, max: Real;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z<max then max:=z;
Write(‘Max= ’, max); readln
End.
в)
Var x, y, z: LongInt;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z<max then max:=z;
Write(‘Max= ’, max); readln
End.
г)
Var x, y, z, max: Word;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z < > max then max:=z;
Write(‘Max= ’, max); readln
End.
д)
Var x, y, z, max: Real;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If z>max then max:=z;
Write(‘Max= ’, max); readln
End.
Який з фрагментів програми пошуку максимального з суми та добутку трьох дійсних чисел X, Y,Z не містить помилок:
a)
Var x, y, z, s, d: Byte;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else
If s<p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
б)
Var x, y, z, s, d: Integer;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s<p then Write(‘сума більше: ’ , s , ‘<’ , p) else
If s<p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
в)
Var x, y, z, s, d: Real;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else
If s>p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
г)
Var x, y, z, s, d: Double;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y-z; d:=x-y/z;
If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else
If s<p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
д)
Var x, y, z, s, d: Double;
Begin
Write(‘Введіть 3-и дійсних числа: ’);
Readln(x,y,z);
s:=x+y+z; d:=x*y*z;
If s>p then Write(‘сума більше: ’ , s , ‘>’ , p) else
If s<p then Write(‘добуток більше: ’ , p , ‘>’ , s) else
Write(‘сума та добуток рівні ’, s , ‘=’ , p); readln
End.
Який з фрагментів програми отримання цілої та дробової частини числа Х не містить помилок:
a)
Var x, y: Integer;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)< >0) then y:=Int(x) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x-y : 1 : 15) {дробова частина}
End.
б)
Var x, y: Double;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)>0) then y:=Int(x) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x+y : 1 : 15) {дробова частина}
End.
в)
Var x, y: Double;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)<0) then y:=Int(x) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x-y : 1 : 15) {дробова частина}
End.
г)
Var x, y: Double;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)=0) then y:=Int(x-1) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x+y : 1 : 15) {дробова частина}
End.
д)
Var x, y: Real;
Begin
Write(‘Введіть любе дійсне число х= ? ’ , #8);
Readln(x);
If (x>0) or (Frac(x)=0) then y:=Int(x) else y:=Int(x)-1
Write(‘[’ , x , ‘] = ’ , y : 1 : 0) {ціла частина}
Write(‘[’ , x , ‘] = ’ , x-y : 1 : 15) {дробова частина}
End.
Який з фрагментів програми обчислення факторіалу не містить помилок:
a)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=0;
for i:=1 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
б)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=0;
for i:=2 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
в)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=0;
for i:=0 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
г)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=1;
for i:=0 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
д)
Var n, i: 1..20; f: Comp;
Begin
Write(‘Введіть натуральне число ’);
Readln(n);
f:=1;
for i:=2 to n do f:=f*i;
Writeln(n:40, ‘! = ’ , f : 0 : 0)
End.
Який з фрагментів програми знаходження кількості цифр натурального числа n не містить помилок:
a)
…
q:=0;
while n>9 do begin
Dec(q);
n:=n div 10 end;
…
б)
…
q:=1;
while n>9 do begin
Inc(q);
n:=n div 10 end;
…
в)
…
q:=0;
while n>9 do begin
Inc(q);
n:=n div 10 end;
…
г)
…
q:=1;
while n>9 do begin
Inc(q);
n:=n mod 10 end;
…
д)
…
q:=0;
while n<9 do begin
Inc(q);
n:=n div 10 end;
…
Який з фрагментів програми знаходження суми цифр натурального числа n не містить помилок:
a)
…
s:=n div 10;
while n>9 do begin
n:=n mod 10;
s:=s+n mod 10; end;
…
б)
…
s:=n mod 10;
while n>9 do begin
n:=n div 10;
s:=s+n mod 10; end;
…
в)
…
s:=n div 10;
while n>9 do begin
n:=n div 10;
s:=s+n div 10; end;
…
г)
…
s:=n mod 10;
while n>9 do begin
n:=n mod 10;
s:=s+n mod 10; end;
…
д)
…
s:=n mod 10;
while n<9 do begin
n:=n div 10;
s:=s+n div 10; end;
…
Який з фрагментів програми обчислення значення функції y=4x3-2x2+5 для значень х, що змінюється від -3 до 1, з кроком 0,1 не містить помилок:
a)
{$N+,E+,R+}
Var x,y:Extended;
Begin
x:=-3;
Repeat
y:=2*Sqr(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x+0.1
until x<1;
End.
б)
{$N+,E+,R+}
Var x,y:Real;
Begin
x:=-3;
do
y:=2*Sqr(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x+0.1
until x>1;
End.
в)
{$N+,E+,R+}
Var x,y:Extended;
Begin
x:=-3;
repeat
y:=2*Sqr(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x+0.1
until x>1;
End.
г)
{$N+,E+,R+}
Var x,y:Real;
Begin
x:=-3;
repeat
y:=2*Sqr(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x-0.1
do until x<1;
End.
д)
{$N+,E+,R+}
Var x,y:Extended;
Begin
x:=-3;
repeat
y:=2*Sqrt(x)*(2*x-1)+5;
Write(‘x= ’ , x :5 : 1, ‘ y= ‘,y : 10 : 4, ‘ ‘:12);
x:=x+0.1
until x<1;
End.
Який з фрагментів програми, що містить циклічний алгоритм не містить помилок:
а) var x, y, real;
A:=21.2;
For x:=4 to 8 do;
y:=A*x + SQR(x);
end;
б) var x, y: integer;
n: real;
begin
x:=0.4;
n:=105;
y:=sin(SQR(x))+n/x;
if y>0 then y1:=sin(x); end;
write(‘y=’: y:4:2);
write(‘y1=’:y:4:2); end.
в) var A, x, y: real;
i: integer;
begin
A:=25.4; x:=0.4;
For i:=1 to10 do begin
y:= sin(x + A)*i;
x:=x+0.2;
end; write(‘y=’,y:4:2);
end.
г) var x, y: real;
i: integer;
x:=0.2;
begin
repeat
y:= cos(x + 2);
x:=x + 0.4;
write(‘y=’,y:4:2);
end; end.
д) var A, x, y: real;
i: integer;
begin
A:=25.4; x:=0.4;
while i:=1 to10 do begin
y:= sin(x + A)*i;
x:=x+0.2;
end; write(‘y=’,y:4:2);
end.
Який з фрагментів програми не містить помилок:
а) Label 22;
var a, b, c, p, z: real;
Begin
b:=3.2;
c:=4.3;
22: write(‘Введіть а’);
readln(a);
p:=a + b + c;
z:= a*p +b*p + c*p;
if z>0 then begin
z:=SQR(z);
end;
Goto 22
End.
б) var a, b, c: real
a:=4.5; b:=2.1
vhile i<=10 do
begin
c:= a*b*i;
i:=i – 1;
в) Label 22;
var a, b, c, p, z: real
b:=3.2;
c:=4.3;
22: write(‘введіть а’);
read(a);
p:=a*b*c;
z=log(p);
if z<>0 then
gotu 22
end;
г) var a, b, c: integer;
a:=4.2; b:=3;
while i>=10 do
begin
c:= a*b*I;
i:= i*1
end; end;
д) Label 2;
var a, b, c, p, z: real;
begin
b:=3.2;
c:=4.3;
Label 2: write(‘Введіть а’);
readln(a);
p:=a + b + c;
z:= a*p +b*p + c*p;
if z>0 then begin do Label 2;
z:=SQR(z);
end;
goto 22
end.
Який з фрагментів програми не містить помилок:
а) var i: integer;
begin
i:=20;
while i<=30 do
begin
writeln(i:4, i*i:6);
i:=i+1;
end;
б) var x, y, z: real
i: integer
begin
i:=10;
while i>10 do
begin
y=x + z;
i:=i+2
end;
в) var i: real;
s: integer;
i:=10;
Repeat
y:= SQR(i)
until i>10;
write y;
г) var x,y,z: integer;
i:real;
begin
x:=4.2;
y:=3.4;
i:=12;
for i:=1 to 12 do
begin
z:= (x+y)*z
end;
д) var i: real;
begin
i:=25;
while i>=30 do
begin
writeln(i:4, i*i:6);
i:=i+1;
end;
Який з фрагментів програми не містить помилок:
а) var s,y,x: real;
Begin
s:=0; x:=0.4;
Repeat
y:=x*sin(x);
s:=s+y;
until s>2;
End;end.
б) var s, y, x: real
i: integer
s:=0; x:=0.2;
for i:=i to 2 do
begin
y:=sin(x)+A;
end;
в) var s, x, y: integer
s:=0; x:=0.4;
for i:=1 to 4 do
y= cos(x)*I;
end;
г) var s, x, y, z: real
s:=0.4;
x:=1.2;
11: y:=x+sin(x) + s
x:=x+s;
if x>6.4 then
goto 11
end;
д) var s,y,x: real;
begin
s:=0; x:=0.4;
repeat
y:=x*sin(x);
s:=s+y;
while s<2;
end;end.
Який з фрагментів програми не містить помилок:
А) var A, x, y: real
I: integer
Begin
A:=4.2; x:=0.5;
for i:=1 to 5do
Begin
y:=sin(x+A)*x;
End; end.
б) var x, y, integer
x:=0.4;
if x><0 then
y:= sin(x);
end;
в) var A, x, y: integer;
begin
A:=4.3;
x:=0.2;
for x:=1 to 5 step 0.2 do
begin
y=cos(x+A)*ln(x);
end; end.
г) var A, x, y, real;
A:=0.2;
x:=0.4;
for i:=1 to 5 do
begin
y:=2 + (A+x)*i
end;
д) var A, x, y: integer;
i: double;
begin
A:=4.2; x:=0.5;
for i:=1 to 5do begin
y:=sin(x+A)*x;
end; end.
Який з фрагментів програми не містить помилок:
а) var x, a, s integer;
A:=4.2;
2: y=sin(x+A);
X:=x+A;
end;
goto 2
end;
б) var A, b, x, ya: real;
i:=integer;
A:=4.2;
B:=3.4;
for i:=1 to12 do
y=(A+B)*i;
end; end.
в) var x, b, s: real;
A: integer;
A:=4.2;
x=sin(x+A)*b;
if x>0 then x=x*2;
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, a, b:real; y, h: integer;
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 x, y, z: integer
begin
A:=4.2;
x:=0.3;
for i:=1 to 5 do
begin
y=SQRT(A+x)+sin^(x);
end; end.
в) var x, y, z, real;
i, integer;
A:=8.3;
x:=0.2;
if x>0 and A>8
then
y=A+x;
end;
г) var A, x, y, z, real
i, integer
A:=4.2;
x:=3.8
z:=4.2;
if z>0 then
y=sin(x+A+z)*log(z);
end; end.
д)
var x, z, A: real; i,y:byte;
begin
A:=4.2;
x:=0.4;
for i:=1 to 5 do
begin
y:=x+sin(x+A);
end; end.
Який з фрагментів програми не містить помилок:
а) var x, y, z, A: real;
i: integer
A:=4.2;
x:=0.3;
for i:=0.1 to 0.5 do
begin
y:=(x+A)*sin(x)
end;
б) var x, y, z, A real
i integer
x:=0.2;
A:=4.5;
repead
y:=sin(x+A);
x:=x+0.4;
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, integer;
i: real
begin
x=0.4;
z=8.4;
repeat
y=sin(x+0.4)
x:=x+y;
until y<4.2
end; end.
д) var D, x, A: real; y,i: byte;
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 x, k, l: real;
i: integer;
y:=4.2;
if y>4 then
x:=k*l*sin(y);
end;
в) var x, y, z, s: real;
begin
for i:=1 to15 do
if I mod 2=0 then
y=sin(x+2);
end;end.
г) var z, x, y, s: real;
i: integer
y=0.5;
s=4.2;
for x:=0.2 to 0.8 do
begin
z:=x+s+sin(y);
end; end.
д) var x, y, z, D: real;
begin
D:=1;
x:=4.2;
z:=3.4;
repeat
y:=x*sin(x+z);
D:=D+y;
until z>4;
end; end.
Який з фрагментів програми не містить помилок:
а) var s; x: real;
p: integer;
begin
p:=0.2;
s:=0.4;
while p<4
p:=p*s+1
end;
б) var p; z: integer;
p:=5;
while p<5 do
p:=(2*p)+0.5;
p:=p+1;
end;
в) var p: integer;
Begin
p:=2;
while p<10 do
Begin
p:=2*p+1;
p:=p+1;
End; end.
г) var p : real; z : integer;
p:=5;
repeat
z:=p*2+sin(p);
until z>10;
д) var p : integer;
begin
p:=4;
for p<10 to p>15 do begin
p:=2*p+1;
p:=p+1;
end; end.
Який з фрагментів програми не містить помилок:
а) var p, z: integer;
begin
p:=4.5;
repeat
p:=-3*(p-6);
until p<0
…
б) var p, z: real;
p:=7.1;
while (p>7) and (p<20) do begin
p=(p+3)/2
p=p-1
end;
…
в) var p:z: integer;
begin
p:=2;
repeat
z:=p*0.2+sin(p)
p:=p+0.2
until p>5;
…
г) var p, z, A: integer
p:=7;
while p>5 do
p:=(p+3)/2;
p:=p-1;
end;
…
д) var p:z: integer;
begin
p:=2;
repeat
z:=p*0.2+sin(p)
p:=p+0.2
until p<5;
…
Який з фрагментів програми не містить помилок:
а) var x, y, s, min: real;
i: integer;
begin
x:=0.5; s:=5.2;
min:=x*(s+x);
for i:=1.1 to 5.5 do begin
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 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;
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;
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.
б) var D, x, y: real;
i: integer;
begin
D:=0;
for i:=1 to 8 do;
y:=ln(x)+x;
D:=D*y;
End; writeln(‘D=’,D:4:2)
в) var D, x, y: real;
i: integer;
D:=1; x=0.5;
for i:=1 to 10
y:=sin(x+x);
D:=D+y;
end; writeln(‘D=’,D:4:2);
end;
г) var D, x, y: integer;
i: real;
begin
x:=0.5; i:=1
for i:=1 to 10 do;
y=cos(x)*ln(x);
D:=D*y;
end; writeln(‘D=’,D: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;
Label 333: y:=cos(x+z)+z;
x:=x+0.1;
if y>2 then
goto Label 333;
end;
б) var x, y, z: integer
i, real
x:=0.2; z:=0.4;
for i=1 to 2.4
y=sin(x+z)-z;
until y>0
end;
в) Label 33
var x, y, z: integer;
x:=0.5; z:=0.2
y:=sin(x)*exp(x);
33: x:=x+z;
if y>2 then
goto 33;
end; end.
г) var x, y, z:real;
i; integer
x:=0.5; z=0.2;
for i=1 to5 do
y=sin*(x+2)+lg(x)
end; 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: integer;
begin
A:=4.8; x:=0.7;
for x:=1 to 5 step 0.2 do begin
y=cos(x+A)*ln(x);
end; end.
б) var A, x, y: real;
Begin
A:=4.5; x:=0.2;
for i:=1 to12 do begin
y:=sin(x+A)*x
End; end.
в) var A, x, y, real;
A:=0.2; x:=0.4;
for i:=1 to 10 do;
begin
y:=2+(A+x)*i;
end; end.
г) var x, y integer;
x:=0.4;
if x≠0 then
y=cos(x)+ln(x);
end; 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:=0.5; B:=0.4; x:=0.8;
Repeat
Y=sin(x+y)+A*B;
If y>0 then
Writeln(‘y=’,y:4:2);
until y>2
end; end.
б) var A, B, x, y: real;
A=0.4; B=0.5; x=0.2
for i:=1 to 10 do
y:=sin(x+A)*B
end; 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 A, B, x, y: real
i: integer
for i:=1 to 15 do
y:=cos(A+B)*A;
end; end.
д) var A, B, x, y: real;
Begin
A:=2.4; B:=0.4; x:=0.8;
Repeat
y=cos(A+B)*log(x);
x:=x+y;
until x<4
End; end.
Який з фрагментів програми не містить помилок:
а) var A, x, y, z, real;
i, integer;
A:=4.2; x:=3.8; z:=4.2;
if z>0 and x>3 then
y=sin(x*A*z);
end; end.
б) var x, y, z, A: real;
i: integer;
A:=4.2; x:=3.4; z:=0.3;
for i:=0.1 to 0.8 step0.1 do begin
y=sin(x+A)*i;
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, B, x, y: real;
i: integer;
A:=0.2; B:=0.4; x=1.2;
if x≠0 then
y=sin*(x+A+B);
end; end.
д) var x, y, z, A: real;
i: integer;
begin
A:=4.2; x:=0.4;
for i:=1 to 5,56 step 0.2 begin do
y=x+ln(x+A);
writeln(‘y= ’, y:5:2); end;
readln; end.
Який з фрагментів програми пошуку максимального елементу масиву не містить помилок:
а) var a:array[1..20] of real;
i:integer;
Begin
maxA:=A[1];
for i:=2 to 20 do
Begin
if maxA>A[i] then
maxA:=A[i];
end;
writeln(maxA);
End.
б) var a:array[1..20] of integer;
i:integer;
begin
maxA:=A[i];
for i:=2 to 20 do
begin
if A[i]>maxA then
A[i]:=maxA;
end;
writeln(maxA);
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..20] of real;
maxA:=real;
i:integer;
begin
maxA:=A[0];
for i:=2 to 20 do
begin
if A[i]<maxA then
maxA:=A[i];
end;
writeln(maxA);
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;
i:integer;
maxA:=A[1];
while i>=15 do begin
if maxA>A[i] then
maxA:=A[i]; end;
writeln(maxA); end.
в) var a:array[1..15] of real;
i:integer;
maxA:=A[1];
while i<=15 do begin
if A[i]>maxA then
A[i]:=maxA; i:=i+1; end;