Программирование тест ТУСУР сборник ответов
Более 100 вопросов с ответами.
Тест был собран из нескольких попыток
Год сдачи - 2024.
ВАЖНО!!! Перед покупкой запустите тест и сверьте подходят ли эти ответы именно Вам. На этой странице нажмите CTRL+F, в поиске вводите часть вопроса. Можно использовать несколько попыток до совпадения большей части ответов.
После покупки Вы получите файл с ответами на вопросы которые указаны ниже.
А так же есть еще сборники ответов на тесты ТУСУР и готовые контрольные, курсовые, лабораторные работы. Писать в личные сообщения или смотреть в профиле мой магазин готовых работ.
2
var p: set of 0..9; i, j: integer;
Если i=5 и j=7, то какое значение получит переменная p при выполнении следующего оператора присваивания?
p:=[2*i..j+1];
[8..10]
[8,9,10]
[ ]
Верно
Question4
Определите значение j после выполнения следующих операторов.
i:=1000; j:=39;
while i>0 do
begin
j:=j+1;
i:=i-1;
end;
Подсказка: ответ можно получить, не выполняя эту программу.
Верно
Question6
Блок-схемы предназначены для описания:
синтаксиса программы.
семантики языка программирования.
алгоритма программы.
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
type ref = ^integer;
var p, q: ref;
Пусть p^=5 и q=p.
Что будет выдано на печать в результате выполнения следующих операторов?
q^:=p^+1;
if p<>q then p:=nil else q^:=10;
if q^=10 then begin p:=q; q^:=20; end;
writeln(p^);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question13
Укажите НЕВЕРНОЕ утверждение.
Тип строковой переменной string[N] указывает, что длина строки равна N.
Операции отношения (=, <>, >, <, >=, <=) проводят посимвольное сравнение двух строк слева направо до первого несовпадающего символа. Большей считается та строка, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией. Результат выполнения операций отношения над строками всегда имеет булевский тип. Например, выражение 'MS-DOS'<'MS-Dos' имеет значение True. Если строки имеют различную длину, то более короткая строка меньше, чем более длинная.
Допускается смешение в одном выражении операндов строкового и символьного типов.
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Как записать в виде логического выражения, истинного при выполнении указанного условия и ложного в противном случае:
x принадлежит объединение отрезков [0, 1] и [2, 3]?
(x<1) or (x>0) or (x>2) and (x<3)
(x<1) and (x>0) or (x>2) and (x<3)
(x<1) and (x>0) and (x>2) or (x<3)
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Дан фрагмент программы (все переменные – integer):
z:=0; u:=x;
repeat
z:=z+y;
u:=u–1
until u=0;
Выполните этот фрагмент с заданными x=5, y=10.
Чему равно z после выполнения?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
2
Пусть a=false и b=false.
Укажите истинные логические выражения.
b or (2=5) or (5>9)
(5<>5) or (a and b) or a
not ((3<35) and (7>25) and a)
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
procedure P(x, y, z: integer);
begin y:=x+z end;
procedure Q(x: integer; var y: integer);
begin y:=x+1 end;
procedure R(var x, y: integer);
begin y:=x+1 end;
Для каждой из процедур определите, какие из ее параметров являются параметрами-значениями.
В ответ введите суммарное количество параметров-значений для этих трех процедур.
Пример ввода ответа: 3
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question4
Дан фрагмент программы (все переменные – integer):
z:=0; u:=x;
while u<>0 do
begin
if odd(u) then z:=z+y;
u:= u div 2;
end;
Выполните этот фрагмент с заданными x=5, y=10.
Чему равно z после выполнения?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Даны описания переменных:
var x, y, z: real; i, j, k: integer;
Какие из следующих выражений синтаксически правильны (имеется в виду совместимость типов)?
trunc(x+y) div x
i mod (round(j+y))
i+j–k
i div z + x
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Определите, какими будут значения переменных p и d после выполнения операторов:
p:=false; d:=0; k:=9;
case k*k mod 10 of
3, 2, 7, 5: d:=k;
1:;
4, 8: begin p:=true; if p then d:=3 end;
9, 6: begin p:=true; if not p then d:=2 end
end;
В ответ введите сначала значение переменной p, а потом через пробел значение переменной d.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question8
Выберите верное утверждение.
Любой модуль, созданный программистом, надо компилировать вместе с программой, которая его использует.
Работа со строками реализована подпрограммами, находящимися в модуле crt.
Изображение на экране формируется из светящихся точек (их обычно называют пикселями).
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Что будет напечатано?
Str:='абракадабра';
insert('рак', Str, 3);
write(Str);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Рассмотрите следующее описание функции:
function f(x: integer): integer;
begin
if x<=10 then f:=0 else f:=f(f(f(x-10)))
end;
Каким будет значение f(20)?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
6
Вычислите значение выражения
100 * (x mod 10) + x div 100 + x mod 100 – 1
при x=321.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question7
Дан фрагмент программы (все переменные – integer):
z:=0; u:=x;
while u<>0 do
begin
if odd(u) then z:=z+y;
u:= u div 2;
end;
Выполните этот фрагмент с заданными x=5, y=10.
Чему равно z после выполнения?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Даны описания переменных:
var x, y, z: real; i, j, k: integer;
Какие из следующих выражений синтаксически правильны (имеется в виду совместимость типов)?
trunc(x+y) div x
i mod (round(j+y))
i+j–k
i div z + x
Верно
Выберите все верные ответы (может быть несколько или один).
1
Пусть a=false и b=false.
Укажите истинные логические выражения.
b or (2=5) or (5>9)
(5<>5) or (a and b) or a
not ((3<35) and (7>25) and a)
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record re, im: real end;
var p1: point1; p2: point2; c: complex;
Выберите допустимую конструкцию.
p1[succ(x)]
p2.pred(x)
c.succ(x)
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
var f: file of integer; x, y: integer;
Пусть файл f содержит два элемента 5 и 7 (в данном порядке). Определите, какое значение будет иметь переменная y после выполнения следующих операторов:
reset(f); y:=3;
while not eof(f) do
begin read(f, x); y:=y*x end;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Что будет напечатано программой?
var x, y: char;
procedure P(x: integer);
const y=false;
begin write(x, y) end;
begin x:='*'; y:='1';
P(1); write(x, y);
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question7
Какие утверждения верны?
Вычислительная структура целых чисел состоит из множества целых чисел и некоторого ряда производимых над ними арифметических операций.
Вычислительная структура вещественных чисел состоит из множества вещественных чисел и арифметических операций с вещественными результатами.
Вычислительная структура неоднородных конечных последовательностей состоит из множества конечных последовательностей, элементами которых могут быть данными разных типов. В Паскале эта структура не представлена.
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Имеются описания:
type season = (winter, spring, summer, autumn);
var x, y: season;
t: (warmth, hot);
Что будет напечатано в результате выполнения следующего оператора?
write(ord(spring)+ord(autumn)-ord(hot));
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Эта программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.
var n, f, k: integer;
begin
readln(n); f:=1; k:=0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.
Что будет выведено на экран, если n=4?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
5
Как записать в виде логического выражения, истинного при выполнении указанного условия и ложного в противном случае:
x принадлежит объединение отрезков [0, 1] и [2, 3]?
(x<1) or (x>0) or (x>2) and (x<3)
(x<1) and (x>0) or (x>2) and (x<3)
(x<1) and (x>0) and (x>2) or (x<3)
Верно
Выберите все верные ответы (может быть несколько или один).
10
Пусть a=false и b=true.
Укажите истинные логические выражения.
(5>=5) or (a or b)
('k'='n') and (8>4) or (3>=3)
(7>=17) and (b and (6>0) and (a or b))
('D'<>'T') and (45>4) and not ((a and b))
Верно
Выберите все верные ответы (может быть несколько или один).
12
procedure P(x, y, z: integer);
begin y:=x+z end;
procedure Q(x: integer; var y: integer);
begin y:=x+1 end;
procedure R(var x, y: integer);
begin y:=x+1 end;
Для каждой из процедур определите, какие из ее параметров являются параметрами-значениями.
В ответ введите суммарное количество параметров-значений для этих трех процедур.
Пример ввода ответа: 3
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
3
Что вычисляет следующая программа, если мы вводим n натуральных чисел a1, a2, …, an?
var n, a, k, i: integer;
begin
writeln('Введите количество натуральных чисел');
readln(n);
k:=0;
writeln('Введите ', n, ' натуральных чисел');
for i:=1 to n do
begin
readln(a);
if a mod 2 =0 then if sqr(trunc(sqrt(a div 2))) = a div 2 then k:=k+1;
end;
writeln(k);
end.
Количество полных квадратов среди a1, a2, …, an.
Количество удвоенных нечетных чисел среди a1, a2, …, an.
Количество квадратов нечетных чисел среди a1, a2, …, an.
Количество квадратов четных чисел среди a1, a2, …, an.
Количество удвоенных полных квадратов среди a1, a2, …, an.
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Какие преимущества имеет неформальный способ описания алгоритмов?
Прост и понятен
Не требует знаний формальных описаний алгоритмов
Естественен
Легко понимается компьютером
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
При работе с файлами необходимо выполнять следующие действия в определенном порядке.
1) Открыть файл процедурой reset или rewrite.
2) Выполнить чтение или запись информации.
3) Описать переменную файлового типа.
4) По окончании работы с файлом закрыть файл процедурой close.
5) Связать файловую переменную с конкретным физическим файлом процедурой assign.
В ответ введите номера действий в правильном порядке.
Пример ввода ответа: 3 1 2 4 5
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question14
Пусть a=false и b=false.
Укажите истинные логические выражения.
b or (2=5) or (5>9)
(5<>5) or (a and b) or a
not ((3<35) and (7>25) and a)
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
var p: set of 0..9; i, j: integer;
Если i=5 и j=7, то какое значение получит переменная p при выполнении следующего оператора присваивания?
p:=[2*i..j+1];
[8..10]
[8,9,10]
[ ]
Верно
Выберите все верные ответы (может быть несколько или один).
1
Какие следующие логические выражения истинны?
при n=1
not odd(n)
при t=false, p=10102
not (t and (p mod 3 = 0))
при x=2, y=0
(x*y<>0) and (y>x)
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Определите значение j после выполнения следующих операторов.
i:=1000; j:=39;
while i>0 do
begin
j:=j+1;
i:=i-1;
end;
Подсказка: ответ можно получить, не выполняя эту программу.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Какие утверждения правильные?
Любой модуль состоит из трех частей: первая часть предваряется служебным словом interface; вторая часть начинается со служебного слова implementation; последняя часть всегда состоит только из двух слов begin и end с точкой в конце.
Работа со звуком реализована подпрограммами, находящимися в модуле system.
В графическом режиме количество пикселов по вертикали и по горизонтали определяются выбранным типом графического драйвера и типом графического режима, а также техническими параметрами монитора и компьютера.
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Определите значение j после выполнения следующих операторов.
i:=10; j:=0;
while i>=0 do
begin
j:=j+1;
i:=i-1;
end;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question8
Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
var p1: point1; p2: point2; d: real;
Какой оператор правильно присваивает переменной d расстояние между точками p1 и p2?
d:=sqrt(sqr(p1[x]-p2[x])+sqr(p1[y]-p2[y]));
d:=sqrt(sqr(p1[x]-p2.x)+sqr(p1[succ(x)]-p2.succ(x)));
d:=sqrt(sqr(p1[x]-p2.x)+sqr(p1[succ(x)]-p2.y));
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Запишите указанное действие в виде одного условного оператора.
y=⎧⎩⎨⎪⎪⎪⎪⎪⎪⎪⎪x2,приx<0,x,приx>0,0,иначе.�={�2,при�<0,�,при�>0,0,иначе.
if (0<x) then y:=x else if x<0 then y=sqr(x);
if (x>=0) and (x<=0) then y:=x else y:=sqr(x);
if x>0 then y:=x else y:=sqr(x);
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Какие утверждения верны?
Множество объектов, для которых естественным образом определено некоторое количество операций, называется множеством объектов определенного типа.
Наряду с внутренними операциями для целых чисел определены операции сравнения. Результат сравнений имеет значение «истина» или «ложь».
Вычислительная структура конечных последовательностей символов в Паскале отсутствует.
Верно
Выберите все верные ответы (может быть несколько или один).
1
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Выберите истинное утверждение.
Распределение памяти для статических переменных производится полностью автоматически.
Переменные, созданием и уничтожением которых может явно управлять программист, называются статическими переменными.
Turbo Pascal даёт возможность, как образовывать, так и удалять статические переменные в любой момент работы программы, сообразуясь с потребностями решаемой задачи.
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Что будет напечатано?
write(concat('аб', 'рака', 'дабра'));
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question6
Вычислите значения отношений. Укажите отношения, результат вычисления которых равен true.
[3,6..8]=[2..7,9]
[]>=['0'..'9']
'0' in ['a'..'z']
round(3.9) in [1,3,5]
[]<=[]
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Блок-схемы предназначены для описания:
синтаксиса программы.
семантики языка программирования.
алгоритма программы.
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Укажите строки, содержащие ошибки в приведенном ниже описании функции sum(w), которая должна определять количество элементов в файле w.
type numbers = file of integer;
function sum(w: numbers): integer;
var k, c: integer;
begin reset(w); k:=0;
repeat read(w, c); k:=k+c until eof(w);
sum:=k;
close(w) end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Эта программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.
var n, f, k: integer;
begin
readln(n); f:=1; k:=0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.
Что будет выведено на экран, если n=4?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question13
Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
var p1: point1; p2: point2;
Выберите допустимую конструкцию.
p1[ord(y)]
p1[pred(y)]
p2.pred(y)
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Какое выражение имеет значение 6?
ord(succ(pred(chr(4)))
ord(pred(succ(chr(4))))
ord(succ(succ(chr(4))))
ord(pred(pred(chr(4))))
Верно
Выберите все верные ответы (может быть несколько или один).
1
Для графического программирования на языке Паскаль подключают модуль:
Mouse
Dos
Crt
System
Graph
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Дана программа:
var i, e: integer; s: string;
begin
s:='123';
val (s, i, e);
writeln (e);
end.
Что будет выведено на экран?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question3
Дана рекурсивная функция:
Function f (n: integer): integer;
Var s: integer;
Begin
s:=1;
if n=0
then f:=1
else f:=s*a[n];
end;
Какую задачу решает эта функция?
Эта функция не является рекурсивной.
Находит произведение n элементов массива.
Находит факториал числа n.
Находит сумму натуральных чисел до n.
Находит произведение n чисел Фибоначчи.
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Укажите стандартные процедуры ввода.
Writeln
Write
Read
Begin
Readln
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Символы в языке Паскаль представлены с помощью типа данных:
Boolean
Char
Integer
Real
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Выберите строку, в которой обращение к элементу массива неверно.
A[5-1]
A[2]
A(2)
A[3+2]
A[2*3]
Верно
Выберите все верные ответы (может быть несколько или один).
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
Дан заголовок функции:
Function Primer1(var a:integer; c,f:real; var k:boolean):integer;
Какие параметры функции являются параметрами–переменными?
c
a
f
k
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Выберите конструкции, которые используются для представления оператора цикла с предусловием.
If <условие> Then <оператор>;
If <условие> Then <оператор1> Else <оператор2>;
For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
While <условие> Do <оператор>;
Repeat <оператор1>; <оператор2>; until <условие>;
While <условие> Do begin <оператор1>; <оператор2>; end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Тип данных «запись» объявляется с помощью служебного слова:
Set
Record
String
Array
File
Верно
Выберите все верные ответы (может быть несколько или один).
10
Укажите верное утверждение.
При доступе к некоторому элементу строки по индексу проверяется, что значение индекса не превосходит текущей длины строки.
Длина строки после тех или иных операций с нею может измениться. Но общий размер памяти, отведенной для хранения значения конкретной строковой переменной, все время остается неизменным.
Нумерация символов в строке начинается с 0. Например, чтобы обратиться к третьему символу строки SumStr надо записать SumStr[2].
Верно
Выберите все верные ответы (может быть несколько или один).
1
Имеются описания:
type season = (winter, spring, summer, autumn);
var x, y: season;
t: (warmth, hot);
Какие присваивания допустимы?
x:=pred(spring);
y:=pred(winter);
t:=warmth;
y:=t;
t:=cold;
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Что будет напечатано?
write(concat('аб', 'рака', 'дабра'));
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Какие утверждения правильные?
Аппаратная поддержка графики персонального компьютера обеспечивается двумя основными модулями: видеокартой (графической картой) и монитором.
Монитор персонального компьютера работает в графическом режиме; только некоторые мониторы могут работать также в текстовом режиме.
При выборе текстового режима на экран выводятся символы (литеры), как правило, по 80 символов в 25 строках. Символ представляется из нескольких пикселов, преобразование которых в символ происходит на аппаратном уровне.
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Укажите строки, где в описании функции есть ошибки.
function g(k: integer): integer;
var i, s: integer;
begin s:=0;
for i:=1 to k do
g:=5+sqrt(i) end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Дано описание:
type circle = record
radius: real;
centre: record x, y: real end
end;
var C: circle;
Требуется переменной C присвоить значение, соответствующее кругу радиуса 1 с центром в точке (0, 2). В каких из следующих операторах присоединения правильно решается эта задача?
with C.centre do begin radius:=1; x:=0; y:=2 end;
with C do begin radius:=1; x:=0; y:=2 end;
with C do begin radius:=1; centre.x:=0; centre.y:=2 end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Определите значение s после выполнения следующих операторов.
i:=0; j:=2;
while i<=10 do
begin
i:=i+1;
j:=j+1;
s:=j-i;
end;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Какие следующие логические выражения истинны?
при n=1
not odd(n)
при t=false, p=10102
not (t and (p mod 3 = 0))
при x=2, y=0
(x*y<>0) and (y>x)
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Какие утверждения верны?
Множество объектов, для которых естественным образом определено некоторое количество операций, называется множеством объектов определенного типа.
Наряду с внутренними операциями для целых чисел определены операции сравнения. Результат сравнений имеет значение «истина» или «ложь».
Вычислительная структура конечных последовательностей символов в Паскале отсутствует.
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Выберите истинное утверждение.
Все переменные, которые необходимо описывать в разделе объявления переменных и которые обозначаются идентификаторами, называются динамическими переменными.
Существует ряд задач, для которых невозможно предсказать размер памяти в момент написания программы. В этих задачах необходим другой подход: переменные нужно формировать динамически, не связывая их со структурой программы. Так как средств для явных описаний таких переменных нет, то обращаться к ним по их именам (идентификаторам) невозможно.
Динамические переменные применяются тогда, когда память, используемая программой, предсказуема (известна) в момент написания программы.
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Какие утверждения истинны?
'1' = 1
ord('1') = 1
если c – литера и '0'≤c≤'9', то c – цифра
если c – литера и 'A'≤c≤'Z', то c – большая латинская буква
Верно
Выберите все верные ответы (может быть несколько или один).
1
Вычислите значения отношений. Укажите отношения, результат вычисления которых равен true.
[2]=[2,2,2]
['a','b']<>['b','a']
[4,5,6]<=[4..6]
['c','b']<=['c'..'b']
[2,3,5,7]=[1..9]
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Укажите ЛОЖНОЕ утверждение.
Все файлы, открытые в результате работы программы, должны быть закрыты при завершении программы процедурой close.
На самом деле, нет необходимости закрытия файлов во всех ветвях программы, в том числе в различных аварийных ситуациях. Операционная система сама закроет файл.
При выполнении оператора close закрывается физический файл на диске, и фиксируются изменения, связанные с использованием данного файла.
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Что будет напечатано программой?
var a, b, c, d: integer;
procedure P;
var d: integer;
begin
a:=1; b:=2; c:=3; d:=4;
write(a, b, c, d)
end;
begin
a:=1; b:=1; c:=1; d:=1;
P; write(a, b, c, d)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Пусть формальный язык с алфавитом из трех символов {a, b, c} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<терм>|(терм–<выражение>)
<терм>::a|b|c
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
(a–a)
((a–b)–c)
(a–(b–c))
(a–b–c)
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Имеются следующие описания:
var a: array [1..15] of integer; i: integer;
Укажите неправильные присваивания в случае i:=15.
a[i]:=6;
a[i-2]:=40;
a[i]:=a[i+5];
a[i/2]:=45;
a[i*2]:=6.7;
a[i+14]:=675;
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?
var a, b: integer;
begin
read(a, b, a); writeln(b, a, b, a)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Укажите НЕВЕРНОЕ утверждение.
Тип строковой переменной string[N] указывает, что длина строки равна N.
Операции отношения (=, <>, >, <, >=, <=) проводят посимвольное сравнение двух строк слева направо до первого несовпадающего символа. Большей считается та строка, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией. Результат выполнения операций отношения над строками всегда имеет булевский тип. Например, выражение 'MS-DOS'<'MS-Dos' имеет значение True. Если строки имеют различную длину, то более короткая строка меньше, чем более длинная.
Допускается смешение в одном выражении операндов строкового и символьного типов.
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Выберите верное утверждение.
Если программа использует объекты из модулей u1, u2, u3, то первой строкой в программе (после возможного заголовка программы) должна быть директива для компилятора:
uses u1, u2,u3;
Все стандартные модули, используемые в программе, должны быть указаны с помощью директивы uses.
Функция random из стандартного модуля crt формирует случайное число.
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Какое логическое выражение эквивалентно математическому утверждению: «a и b имеют одинаковые логические значения»?
a or b
a and b or not a and not b
a and b
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Укажите строки правильно описанных типов.
type card = (spades, clubs, diamonds, hearts);
type horse = ('пегий', 'сивый', 'вороной');
type animal = (lion, elephant, giraffe);
type logical = boolean;
Верно
Выберите все верные ответы (может быть несколько или один).
1
Вычислите значения отношений. Укажите отношения, результат вычисления которых равен true.
[3,6..8]=[2..7,9]
[]>=['0'..'9']
'0' in ['a'..'z']
round(3.9) in [1,3,5]
[]<=[]
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Укажите НЕВЕРНОЕ утверждение.
Тип строковой переменной string[N] указывает, что длина строки равна N.
Операции отношения (=, <>, >, <, >=, <=) проводят посимвольное сравнение двух строк слева направо до первого несовпадающего символа. Большей считается та строка, в которой первый несовпадающий символ имеет больший номер в стандартной таблице обмена информацией. Результат выполнения операций отношения над строками всегда имеет булевский тип. Например, выражение 'MS-DOS'<'MS-Dos' имеет значение True. Если строки имеют различную длину, то более короткая строка меньше, чем более длинная.
Допускается смешение в одном выражении операндов строкового и символьного типов.
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Какие утверждения правильны?
Модуль может выполняться, как и программа.
Модуль – совокупность программных ресурсов (констант, типов, переменных, подпрограмм), предназначенных для использования другими модулями и программами.
Если какая-то функция из модуля будет использоваться в других модулях или программах, то ее определение разбивается на две части. В интерфейс модуля помещается заголовок функции, а в реализацию – ее тело.
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?
var a, b: integer;
begin
read(a, b, a); writeln(b, a, b, a)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Какие определения типов допустимы в следующем описании?
Type
t = (re, im);
point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record (re, im): real end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Укажите строки правильно описанных типов.
type letter = ('x', 'y', 'z', 'w');
type vowel = (а, е, i, o, u); {гласная}
type consonant = (b..d, f, g); {согласная}
type card = (metr, kilo, 1000, 100);
type number = (1, 0, 2.71828, 3.1415);
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Определите значение s после выполнения следующих операторов.
s:=1;
repeat
s:=2*s
until s>=100;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Выберите истинное утверждение.
Значением любой ссылочной переменной может быть не только адрес переменной базового типа, но и специальная константа – «нулевой» указатель. Нулевой указатель обозначается служебным словом nil и может быть присвоен любой ссылочной переменной.
Над ссылочными переменными допустимы операции: проверка на равенство и неравенство и проверка «больше» и «меньше».
При выполнении операции p:=nil; значение ссылочной переменной p определено и равно nil – это означает, что p не указывает ни на какую переменную базового типа.
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(96).
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question14
var c, d: integer;
procedure R(var x, y: integer);
begin y:=x+1 end;
Укажите, какие вызовы процедуры ошибочны.
R(1, d)
R(c, d*c)
R(c, 5)
R(d, d)
Верно
Выберите все верные ответы (может быть несколько или один).
14
Определите значение s после выполнения следующих операторов.
s:=0; i:=10;
while i>1 do i:=i-1; s:=s+i*i;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
1
Вычислите значения отношений. Укажите отношения, результат вычисления которых равен true.
[3,6..8]=[2..7,9]
[]>=['0'..'9']
'0' in ['a'..'z']
round(3.9) in [1,3,5]
[]<=[]
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Какие определения типов допустимы в следующем описании?
Type
t = (re, im);
point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record (re, im): real end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Сколько раз будет выполняться тело следующего оператора цикла?
k:=0;
for i:=1 to k+5 do k:=k+2;
В ответ введите число.
Пример ввода ответа: 9
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Определите, какими будут значения переменных p и d после выполнения операторов:
p:=false; d:=0; k:=9;
case k*k mod 10 of
3, 2, 7, 5: d:=k;
1:;
4, 8: begin p:=true; if p then d:=3 end;
9, 6: begin p:=true; if not p then d:=2 end
end;
В ответ введите сначала значение переменной p, а потом через пробел значение переменной d.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question7
Пусть a=false и b=false.
Укажите истинные логические выражения.
b or (2=5) or (5>9)
(5<>5) or (a and b) or a
not ((3<35) and (7>25) and a)
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Что будет напечатано программой?
var x, y: char;
procedure Q;
var x: char;
begin x:=succ(y); y:='*'; write(x, y)
end;
begin x:='a'; y:='6';
Q; write(x, y)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Выберите истинное утверждение.
Распределение памяти для статических переменных производится полностью автоматически.
Переменные, созданием и уничтожением которых может явно управлять программист, называются статическими переменными.
Turbo Pascal даёт возможность, как образовывать, так и удалять статические переменные в любой момент работы программы, сообразуясь с потребностями решаемой задачи.
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
Что будет напечатано?
Str:='абракадабра';
insert('рак', Str, 3);
write(Str);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question14
Пусть формальный язык с алфавитом из четырех символов {x, y, z, w} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<категория1>
<выражение>::=<категория1><категория2>
<категория1>::=x|y
<категория2>::=z|w
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
yz
xx
zy
yw
wx
wy
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Имеются следующие описания:
var a: array [1..15] of integer; i: integer;
Укажите неправильные присваивания в случае i:=15.
a[i]:=6;
a[i-2]:=40;
a[i]:=a[i+5];
a[i/2]:=45;
a[i*2]:=6.7;
a[i+14]:=675;
Верно
Выберите все верные ответы (может быть несколько или один).
14
Выберите верные утверждения.
В любой момент работы программы открытым должен быть только один файл.
После выполнения процедуры rewrite с указанным файлом если файл с таким именем уже существует, он будет использоваться для дальнейшей работы, а имеющаяся в нем до этого информация теряется.
Процедура rewrite создает на диске файл с именем, связанным с файловой переменной, процедурой assign. Указатель работы с файлом устанавливается на начало файла. После выполнения процедуры rewrite файл доступен как для записи, так и для чтения (в случае текстовых файлов – только для записи).
Верно
Выберите все верные ответы (может быть несколько или один).
2
Выберите ЛОЖНЫЕ утверждения.
Все поля записи должны быть разных типов.
Названия полей записи могут совпадать с именами переменных, констант и других объектов программы.
Названия полей записи не могут совпадать с названиями полей других записей.
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Что вычисляет представленная программа, если мы вводим n натуральных чисел a1, a2, …, an?
var n, a, k, i: integer;
begin
writeln('Введите количество натуральных чисел');
readln(n);
k:=0;
writeln('Введите ', n, ' натуральных чисел');
for i:=1 to n do
begin
readln(a);
if a mod 2 =0 then if (a div 2) mod 2 <>0 then k:=k+1;
end;
writeln(k);
end.
Количество полных квадратов среди a1, a2, …, an.
Количество удвоенных нечетных чисел среди a1, a2, …, an.
Количество квадратов нечетных чисел среди a1, a2, …, an.
Количество квадратов четных чисел среди a1, a2, …, an.
Количество удвоенных полных квадратов среди a1, a2, …, an.
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Укажите верное утверждение.
До начала работы с файлами устанавливается связь файловой переменной с именем дискового файла. Это можно выполнить процедурой reset или rewrite.
До тех пор, пока файловая переменная не связана с каким-либо дисковым файлом, никакие операции с ней в программе невозможны.
Нельзя связать файловую переменную с еще не существующим дисковым файлом.
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Укажите строки, где в описании функции есть ошибки.
function g(k: integer): integer;
var i, s: integer;
begin s:=0;
for i:=1 to k do
g:=5+sqrt(i) end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Вычислите значения отношений. Выберите отношения, результат вычисления которых равен false.
[2]<>[2,2,2]
['a','b']=['b','a']
[4,5,6]=[4..6]
['c','b']=['c'..'b']
[0..3,5,7]<=[1..9]
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Какие утверждения правильны?
Интерфейс – это то, что используется в других модулях и программах. Сюда входит описание объектов, доступных (видимых) из других программ.
Модули – компилируемые и тестируемые программные единицы со строго определенными интерфейсами, которые должны компилироваться только с главной программой.
Реализация – это то, что используется только в данном модуле. Эта часть содержит описание объектов, недоступных (невидимых, скрытых) другим программам.
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Что будет напечатано программой, если для ввода заданы числа 2, 3 и 1?
var a, b: integer;
begin
read(a, b, a); writeln(b, a, b, a)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question12
const n = 30;
type vector = array [1..n] of integer;
var a, b, c: vector; k: integer;
Задача. Если векторы a и b различны, то переменной k присвоить их скалярное произведение, иначе в вектор c переписать элементы массива a.
Какая из следующих программ решает эту задачу?
...
if a<>b then k:=a*b else c:=a;
...
...
{t описана как булевская переменная; i имеет тип integer}
t:=true; k:=0;
for i:=1 to n do
if a[i]<>b[i] then t:=false;
if t then c:=a
else for i:=1 to n do k:=k+a[i]*b[i];
...
...
{t описана как булевская переменная; i имеет тип integer}
for i:=1 to n do
if a[i]<>b[i] then t:=false else t:=true;
k:=0;
if t then for i:=1 to n do c[i]:=a[i] else for i:=1 to n do k:=k+a[i]*b[i];
...
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
var p, q: ^integer; r: ^char;
Какие из следующих операторов присваивания правильные?
p:=q;
q:=r;
p:=nil;
r:=nil;
q:=p^;
p^:=nil;
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Пусть формальный язык с алфавитом из трех символов {a, b, c} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<терм>|(терм–<выражение>)
<терм>::a|b|c
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
(a–a)
((a–b)–c)
(a–(b–c))
(a–b–c)
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(95).
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
2
Какие из следующих конструкций являются множествами (в смысле языка Паскаль)?
[9,6,9,0]
[[], 5]
[15..1, 4..18]
['*', '*']
[0..0.1]
Верно
Выберите все верные ответы (может быть несколько или один).
5
Вычислите значение выражения
100 * (x mod 10) + x div 100 + x mod 100 – 1
при x=321.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question6
var f: file of integer; x, y: integer;
Пусть файл f содержит два элемента 5 и 7 (в данном порядке). Определите, какое значение будет иметь переменная y после выполнения следующих операторов:
reset(f); y:=3;
while not eof(f) do
begin read(f, x); y:=y*x end;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
9
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(100).
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
13
Выберите верное утверждение.
Любой модуль, созданный программистом, надо компилировать вместе с программой, которая его использует.
Работа со строками реализована подпрограммами, находящимися в модуле crt.
Изображение на экране формируется из светящихся точек (их обычно называют пикселями).
Верно
Выберите все верные ответы (может быть несколько или один).
15
Как записать в виде логического выражения, истинного при выполнении указанного условия и ложного в противном случае:
x принадлежит объединение отрезков [0, 1] и [2, 3]?
(x<1) or (x>0) or (x>2) and (x<3)
(x<1) and (x>0) or (x>2) and (x<3)
(x<1) and (x>0) and (x>2) or (x<3)
Верно
Выберите все верные ответы (может быть несколько или один).
2
var x: array [1..40] of char;
y: array [3..42] of char;
Задача. Переписать элементы массива y в массив x.
Какие из следующих программ решают эту задачу?
...
y:=x;
...
...
{i имеет тип integer}
for i:=3 to 42 do
x[i-2]:=y[i];
...
...
{i имеет тип integer}
for i:=1 to 40 do
x[i]:=y[i+2];
...
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(95).
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question7
Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record re, im: real end;
var p1: point1; p2: point2; c: complex;
Выберите допустимую конструкцию.
p1[succ(x)]
p2.pred(x)
c.succ(x)
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Какие утверждения верны?
При составлении программы для решения какой-либо задачи необходимо сначала выделить подходящие вычислительные структуры, а затем решить, как эти структуры представлять в языке программирования.
Вычислительная структура символов состоит из множества символов (знаков), для которых выполняются некоторые операции, например, сравнения.
Вычислительная структура неоднородных конечных последовательностей состоит из множества конечных последовательностей, элементами которых могут быть данными разных типов. В Паскале эта структура не представлена.
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Имеются описания:
type day = (yesterday, today, tomorrow);
vector = array [-1..1] of real;
var a: vector;
b: array [-3..3] of (x, y, z, w);
c: array ['a'..'z'] of vector;
d: array [day] of 0..23;
Каково суммарное количество элементов в четырех массивах?
В ответ введите число.
Пример ввода ответа: 12
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Вычислите значение выражения
100 * (x mod 10) + x div 100 + x mod 100 – 1
при x=321.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question11
Определите значение s после выполнения следующих операторов.
i:=0; j:=1;
while i<=100 do
begin
i:=i+1;
j:=j+1;
s:=j-i;
end;
Подсказка: ответ можно получить, не выполняя эту программу.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question12
Что будет напечатано?
Str:='абракадабра';
insert('рак', Str, 3);
write(Str);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question15
var p: set of 0..9; i, j: integer;
Если i=5 и j=7, то какое значение получит переменная p при выполнении следующего оператора присваивания?
p:=[2*i..j+1];
[8..10]
[8,9,10]
[ ]
Верно
Выберите все верные ответы (может быть несколько или один).
1
Какие утверждения верны?
Для заданного значения типа string функция length возвращает целое значение, показывающее количество литер в строке.
Для присваивания строковой переменной результата строкового выражения используется оператор присваивания. Если значение переменной после выполнения оператора присваивания превышает по длине максимально допустимую при описании величину, то выдается ошибка.
Для хранения строковых переменных выделяется количество байтов памяти, на единицу большее максимальной длины строки. Начальный байт этой памяти отводится для хранения текущей длины строки, следующие байты – для символов самой строки.
Верно
Выберите все верные ответы (может быть несколько или один).
Question3
Какие определения типов допустимы в следующем описании?
Type
t = (re, im);
point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record (re, im): real end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=0;
if n>0 then
f:=f(n-1)+f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
var x: array [1..40] of char;
y: array [3..42] of char;
Задача. Переписать элементы массива y в массив x.
Какие из следующих программ решают эту задачу?
...
y:=x;
...
...
{i имеет тип integer}
for i:=3 to 42 do
x[i-2]:=y[i];
...
...
{i имеет тип integer}
for i:=1 to 40 do
x[i]:=y[i+2];
...
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Какие из следующих конструкций являются множествами (в смысле языка Паскаль)?
[9,6,9,0]
[[], 5]
[15..1, 4..18]
['*', '*']
[0..0.1]
Верно
Выберите все верные ответы (может быть несколько или один).
Question10
Укажите верное утверждение.
До начала работы с файлами устанавливается связь файловой переменной с именем дискового файла. Это можно выполнить процедурой reset или rewrite.
До тех пор, пока файловая переменная не связана с каким-либо дисковым файлом, никакие операции с ней в программе невозможны.
Нельзя связать файловую переменную с еще не существующим дисковым файлом.
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Даны описания переменных:
var x, y, z: real; i, j, k: integer;
Какие из следующих выражений синтаксически правильны (имеется в виду совместимость типов)?
trunc(x+y) div x
i mod (round(j+y))
i+j–k
i div z + x
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
Определите, какими будут значения переменных p и d после выполнения операторов:
p:=false; d:=0; k:=9;
case 2*k mod 10 of
3, 2, 7, 5: d:=k;
1:;
4, 8: begin p:=true; if p then d:=3 end;
9, 6: begin if not p then d:=2 end
end;
В ответ введите сначала значение переменной p, а потом через пробел значение переменной d.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question14
Вычислите значение выражения
100 * (x mod 10) + x div 100 + x mod 100 – 1
при x=321.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
1
Рассмотрите следующее описание функции:
function f(x: integer): integer;
begin
if x<=10 then f:=1 else f:=f(f(x-1))
end;
Каким будет значение f(10)?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question4
Укажите строки правильно описанных типов.
type card = (spades, clubs, diamonds, hearts);
type horse = ('пегий', 'сивый', 'вороной');
type animal = (lion, elephant, giraffe);
type logical = boolean;
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
type ref = ^integer;
var p, q: ref;
Пусть p^=2 и q^=3.
Что будет выдано на печать в результате выполнения следующих операторов?
p^:=q^;
if p=q then p:=nil else if p^=q^ then q:=p;
if p=q then q^:=5;
writeln(p^);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question6
Какие утверждения правильны?
Интерфейс – это то, что используется в других модулях и программах. Сюда входит описание объектов, доступных (видимых) из других программ.
Модули – компилируемые и тестируемые программные единицы со строго определенными интерфейсами, которые должны компилироваться только с главной программой.
Реализация – это то, что используется только в данном модуле. Эта часть содержит описание объектов, недоступных (невидимых, скрытых) другим программам.
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
var f: text; i, x: integer;
Определите содержимое файла f после выполнения следующих операторов:
rewrite(f);
for i:=3 downto 1 do begin x:=2*i; write(f, x) end;
close(f);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question9
Что будет напечатано программой?
var x, y: char;
procedure Q;
var x: char;
begin x:=succ(y); y:='*'; write(x, y)
end;
begin x:='a'; y:='6';
Q; write(x, y)
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question10
Пусть формальный язык с алфавитом из четырех символов {x, y, z, w} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<категория1>
<выражение>::=<категория1><категория2>
<категория1>::=x|y
<категория2>::=z|w
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
yz
xx
zy
yw
wx
wy
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Вычислите значение выражения
100 * (x mod 10) + x div 100 + x mod 100 – 1
при x=321.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question12
Вычислите значения отношений. Выберите отношения, результат вычисления которых равен false.
[3,6..8]<=[2..7,9]
[]<=['0'..'9']
'q' in ['a'..'z']
trunc(3.9) in [1,3,5]
odd(4) in []
Верно
Выберите все верные ответы (может быть несколько или один).
Question13
type time = record h {час}: 0..23; m {минута}, s {секунда}: 0..59 end;
Описана процедура next(t, t1), присваивающая параметру t1 время, на 1 секунду меньшее времени t (учитывается смена суток).
В какой строке достаточно сделать небольшие изменения, чтобы эта программа правильно решала задачу?
procedure next(t, t1: time);
begin t1:=t;
with t1 do
if s>0 then s:=s-1
else begin
s:=59;
if m>0 then m:=m-1
else begin m:=59; h:=(h-1) mod 24 end end end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
const n = 30;
type vector = array [1..n] of integer;
var a, b, c: vector; k: integer;
Задача. Если векторы a и b различны, то переменной k присвоить их скалярное произведение, иначе в вектор c переписать элементы массива a.
Какая из следующих программ решает эту задачу?
...
if a<>b then k:=a*b else c:=a;
...
...
{t описана как булевская переменная; i имеет тип integer}
t:=true; k:=0;
for i:=1 to n do
if a[i]<>b[i] then t:=false;
if t then c:=a
else for i:=1 to n do k:=k+a[i]*b[i];
...
...
{t описана как булевская переменная; i имеет тип integer}
for i:=1 to n do
if a[i]<>b[i] then t:=false else t:=true;
k:=0;
if t then for i:=1 to n do c[i]:=a[i] else for i:=1 to n do k:=k+a[i]*b[i];
...
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Сколько раз будет выполняться тело следующего оператора цикла?
k:=1;
for i:=1 to k+499 do k:=k+1;
Подсказка: ответ можно получить, не выполняя эту программу.
В ответ введите число.
Пример ввода ответа: 100
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
1
Укажите строки правильно описанных типов.
type card = (spades, clubs, diamonds, hearts);
type horse = ('пегий', 'сивый', 'вороной');
type animal = (lion, elephant, giraffe);
type logical = boolean;
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
Что будет напечатано?
Str:='абракадабра';
insert('рак', Str, 3);
write(Str);
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question3
Сколько элементов во множестве
[1,3,5]*(([2,4]+[1,3,5])-[1,2,4])?
В ответ введите число.
Пример ввода ответа: 7
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question4
Пусть формальный язык с алфавитом из четырех символов {x, y, z, w} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<категория2><категория1>
<выражение>::=<категория1><категория2>
<категория1>::=x|y
<категория2>::=z|w
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
yz
xx
zy
yw
wx
wy
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Выберите истинное утверждение.
Распределение памяти для статических переменных производится полностью автоматически.
Переменные, созданием и уничтожением которых может явно управлять программист, называются статическими переменными.
Turbo Pascal даёт возможность, как образовывать, так и удалять статические переменные в любой момент работы программы, сообразуясь с потребностями решаемой задачи.
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Выберите верное утверждение.
Если программа использует объекты из модулей u1, u2, u3, то первой строкой в программе (после возможного заголовка программы) должна быть директива для компилятора:
uses u1, u2,u3;
Все стандартные модули, используемые в программе, должны быть указаны с помощью директивы uses.
Функция random из стандартного модуля crt формирует случайное число.
Верно
Выберите все верные ответы (может быть несколько или один).
Question12
var f: file of integer; x, y: integer;
Пусть файл f содержит два элемента 5 и 7 (в данном порядке). Определите, какое значение будет иметь переменная y после выполнения следующих операторов:
reset(f); y:=3;
while not eof(f) do
begin read(f, x); y:=y*x end;
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question13
Дана рекурсивная функция:
function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(100).
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question15
В каком порядке вычисляется следующее выражение?
a or b and not c or d
(a or (b and (not c))) or d
(a or b) and (not (c or d))
((a or b) and (not c)) or d
Верно
Выберите все верные ответы (может быть несколько или один).
1
Что будет напечатано?
write(concat('аб', 'рака', 'дабра'));
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question2
Каков должен быть порядок строк, чтобы следующие описания были правильные?
{1} type
{2} B = record p: A; q: C end;
{3} A = ^integer;
{4} C = ^B;
В ответ введите номера строк в правильном порядке.
Пример ввода ответа: 1 2 3 4
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question3
Даны описания переменных:
var x, y, z: real; i, j, k: integer;
Какие из следующих выражений синтаксически правильны (имеется в виду совместимость типов)?
trunc(x+y) div x
i mod (round(j+y))
i+j–k
i div z + x
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Укажите ЛОЖНОЕ утверждение.
Все файлы, открытые в результате работы программы, должны быть закрыты при завершении программы процедурой close.
На самом деле, нет необходимости закрытия файлов во всех ветвях программы, в том числе в различных аварийных ситуациях. Операционная система сама закроет файл.
При выполнении оператора close закрывается физический файл на диске, и фиксируются изменения, связанные с использованием данного файла.
Верно
Выберите все верные ответы (может быть несколько или один).
Question5
Выберите программы, которые решают задачу: напечатать в одну строку все литеры между '0' и '9', включая и эти цифры.
var i: integer;
begin for i:=ord('0') to ord('9') do write(chr(i)); end.
var c: char;
begin for c:='0' to '9' do write(c); end.
var i: integer; a: string[10];
begin
a[1]:='0';
for i:=1 to 9 do
a[i]:=chr(ord('0')+i);
write(a);
end.
Верно
Выберите все верные ответы (может быть несколько или один).
Question7
Какие из следующих утверждений истинны?
Под множеством в Паскале понимается конечная совокупность элементов, принадлежащих некоторому произвольному базовому типу.
В качестве базовых типов могут использоваться: перечислимые типы данных, символьный и строковый типы.
Для того, чтобы дать переменной множества какое-то значение, используют либо конструктор множества – перечисление элементов множества через запятую в квадратных скобках, либо определение через диапазон. В этом случае во множество включены все элементы диапазона.
Верно
Выберите все верные ответы (может быть несколько или один).
Question8
Выберите верное утверждение.
Любой модуль, созданный программистом, надо компилировать вместе с программой, которая его использует.
Работа со строками реализована подпрограммами, находящимися в модуле crt.
Изображение на экране формируется из светящихся точек (их обычно называют пикселями).
Верно
Выберите все верные ответы (может быть несколько или один).
Question9
Даны описания:
type point1 = array [(x, y)] of real;
point2 = record x, y: real end;
complex = record re, im: real end;
var p1: point1; p2: point2; c: complex;
Выберите допустимую конструкцию.
p1[succ(x)]
p2.pred(x)
c.succ(x)
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
Дан фрагмент программы (все переменные – integer):
q:=0; r:=x;
while r>=y do
begin
r:=r-y; q:=q+1
end;
Выполните этот фрагмент с заданными x=10, y=5.
Чему равно q после выполнения?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question12
Что будет напечатано программой?
var x, y: char;
procedure P(x: integer);
const y=false;
begin write(x, y) end;
begin x:='*'; y:='1';
P(1); write(x, y);
end.
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
1
Имеются описания:
type season = (winter, spring, summer, autumn);
var x, y: season;
t: (warmth, hot);
Какие присваивания допустимы?
x:=pred(spring);
y:=pred(winter);
t:=warmth;
y:=t;
t:=cold;
Верно
Выберите все верные ответы (может быть несколько или один).
Question2
type time = record h {час}: 0..23; m {минута}, s {секунда}: 0..59 end;
Описана процедура next(t, t1), присваивающая параметру t1 время, на 1 секунду меньшее времени t (учитывается смена суток).
В какой строке достаточно сделать небольшие изменения, чтобы эта программа правильно решала задачу?
procedure next(t, t1: time);
begin t1:=t;
with t1 do
if s>0 then s:=s-1
else begin
s:=59;
if m>0 then m:=m-1
else begin m:=59; h:=(h-1) mod 24 end end end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question4
Эта программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.
var n, f, k: integer;
begin
readln(n); f:=1; k:=0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.
Что будет выведено на экран, если n=4?
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question5
Какие утверждения правильны?
Модули – независимо хранимые и разрабатываемые программные единицы со строго определенными интерфейсами.
Модуль может выполняться, как и программа.
Модуль не может содержать только интерфейсную часть.
Верно
Выберите все верные ответы (может быть несколько или один).
Question6
Укажите строки с ошибками в описании рекурсивной функции.
function f(n: integer): integer;
begin f:=1;
if n>1 then
f:=f(n-1)*f
end;
Верно
Выберите все верные ответы (может быть несколько или один).
Question11
procedure P(x, y, z: integer);
begin y:=x+z end;
procedure Q(x: integer; var y: integer);
begin y:=x+1 end;
procedure R(var x, y: integer);
begin y:=x+1 end;
Для каждой из процедур определите, какие из ее параметров являются параметрами-значениями.
В ответ введите суммарное количество параметров-значений для этих трех процедур.
Пример ввода ответа: 3
Верно
Введите слово, словосочетание или символьно-цифровое выражение.
Question13
Какие утверждения верны?
Максимальная длина строковой переменной может быть определена с помощью встроенной функции length.
Строки считаются равными, если они совпадают по длине и содержат одни и те же символы на соответствующих местах в строке.
К отдельным символам строки можно обратиться по номеру (индексу) данного символа в строке.
Верно
Выберите все верные ответы (может быть несколько или один).
Question14
Пусть a=false и b=true.
Укажите истинные логические выражения.
(5>=5) or (a or b)
('k'='n') and (8>4) or (3>=3)
(7>=17) and (b and (6>0) and (a or b))
('D'<>'T') and (45>4) and not ((a and b))
Верно
Выберите все верные ответы (может быть несколько или один).
Question15
Пусть формальный язык с алфавитом из четырех символов {x, y, z, w} описывается следующими формулами Бэкуса-Наура:
<выражение>::=<категория1>
<выражение>::=<категория1><категория2>
<категория1>::=x|y
<категория2>::=z|w
Какие следующие синтаксические цепочки символов принадлежат множеству значений понятия <выражение>?
yz
xx
zy
yw
wx
wy
Верно
Выберите все верные ответы (может быть несколько или один).
