Виберіть тип даних для опису цілих чисел
а) char
б) boolean
в) integer
г) single
д) double
Виберіть логічний тип даних
а) char
б) boolean
в) real
г) integer
д) double
Який з перерахованих типів не є типом для опису цілих чисел
а) shortint
б) longint
в) byte
г) word
д) single
Який з перерахованих типів не є типом для опису дробових чисел
а) real
б) single
в) word
г) double
д) extended
Вкажіть функції обчислення абсолютного значення аргументу и косинуса аргументу
а) trunc(x) cos(x)
б) abs(x) round(x)
в) abs(x) cos(x)
г) int(x) abs(x)
д) random(х) cos(x)
Вкажіть функції обчислення результату від ділення двох цілих чисел і обчислення залишку від ділення
а) round div
б) mod int
в) int sin
г) div mod
д) sqr sqrt
Яка з перерахованих функцій обчислює експоненту аргумента?
а) sin(x)
б) cos(x)
в) sqrt(x)
г) exp(x)
д) ln(x)
Вкажіть функциії обчислення квадратного корня і обчислення квадрату аргумента
а) sqrt(x) sqr(x
б) Pi inc(x)
в) sqrt dec(x)
г) ln(x) frac(x)
д) ord(x) chr(x)
Вкажіть функцію заокруглення дійсного числа до найближчого цілого:
а) frac(x)
б) int(x)
в) round(x)
г) trunc(x)
д) mod(x)
Які значення приймає логічна змінна (змінна типу boolean)?
а) and або true
б) or або false
в) false або true
г) xor або not
д) true або not
Перераховано типи логічних даних. Вкажіть лишній…
а) boolean
б) byte
в) bytebool
г) wordbool
д) longbool
Задана програма. Вкажіть, який алгоритм використовується. program alg; var S,I:integer; begin S:=0; for I:=1 to 100 do S:=S+I*I; write(S:5) end.
а) лінійний
б) розгалужений
в) циклічний
г) немає відповіді
д) цикл з розгалуженням
Задана програма. Вкажіть, який алгоритм використовується. program alg; var A,B:integer; begin B:=5; A:=B + 19; write(A, B:5) end.
а) лінійний
б) розгалужений
в) циклічний
г) немає відповіді
д) цикл з розгалуженням
Задана програма. Вкажіть, який алгоритм використовується. program alg; var S, I:integer; begin write(' S= ');readln(S); if S>0 then I:=S else I:=S*S; write(S, I:5) end.
а) лінійний
б) розгалужений
в) циклічний
г) немає відповіді
д) цикл з розгалуженням
Який масив описаний в наступному фрагменті? ... type Massiv=array[1..10] of integer; var A:Massiv; …
а) двовимірний массив цілого типу
б) масив дійсного типу
в) одновимірний масив цілого типу
г) одновимірний масив дійсного типу
д) немає відповіді
Який масив описаний в наступному фрагменті на Паскалі? ... type Student=array[1..100] of real; var A:Student;
...
а) одновимірний масив цілого типу
б) одновимірний масив дійсного типу
в) двовимірний масив цілого типу
г) двовимірний масив дійсного типу
д) немає відповіді
Задано фрагмент програми на Паскалі. Визначити типи змінних A,B і C: program alg; var A:real; B:integer; C:boolean; а) A - цілого типу, B, C - дійсного типу
б) A - дійсного типу, B, C - цілого типу
в) A - дійсного типу, B - цілого типу, C - логічного типу
г) A - дійсного типу, B цілого, C - дійсного типу
д) A - дійсного типу, B цілого, C - символьного типу
Перераховані деякі оператори Паскаля. Виберіть оператор читання, виводу і присвоювання:
а) for := writeln
б) while readln :=
в) readln writeln :=
г) readln writeln type
д) read repeat =
Виберіть оператор опису типу одновимірного масиву:
а) for i := 1 to N do
б) type vektor=array[1..N] of real;
в) while A < 5 do
г) var A, B:integer;
д) var a:array[1..5, 1..6] of real.
Вкажіть вірний перелік стандартних функцій Паскаля:
а) sin(x) cos(x) qsrt(x)
б) exp(x) sin(x) sqrt(x)
в) ln(x) sinys(x) sqr(x)
г) geron(x) cos(x) exp(x)
д) exp(x) sqr(x) param(x,y)
Виберіть вірну умову знаходження точки х в інтервалі [a,b]:
а) (a<=x) and (x >= b)
б) (a>=x) and (x<=b)
в) (a<=x) and (x<=b)
г) (a>x) and (x < b)
д) (a>=x) & (x<=b)
Який масив описаний в наступному фрагменті на Паскалі? ... type Massiv=array[1..10, 1..5] of real; var A:Massiv; …
а) одновимірний масив символьного типу
б) двохвимірнии масив дійсного типу
в) двохвимірнии масив цілого типу
г) одновимірний масив дійсного типу
д) одновимірний масив цілого типу
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) t = exp((1/3)*ln(B*sqr(cos(t-sqr(a)))))/(B+exp(3*ln(a)))*1/(b-a);
б) t = exp((1/3)*ln(B*sqrt(cos(t-sqrt(a)))))/(B+exp(3*ln(a)))*1/(b-a);
в) t = exp((1/3)*ln(B*sqr(cos(t+sqr(a)))))/(B+exp(3*ln(a)))*1/(b-a);
г) t = exp((1/3)*log(B*sqr(cos(t-sqrt(a)))))/(B+exp(3*log(a)))*1/(b-a);
д) t = exp((1/3)*ln(B*sqr(cos(t-sqr(a)))))/(B+exp(3*ln(a)))*1/(b+a)
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
a) t = exp((x+3)*log(e))-1/exp(3+log(x))+1+a/(x+b);
б) t = (exp((x+3)-1)/(exp((1/3)*ln(x))+1)+a/(x+b));
в) t = (exp((x+3)-1)/(exp((1/3)*log(x))+1)+a/(x+b));
г) t = (exp((x+3)*log(x)-1)/(exp((1/3)*log(x))+1)+a/(x+b));
д) t = (exp((x+3)-1)/(exp((1/3)*ln(x))+ln(1))+a/(x+b));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) m = sqrt(x+sqrt(x+sin(x*x)^(3)));
б) m = sqr(x+sqr(x+sin(x*x)^(3)));
в) m = exp((1/5)*ln(x+exp((1/7)*ln(x+exp((3)*ln(sin(sqr(x))))))));
г) m = exp((1/5)*log(x+exp((1/7)*log(x+exp((3)*log(sqr(x)))))));
д) m = exp((1/5)*ln(x+exp((1/7)*ln(x+exp((3)*ln(sqr(x)))))));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) t = exp(5*ln(x+(exp((3)-ln(x)))))/(3*ln(3*cos(x)));
б) t = exp((1/5)*ln(x+(exp(3*ln(b))-x)))/(3*exp(3*ln(cos(x))));
в) t = exp((5)*ln(x*(exp(3)*ln(b))-x))/(3*exp(3)*ln(cos(x))));
г) t = sqrt(x+(exp(3*ln(B))-x))/3*exp((3)*log(x));
д) t = exp((1/5)*ln(x*(exp((3)*ln(b))-x)))/(3+exp((3)*ln(cos(x))));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) m = exp((1/7)*log(x+sqrt(ln(x-a)))+b/exp((3)*ln(x));
б) m = exp((7)*ln(x+sqr(ln(x-a)))+b/exp(3*ln(x));
в) m = exp((1/7)*ln(x+sqr(ln(x-a))))+B/exp(3*ln(x));
г) m = exp((7)*log(x+sqr(log(x-a)))+b/exp((3)*log(x));
д) m = exp((1/7)*ln(x+sqr(x-a)))+B/exp((3)*ln(x));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) L = exp(exp((3)*ln(x))+exp(sqr(x)))*sin(exp(3*ln(x)))/exp((3)*ln(cos(x)));
б) L = exp(x*x*x)+exp(x*x)*sin(x*x*x)/cos(x*x*x);
в) L = exp(ln(3*x))+exp(ln(2*x))+sin(exp(3*ln(x)))/exp(cos(3*x));
г) L = exp(3*ln(e))+exp(2*ln(e))*sin(exp(3)*ln(x))/exp(3*ln(cos(x)));
д) L = exp(exp(x*x*x))+exp(sqrt(x)))*sin(exp(3*ln(x)))/exp((3)*ln(cos(x)));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) L = A+sqr(A+x)+log(x);
б) L = A+exp((1/x)*ln(A+x))+ln(x)/ln(4);
в) L = A+exp((x)*ln(A+x))+ln(x)/ln(10);
г) L = A+exp((1/x)*log(A+x))+log(x)/log(4);
д) L = A+exp((1/x)*ln(A+x))+ln(x)*ln(4);
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) f = b/sqrt(c-k)*log(k/B+A)*2;
б) f = b/sqr(c-k)*ln(k/(B+A))*2;
в) f = b/(exp((1/3)*ln(c-k)))*sqr(ln(k/(B+A)));
г) f = b/(exp(3*log(c-k)))*sqrt(log(k/(B+A)));
д) f = b/(exp((1/3)*ln(c-k)))*sqrt(ln(k/(B+A)));
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) y = exp((1/3)*ln(a*sqrt((b*x)/(A-x)))+c);
б) y = exp(3*log(a*sqr((b*x)/(A-x)))+c);
в) y = sqr(A*sqr(b*x/(A-x))+c);
г) y = sqrt(A*sqrt(b*x/(a-x))+c);
д) y = exp((1/3)*log(a*sqrt((b*x)/(A-x)))+c);
Заданий вираз:
,
виберіть вірний варіант запису цього
виразу:
а) y = sqr(A*sin(x*x*x*x*x)*7+c);
б) y = exp((1/3)*ln(A*exp(7*ln(sin(exp((5)*ln(x))))))+c);
в) y = exp((1/3)*log(A*exp(7*log(sin(exp(5*ln(x)))))+c);
г) y = exp((3)*log((A*sin*7(x*5)))+c);
д) y = exp((1/3)*log(A*exp(7*log(sin(exp((5)*log(x))))))+c);
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))), ‘ < ‘ , (1+Sqrt(5))/2); readln
End.
б)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))), < , (1+Sqrt(5))/2); readln
End.
в)
{$N+, E+}
Begin
Writeln(Sqrt(1+Sqrt(1+Sqrt(2))) < (1+Sqrt(5))/2); readln
End.
г)
{$N+, E+}
Begin
Writeln(Sqrt(1+Sqrt(1+Sqrt(2))) ‘ < ‘ (1+Sqrt(5))/2); readln
End.
д)
{$N+, E+}
Begin
Write(Sqrt(1+Sqrt(1+Sqrt(2))) < (1+Sqrt(х))/2); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Begin
Write(Exp(Exp(х)*Ln(Pi)) < Exp(Pi*х)); readln
End.
б)
{$N+, E+}
Begin
Write(Exp(Exp(1)*Ln(Pi)), < , Exp(Pi)); readln
End.
в)
{$N+, E+}
Begin
Writeln(Exp(Exp(1)*Ln(Pi)) < Exp(Pi)); readln
End.
г)
{$N+, E+}
Begin
Writeln(Exp(Exp(1)*Ln(Pi)) ‘ < ‘ Exp(Pi)); readln
End.
д)
{$N+, E+}
Begin
Write(Exp(Exp(1)*Ln(Pi)), ‘ < ‘ , Exp(Pi)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Begin
Write(Ln(6*х)/Ln(5) > Ln(7*х)/Ln(6)); readln
End.
б)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5), > ,Ln(7)/Ln(6)); readln
End.
в)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5) > Ln(7)/Ln(6)); readln
End.
г)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5) ’ > ’ Ln(7)/Ln(6)); readln
End.
д)
{$N+, E+}
Begin
Write(Ln(6)/Ln(5), ’ > ’ ,Ln(7)/Ln(6)); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Var x, Left, Right: Extended;
Begin
x:=sin(x*Left);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); readln
End.
б)
{$N+, E+}
Var x, Left: Extended; Right:Integer;
Begin
x:=sin(10);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); readln
End.
в)
{$N+, E+}
Var x, Right: Extended; Left:Integer;
Begin
x:=sin(10);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); 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 x, Left, Right: Extended;
Begin
x:=sin(10);
Left:=ArcTan(x/Sqrt((1-Sqr(x))));
Write(‘Ліва частина: ’, Left);
Right:=3*Pi-10;
Write(‘Права частина: ’, Right); readln
End.
Який з фрагментів програми перевірки істинності нерівності не містить помилок:
a)
{$N+, E+}
Var s, Left, Right: Extended;
Begin
Left:=16*Cos(2*Pi/17);
Write(‘Ліва частина: ’, Left);
s:=Sqrt(17*x);
Right:=Sqrt(34-2*s)+s-1+2*Sqrt(17+3*s-Sqrt(170+38*s));
Write(‘Права частина: ’, Right); readln
End.
б)
{$N+, E+}
Var s, Left: Extended; Right:Integer;
Begin
Left:=16*Cos(2*Pi/17);
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.
в)
{$N+, E+}
Var s, Right: Extended; Left:Integer;
Begin
Left:=16*Cos(2*Pi/17);
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.
г)
{$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.
д)
{$N+, E+}
Var s, Left, Right: Extended;
Begin
Left:=16*Cos(2*Pi/17);
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.
Впорядкована послідовність елементів з одним і тим же ім'ям ...
а) називається програмою
б) називається масивом
в) називається множиною
г) називається рядом
д) інша відповідь.
Назвіть кількість елементів в масиві: var s:array[1..12] of real;
а) 1
б) 12
в) 112
г) 13
д) 11.
Назвіть кількість елементів в масиві var w:array[1..12,1..5] of real;
а) 12;
б) 5;
в) 60;
г) 50
д) 17
Якщо для визначення елементу масиву потрібно вказати одну координату (порядковий номер), то такий масив називається
а) одновимірним
б) двовимірним
в) багатовимірним
г) трьохвимірним
д) впорядкованим
Одна змінна величина масиву називається ...
а) елементом масиву
б) індексом масиву
в) описом масиву
г) множиною
д) масивом
Програма FOR I:=1 TO N DO WRITELN(А[I]:4); означає...
а) виведення елементів масиву в рядок
б) виведення елементів масиву в стовпець
в) виведення елементів масиву по діагоналі
г) запис на екрані коментаря до виводу даних
д) виведення чотирьох елементів масиву
Програма FOR I:=1 TO N DO WRITE(А[I]:4); означає...
а) виведення елементів масиву в рядок
б) виведення елементів масиву в стовпець
в) виведення елементів масиву по діагоналі
г) запис на екрані коментаря до виводу даних
д) виведення чотирьох елементів масиву
Розмірність масиву визначає ...
а) кількість індексів
б) кількість елементів
в) кількість імен
г) кількість масивів
д) тип масиву
Сформулюйте умову завдання: for i:=1 to 10 do s:=s+s[i];
а) знайти суму елементів масиву
б) знайти кількість елементів масиву
в) знайти добуток елементів масиву
г) знайти елементи масиву
д) інша відповідь
Сформулюйте умову завдання: for i:=1 to 10 do s:=s*s[i];
а) знайти суму елементів масиву
б) знайти кількість елементів масиву
в) знайти добуток елементів масиву
г) знайти елементи масиву
д) інша відповідь.
Сформулюйте умову завдання: for i:=1 to 10 do s:=s+1;
а) знайти суму елементів масиву
б) знайти кількість елементів масиву
в) знайти добуток елементів масиву
г) елементи масиву збільшити на 1
д) інша відповідь
Розмір масиву - це:
а) кількість індексів
б) кількість елементів
в) кількість імен
г) кількість змінних
д) кількість масивів
Запис A3[7] означає...
а) заданий масив А3 з 7 елементів
б) сьомий елемент масиву А3
в) ім'я змінної
г) послідовність букв
д) сім масивів А3
Запис B[33]:=99 означає...
а) заданий масив з 33 елементів;
б) 33-му елементу масиву привласнюється значення 99;
в) заданий масив з 99 елементів;
г) розмір масиву рівний 33.
д) 33 масиви В
Що змінює оператор присвоювання?
а) ім’я змінної
б) значення змінної
в) тип змінної
г) тип алгоритму
д) тип масиву
Дано фрагмент програми на мові Паскаль. Вияснити, что вона робить: readln(a); S:=a*a; writeln(S)
а) Вводить з клавіатури a і b і виводить на екран їх добуток
б) Вводить з клавіатури число а і квадрат цього числа
в) Вводить з клавіатури число а, знаходить квадрат цього числа і виводить результат на екран
г) Нічого не робить
д) Вводить з клавіатури S і виводить її значення
Яке значення отримає X після виконання програми: program modula; var X:integer; begin X:=2; if X-X*X>0 then X:=-X else X:=X-2; writeln(X:5); end.
а) 4
б) -3
в) -2
г) 0
д) -4
Нехай x и y типу real. Що буде надруковано при виконанні наступних операторів: x:=5.1; y:=4.8; writeln(x+y:5:2);
а) -9,9
б) 9.9
в) 9.90
г) +9.90
д) 9.9000
Знайдіть невірно записане на Паскалі число:
а) 2,0
б) 5
в) 1998
г) 3.23
д) 3.1415
Відмітьте невірно вказане ім’я змінної:
а) Factorial
б) Krug2
в) Spice Girls
г) n
д) sum
Вкажіть вірний перелік стандартних функцій Паскаля:
а) frac(x) sin(x) ArcTan(x)
б) 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.
д)