В
Виберіть тип даних для опису цілих чисел
в) integer
Виберіть логічний тип даних
б) Boolean
Виберіть оператор опису типу одновимірного масиву:
б) type vektor=array[1..N] of real;
Виберіть вірну умову знаходження точки х в інтервалі [a,b]:
в) (a<=x) and (x<=b)
Вкажіть функції обчислення абсолютного значення аргументу и косинуса аргументу
в) abs(x) cos(x)
Вкажіть функції обчислення результату від ділення двох цілих чисел і обчислення залишку від ділення
г) div mod
Вкажіть функциії обчислення квадратного корня і обчислення квадрату аргумента
а) sqrt(x) sqr(x)
Вкажіть функцію заокруглення дійсного числа до найближчого цілого:
в) round(x)
Вкажіть вірний перелік стандартних функцій Паскаля:
б) exp(x) sin(x) sqrt(x)
Вкажіть вірний перелік стандартних функцій Паскаля:
б) sin(x) cos(x) ArcSin(x)
Вкажіть вірний запис виразу на мові Паскаль [(ax-b)x+c]x-d
б) ((a*x-b)*x+c)*x-d
Вкажіть вірний запис на мові Паскаль виразу x4+5*x:
г) sqr(sqr(x))+5*x
Вкажіть вірний запис на мові Паскаль виразу (1+x)2:
б) (1+x)*(1+x)
Вкажіть вірний запис на мові Паскаль виразу |a+bx|
г) abs(a+b*x)
Визначити значення змінної s після виконання наступних операторів: s:=0; n:=5; for i:=1 to n do s:=s+i;
г) 15
Впорядкована послідовність елементів з одним і тим же ім'ям ...
б) називається масивом
Відмітьте невірно вказане ім’я змінної:
в) Spice Girls
Я
Який з перерахованих типів не є типом для опису цілих чисел
д) single
Який з перерахованих типів не є типом для опису дробових чисел
в) word
Який масив описаний в наступному фрагменті? type Massiv=array[1..10] of integer; var A:Massiv;
в) одновимірний масив цілого типу
Який масив описаний в наступному фрагменті на Паскалі? type Student=array[1..100] of real; var A:Student;
б) одновимірний масив дійсного типу
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))), ‘ < ‘ , (1+Sqrt(5))/2); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
д)
{$N+, E+}
Begin
Write(Exp(Exp(1)*Ln(Pi)), ‘ < ‘ , Exp(Pi)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
д)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5), ’ > ’ ,Ln(7)/Ln(6)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
г)
{$N+, E+}
Var X, Left, Right: Real;
Begin
x:=sin(y);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
г)
{$N+, E+}
Var s, Left, Right: Real;
Begin
Left:=16*Cos(2*Pi/s);
Write(‘Ліва частина: ’, Left);
s:=Sqrt(17);
Right:=Sqrt(34-2*s)+s-1+2*Sqrt(17+3*s-Sqrt(170+38*s));
Write(‘Права частина: ’, Right); readln
End.
Який масив описаний в наступному фрагменті на Паскалі? type Massiv=array[1..10, 1..5] of real; var A:Massiv;
б) двохвимірнии масив дійсного типу
Який з фрагментів програми пошуку максимального з трьох дійсних чисел X, Y,Z не містить помилок:
д)
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 не містить помилок:
в)
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: 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.
Який з фрагментів програми знаходження суми цифр натурального числа n не містить помилок:
г)
…
s:=n mod 10;
while n>9 do begin
n:=n mod 10;
s:=s+n mod 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.
Який з фрагментів програми, що містить циклічний алгоритм не містить помилок:
а) var x, y, real;
A:=21.2;
For x:=4 to 8 do;
y:=A*x + SQR(x);
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 i: real;
s: integer;
i:=10;
repeat
y:= SQR(i)
until i>10;
write y;
Який з фрагментів програми не містить помилок:
а) 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 A, x, y: real