Программирование - 2 тест ТУСУР сборник ответов
Более 100 вопросов с ответами.
Тест был собран из нескольких попыток
Год сдачи - 2024.
ВАЖНО!!! Перед покупкой запустите тест и сверьте подходят ли эти ответы именно Вам. На этой странице нажмите CTRL+F, в поиске вводите часть вопроса. Можно использовать несколько попыток до совпадения большей части ответов.
После покупки Вы получите файл с ответами на вопросы, которые указаны ниже.
А так же есть еще сборники ответов на тесты ТУСУР и готовые контрольные, курсовые, лабораторные работы. Писать в личные сообщения или смотреть в профиле мой магазин готовых работ.
1
Имеются описания:
type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad);
Какие присваивания допустимы?
t:=vpered;
y:=pred(vverh);
t:=vlevo;
y:=pred(nazad);
x:=succ(vniz);
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Какие элементы будут в множестве b после выполнения следующих операций?
b:=[1,2,4,6]; b:=b*[2,4,12]; b:=b+[2,6,18];
[4,6,12,18]
[2,6]
[2,2,4,6,12,18]
[2,4,6,18]
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Дан фрагмент программы:
b:=8; k:=1; a:=2;
Repeat
k:=k*a;
Until k<b;
Writeln(k);
Сколько раз будет работать цикл?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question6
Аксиоматической семантикой называют:
описание логических формул, которые определяют определенные свойства конструкций языка программирования
описание последствий отдельных шагов вычислений, которые имеют место при выполнении программы
описание функций программы, то есть установление отношения между входными и выходными данными
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Процедура delete (var S: string; P: integer; N: integer) выполняет { ; } { ; ; } символов строки { ; ; }, начиная с позиции { ; ; }.
Верно
Следуйте подсказкам по вводу ответов.
Question9
Для построения линий в графическом режиме используют процедуры:
OutText и OutTextXY
SetLineStyle и SetColor
PutPixel и GetPixel
Line и LineTo
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Дана программа:
Var a,b,c,d:integer;
procedure obmen(a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Begin
a:=3; b:=5; c:=12; d:=10;
obmen(d,c);
writeln(c);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Очередью называется линейный список, в котором:
все включения производятся на одном конце списка, а все исключения – на другом конце
все включения и исключения делаются в одном конце списка
все включения и исключения производятся в произвольной позиции списка
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Дан фрагмент программы:
b:=6; k:=1; a:=2;
While k<b do
k:=k*a;
k:=k+3;
Writeln(k);
Что будет выведено на экран?
Верно
Введите число.
Question14
Дана программа:
Function f (n: integer): integer;
begin
if n=1
then f:=1
else f:=f(n-1)*n;
end;
var k: integer;
begin
readln (k);
writeln (f(k));
end.
Что будет выведено на экран, если k=4 ?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question15
Выберите ссылочные типы данных.
Single
Function
Pointer
Procedure
Char
Array
Set
Byte
File
Верно
Выберите все верные ответы (может быть несколько или один).
2
Функциональной семантикой называют:
описание функций программы, то есть установление отношения между входными и выходными данными
описание последствий отдельных шагов вычислений, которые имеют место при выполнении программы
описание логических формул, которые определяют определенные свойства конструкций языка программирования
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Какое значение будет выведено на экран после выполнения программы?
type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad); k: integer;
begin
k:=ord(nazad)+ord(vpravo);
writeln (k);
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question4
Даны описания:
Var a,b:integer; c,d:real;
procedure obmen(var a:real; b:integer);
Var s:integer;
Begin
s:=round(a); a:=b; b:=s;
end;
Выберите строку с ошибкой применения данной процедуры.
Obmen(d,b);
Obmen(c,d);
Obmen(c,a mod 10);
Obmen(d,round(c));
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Укажите описание множественного типа данных:
File of integer;
Array [1..10] of integer;
Set of 1..25;
Array [1..10, 1..10] of char;
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Дан фрагмент программы:
b:=6; k:=1;
For a:=1 to b do
k:=k*a;
Writeln(k);
Сколько раз будет работать цикл?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Выберите простые типы данных.
Array
Single
Function
Byte
Char
Set
Procedure
Pointer
File
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Для графического программирования на языке Паскаль подключают модуль:
Mouse
Dos
System
Graph
Crt
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Процедура insert (S1: string; var S: string; I: integer) выполняет:
вставку строки S в строку S1, начиная с позиции I
вставку строки S1 в строку S, начиная с позиции I
объединение I символов строки S с I символами строки S1
вставку I символов строки S в строку S1
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Процедура … позволяет закрыть файл.
Reset
Rewrite
Close
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Дана программа:
Var a,b,c,d:integer;
Function sum(var a,b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(c,d)-c);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question15
Выберите строку, в которой обращение к элементу массива неверно.
A[3+2]
A(2)
A[5-1]
A[2*3]
A[2]
Верно
Выберите все верные ответы (может быть несколько или один).
2
Укажите стандартные процедуры вывода.
Write
Readln
Begin
Writeln
Read
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Функция … имеет значение «истина», когда находит символ «конец файла».
SEEK
EOLN
EOF
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Выберите строки, в которых ссылочный тип данных объявлен с ошибкой.
tie^ = real;
linkchar = ^char;
link = integer;
Ptr = ^integer;
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Интерпретатор выполняет следующие действия:
преобразует машинные команды в исходный код программы
преобразует лишь небольшой фрагмент исходной программы в машинные команды, а затем, дождавшись, когда компьютер их выполнит, переходит к обработке следующего фрагмента
читает всю программу целиком, делает ее перевод на машинный язык и помещает команды в память компьютера
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Дана программа:
Var a,b,c,d:integer;
Function sum(a,b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(c,d)-c);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question12
Точка начала координат в графическом режиме находится:
в центре экрана
в левом верхнем углу
в правом нижнем углу
в левом нижнем углу
в правом верхнем углу
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Данные какого типа могут выступать в качестве индекса массива?
Операторы
Файловый тип данных
Вещественные типы данных
Константы и переменные порядковых типов
Верно
Выберите все верные ответы (может быть несколько или один).
5
Для вывода текста на экран в графическом режиме используют процедуры:
SetLineStyle и Line
OutText и OutTextXY
PutPixel и GetPixel
SetColor и LineTo
Верно
Выберите все верные ответы (может быть несколько или один).
7
Дана программа:
var i: integer; s: string;
begin
i:=278;
str (i, s);
writeln (s);
end.
Что будет выведено на экран?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
12
Тип данных «запись» объявляется с помощью служебного слова:
Set
File
String
Array
Record
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Типичное представление вещественных чисел в Паскале осуществляется с помощью типа данных:
Integer
Char
Real
Boolean
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Дана рекурсивная функция:
Function f (n: integer): integer;
begin
if n=0
then f:=1
else f:=f(n-1)*n;
end;
Какую задачу решает эта функция?
Находит произведение n элементов массива.
Эта функция не является рекурсивной.
Находит произведение n чисел Фибоначчи.
Находит сумму натуральных чисел до n.
Находит факториал числа n.
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Функция … имеет значение «истина», когда находит символ «конец файла».
SEEK
EOF
EOLN
Верно
Выберите все верные ответы (может быть несколько или один).
1
Выберите верные утверждения, характеризующие файловый тип данных.
Файловый тип данных относится к составным типам.
EOF – функция, определяющая тип файла.
Файловый тип данных относится к простым типам.
Тип элементов файла может быть любым, кроме файлового.
Тип элементов файла может быть любым, включая файловый.
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Дан фрагмент программы:
b:=6; k:=1; a:=2;
While k<b do
k:=k*a;
Writeln(k);
Сколько раз будет работать цикл?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question3
Выберите строку, в которой обращение к элементу массива неверно.
A(2)
A[2]
A[2*3]
A[5-1]
A[3+2]
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Для рисования окружности в графическом режиме можно использовать процедуры:
Circle и Ellipse
Bar и Rectangle
SetTextStyle и Delay
DrawPoly и SetFillStyle
InitGraph и ClearDevice
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Дана программа:
Var a,b,c,d:integer;
Function sum(a:integer; var b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(a,b)-b);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question6
Дана программа:
Var a,b,c,d:integer;
Function sum(a:integer; var b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(a,b)-a);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question9
Выберите конструкции, которые используются для представления оператора цикла с предусловием.
If <условие> Then <оператор>;
If <условие> Then <оператор1> Else <оператор2>;
For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
While <условие> Do begin <оператор1>; <оператор2>; end;
Repeat <оператор1>; <оператор2>; until <условие>;
While <условие> Do <оператор>;
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Операционной семантикой называют:
описание функций программы, то есть установление отношения между входными и выходными данными
описание последствий отдельных шагов вычислений, которые имеют место при выполнении программы
описание логических формул, которые определяют определенные свойства конструкций языка программирования
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Для создания динамической переменной используют процедуру:
Assign
Nil
Close
Append
New
Dispose
Верно
Выберите все верные ответы (может быть несколько или один).
1
Дана программа:
Var a,b,c,d:integer;
Function sum(a:integer; var b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(a,b)-b);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question2
Выберите ошибочные утверждения.
Значения перечислимого типа нельзя использовать для непосредственного ввода и вывода с помощью read и write.
Значения перечислимого типа упорядочены в соответствии с описанием, порядковый номер начинается с 0.
К значениям перечислимого типа применяются операции сравнения.
Значения перечислимого типа можно использовать для непосредственного ввода и вывода с помощью read и write.
Допускается описание двух и более перечислимых типов с совпадающими константами.
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Дан фрагмент программы:
b:=6; k:=1; a:=2;
While k<b do
k:=k*a;
Writeln(k);
Что будет выведено на экран?
Верно
Введите число.
Question4
Дан фрагмент программы:
b:=8; k:=1; a:=2;
Repeat
k:=k*a;
Until k>b;
Writeln(k);
Что будет выведено на экран?
Верно
Введите число.
Question5
Для освобождения динамической памяти используют процедуру:
Assign
Append
Nil
Close
Dispose
New
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Функция concat (S1, S2, .., SN: string): string выполняет ___ последовательности строк.
сравнение
удаление
соединение
выделение
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Дана программа:
Var a,b,c,d:integer;
Procedure obmen(a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Begin
a:=3; b:=5; c:=12; d:=10;
obmen(c,d);
writeln(c);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question9
Выберите процедурные типы данных.
Procedure
Array
File
Function
Pointer
Single
Byte
Char
Set
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Для подключения модулей в программе на языке Паскаль используется раздел:
Uses
Procedure
Var
Const
Type
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Однородные конечные последовательности в языке Паскаль представлены с помощью:
множеств
массивов
файлов
записей
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Выберите строку, в которой верно определена файловая переменная.
Var t: string of file;
Var f: file of real;
Var f: file of file;
Var f: file in integer;
Var f: set of file;
Верно
Question14
Какие выражения имеют значение false?
['a','b','c']>=['a','c']-['f','d']
5 in [1..25]
'e' in ['q','r','u']
[1,2,3,4]<=[6,7,8]+[11,12]
[22,44]<=[22,44,55,66]
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Дан фрагмент программы:
Type aaa = record a, b: integer; c: char; end;
Var z: aaa;
Begin
With z do begin
a:=25; b:=25+8; c:=succ('c');
end;
z.b:=z.a; z.a:=z.b*2;
Чему будут равны значения полей записи?
a=35; b=43; c='b'
a=50; b=25; c='d'
a=25; b=33; c='a'
a=50; b=33; c='d'
Верно
Выберите все верные ответы (может быть несколько или один).
1
Выберите составные типы данных.
Char
Array
Pointer
Single
Function
Set
Byte
File
Procedure
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Дано описание функции:
Function sum(a,b:integer):integer;
Var s:integer;
Begin
s:=a+b;
sum:=s;
End;
Выберите локальные переменные функции sum.
s
b
sum
a
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Дан фрагмент программы:
Var s: set of 1..10; r: 1..10;
Begin s:=[2,4,7]; s:=s*[1,2,7,9];
For r:=1 to 10 do
If r in s then write (r, ' ');
End;
Какие значения будут выведены на экран?
1 2 4 7 9
2 4 7
2 7
1 7 9
4 7 9
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Дана рекурсивная функция:
Function f (n: integer): integer;
begin
if n=0
then f:=1
else f:=f(n-1)*a[n];
end;
Какую задачу решает эта функция?
Находит факториал числа n.
Находит произведение n элементов массива.
Находит произведение n чисел Фибоначчи.
Эта функция не является рекурсивной.
Находит сумму натуральных чисел до n.
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Дан фрагмент программы:
b:=6; k:=1;
For a:=b downto 4 do
k:=k*a;
Writeln(k);
Что будет выведено на экран?
Верно
Введите число.
Question8
Выберите конструкции, которые используются для представления оператора цикла с параметром.
While <условие> Do begin <оператор1>; <оператор2>; end;
For <переменная>:=<выражение1> downto <выражение2> do begin <оператор1>; <оператор2>; end;
If <условие> Then <оператор>;
While <условие> Do <оператор>;
For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
Repeat <оператор1>; <оператор2>; until <условие>;
For <переменная>:=<выражение1> to <выражение2> do <оператор>;
If <условие> Then <оператор1> Else <оператор2>;
For <переменная>:=<выражение1> downto <выражение2> do <оператор>;
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Дана программа:
Var a,b,c,d:integer;
procedure obmen(var a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Begin
a:=3; b:=5; c:=12; d:=10;
obmen(b,a);
writeln(a);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Дан фрагмент программы:
Type aaa = record a, b: integer; c: char; end;
Var z: aaa;
Выберите строки, в которых есть ошибки обращения к записи.
z[a]:=2; z[b]:=9; z[c]:=succ('c'); end;
z.a:=1; z.b:=z.a*8; z.c:='+';
With z do begin a:=25; b:=2+8; c:='c'; end;
z.a:=succ('3'); z.b:=2+8; z.c:='x';
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Функция … имеет значение «истина», когда находит символ «конец строки» в файле.
SEEK
EOF
EOLN
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Дано описание переменных:
var p, q: ^integer; a, b: integer;
Выберите строки с ошибками.
new (p); new (q);
a:=q^;
a:=p;
p^:=3; q^:=2;
p^:=q^;
new (a); new (b);
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Интерпретатор выполняет следующие действия:
преобразует лишь небольшой фрагмент исходной программы в машинные команды, а затем, дождавшись, когда компьютер их выполнит, переходит к обработке следующего фрагмента
читает всю программу целиком, делает ее перевод на машинный язык и помещает команды в память компьютера
преобразует машинные команды в исходный код программы
Верно
Выберите все верные ответы (может быть несколько или один).
1
Выберите ошибочные утверждения.
К значениям перечислимого типа применяются операции сравнения.
Допускается описание двух и более перечислимых типов с совпадающими константами.
Значения перечислимого типа упорядочены в соответствии с описанием, порядковый номер начинается с 0.
Значения перечислимого типа нельзя использовать для непосредственного ввода и вывода с помощью read и write.
Значения перечислимого типа можно использовать для непосредственного ввода и вывода с помощью read и write.
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Выберите верное утверждение, характерное для типа данных «записи».
Все операции производятся над отдельными полями записи.
Над записями невозможно произведение каких-либо операций.
Единственная операция, которую можно произвести над однотипными записями, – это присваивание, все другие операции производятся над отдельными полями записи.
Над записями возможны операции: объединение, пересечение, разность.
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Дана программа:
Var a,b,c,d:integer;
Procedure obmen(a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Begin
a:=3; b:=5; c:=12; d:=10;
obmen(c,d);
writeln(c);
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Что будет напечатано в результате выполнения представленных операторов?
p^:=3; q^:=2;
p^:=q^;
if p=q then p:=nil else if p^=q^ then q:=p;
if p<>q then q^:=8;
writeln (p^);
Верно
Введите число.
Question6
Процедура … позволяет открыть файл для записи в него данных.
Close
Rewrite
Reset
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Выберите строки, в которых множества описаны с ошибками.
A: set of integer;
A: set of char;
A: set of real;
A: set of 2.7..5.9;
A: set of boolean;
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Даны заголовки процедур. Выберите строки, в которых содержатся ошибки.
Procedure Primer(var a,b:integer; c,d:real);
Procedure Primer(var a:integer; c:function);
Procedure Primer(var a:integer; c:real);
Procedure Primer(var a:integer; c:real):integer;
Procedure Var(a:integer; c:real);
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Дана рекурсивная функция:
Function f (n: integer): integer;
begin
if n=0
then f:=0
else begin
if n=1 then f:=1 else f:=f(n-1)+f(n-2);
end;
end;
Какую задачу решает эта функция?
Находит n-e число Фибоначчи.
Находит сумму натуральных чисел до n.
Эта функция не является рекурсивной.
Находит произведение n элементов массива.
Находит факториал числа n.
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Дан фрагмент программы:
b:=6; k:=1;
For a:=1 to b do
k:=k*a;
Writeln(k);
Сколько раз будет работать цикл?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question15
Процедура delete (var S: string; P: integer; N: integer) выполняет { ; } { ; ; } символов строки { ; ; }, начиная с позиции { ; ; }.
Верно
Следуйте подсказкам по вводу ответов.
1
Тип данных «запись» объявляется с помощью служебного слова:
File
Set
Array
String
Record
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Для рисования прямоугольников в графическом режиме используют процедуры:
SetTextStyle и Delay
CloseGraph и SetFillStyle
Circle и Ellipse
Bar и Rectangle
InitGraph и ClearDevice
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Типичное представление целых чисел в Паскале осуществляется с помощью типа данных:
Real
Integer
Boolean
Char
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Какие выражения имеют значение false?
'e' in ['q','r','u']
[1,2,3,4]<=[6,7,8]+[11,12]
[22,44]<=[22,44,55,66]
['a','b','c']>=['a','c']-['f','d']
5 in [1..25]
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Функция … имеет значение «истина», когда находит символ «конец файла».
EOF
EOLN
SEEK
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Выберите конструкции, которые используются для представления условного оператора.
If <условие> Then <оператор1> Else <оператор2>;
For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
If <условие> Then <оператор>;
While <условие> Do <оператор>;
While <условие> Do begin <оператор1>; <оператор2>; end;
Repeat <оператор1>; <оператор2>; until <условие>;
Верно
Выберите все верные ответы (может быть несколько или один).
3
Дана программа:
Var a,b,c,d:integer;
Function sum(a,b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(c,d));
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question4
Функция … имеет значение «истина», когда находит символ «конец файла».
EOLN
EOF
SEEK
Верно
Выберите все верные ответы (может быть несколько или один).
6
Для освобождения динамической памяти используют процедуру:
Assign
Close
Dispose
Nil
Append
New
Верно
Выберите все верные ответы (может быть несколько или один).
13
Дано описание массива в разделе описания переменных:
Var a: array [1..10] of integer;
Выберите строку, в которой есть ошибка при обращении к массиву.
A[1]:=5 mod 2;
A[10]:=a[5]+a[2];
A[round(7.3)]:=-38;
A[4 div 2]:=round(26.345);
A[5]:=123.5;
Верно
Выберите все верные ответы (может быть несколько или один).
15
Для инициализации графического режима используют стандартную процедуру:
CloseGraph
InitGraph
ClearDevice
SetFillStyle
SetTextStyle
Верно
Выберите все верные ответы (может быть несколько или один).
1
Стек – это линейный список, в котором:
все включения и исключения производятся в произвольной позиции списка
все включения и исключения делаются в одном конце списка
все включения производятся на одном конце списка, а все исключения – на другом конце
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Какие элементы будут в множестве b после выполнения следующих операций?
b:=[2,4,6]; b:=b+[2,4,12]; b:=b*[2,6,18];
[2,2,4,6,12,18]
[2,4,6,12]
[2,6]
[4,6,12,18]
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Выберите конструкции, которые используются для представления оператора цикла с параметром.
For <переменная>:=<выражение1> to <выражение2> do <оператор>;
For <переменная>:=<выражение1> downto <выражение2> do begin <оператор1>; <оператор2>; end;
If <условие> Then <оператор>;
For <переменная>:=<выражение1> downto <выражение2> do <оператор>;
Repeat <оператор1>; <оператор2>; until <условие>;
While <условие> Do <оператор>;
For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
While <условие> Do begin <оператор1>; <оператор2>; end;
If <условие> Then <оператор1> Else <оператор2>;
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Даны описания:
Var a: array ['a'..'z'] of real; k: integer;
Выберите строку, в которой есть ошибка при обращении к массиву.
A['d']:=123.5;
A[k]:=26.345;
A['r']:=a['s']+a['e'];
A[chr(ord('b'))]:=-38.23;
A['z']:=5 mod 2;
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Дана программа:
Var a,b,c,d:integer;
Function sum(a,b:integer):integer;
Var s:integer;
Begin
a:=a+2; b:=b+1;
s:=a+b;
sum:=s;
End;
Begin
a:=3; b:=5; c:=12; d:=10;
writeln(sum(c,d));
end.
Что будет выведено на экран в результате выполнения программы?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question7
Дан фрагмент программы:
b:=6; k:=1;
For a:=b to 1 do
k:=k*a;
Writeln(k);
Сколько раз будет работать цикл?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question8
Даны описания:
Var a,b:integer; c,d:real;
procedure obmen(a:integer; b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Выберите строку с ошибкой применения данной процедуры.
Obmen(round(c),a mod 10);
Obmen(a,round(c));
Obmen(trunc(d),b);
Obmen(b-4,b+7);
Obmen(d,b);
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Дана рекурсивная функция:
Function f (n: integer): integer;
begin
if n=0
then f:=1
else f:=f(n-1)*a[n];
end;
Какую задачу решает эта функция?
Находит произведение n чисел Фибоначчи.
Находит произведение n элементов массива.
Эта функция не является рекурсивной.
Находит факториал числа n.
Находит сумму натуральных чисел до n.
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Дана программа:
var i: integer; s: string;
begin
i:=278;
str (i, s);
writeln (s);
end.
Что будет выведено на экран?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Для вывода текста на экран в графическом режиме используют процедуры:
SetLineStyle и Line
OutText и OutTextXY
PutPixel и GetPixel
SetColor и LineTo
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Укажите стандартные процедуры вывода.
Begin
Read
Writeln
Write
Readln
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Процедура … позволяет открыть файл для чтения из него данных.
Reset
Close
Rewrite
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Что будет выведено на экран после выполнения программы?
type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad); k: integer;
Begin
T:=nazad; X:=vniz;
Case x of
Vverh, vniz: k:=1;
Else k:=0;
End;
Writeln (k);
End.
Верно
