Тест Программирование ФДО ТУСУР
Тест Программирование ФДО ТУСУР, Оценка 5. Сайт https://study.tusur.ru
Внимательно смотрите демо файлы, там список вопросов и результат
Список вопросов:
Вопрос 1
Укажите следующее действие, записанное в виде условных операторов.
z = max(x, y) при x < 0; min(x, y) при x >=0
Выберите один или несколько ответов:
if x<0 then if x>y then z:=x else z:=y else if x<y then z:=x else z:=y;
if x>=0 then if x>y then z:=x else z:=y else if x>y then z:=x else z:=y;
if x<y then if x>0 then z:=y else z:=x; if x>=0 then z:=y else z:=x;
Вопрос 2
Укажите строки с ошибками в следующем фрагменте программы.
var x, y: real;
…
Выберите один или несколько ответов:
y:=1000;
for x:=0.1 to 0.9 do
y:=y+sin(round(x));
Вопрос 3
Что будет напечатано программой?
var b: integer;
function g(var x: integer): integer;
begin g:=x; x:=0 end;
begin
b:=2; write(g(b), g(b))
end.
Вопрос 4
Определите значение j после выполнения следующих операторов.
i:=5; j:=0;
while i>=0 do
begin
j:=j+1;
i:=i-1;
end;
Вопрос 5
Что будет напечатано программой?
type stringa = array [1..5] of char;
var i: integer; t: stringa;
procedure P(var s: stringa);
begin
i:=1;
while s[i]<'9' do
begin s[i]:=succ(s[i]); i:=i+1 end
end;
begin
i:=1; t:='12945'; P(t);
write(t[2])
end.
Вопрос 6
Определите, какими будут значения переменных p и d после выполнения операторов:
p:=true; d:=1; k:=235;
case k mod 10 of
3, 2, 7, 5: d:=k;
1:;
4, 8: begin p:=false; d:=2 end;
9, 6: begin p:=false; d:=3 end
end;
Укажите сначала значение переменной p, а потом через пробел значение переменной d.
Вопрос 7
const n=40;
var x: array [1..n] of integer;
i: integer; t: boolean;
Задача. Переменной t присвоить значение true, если элементы массива x упорядочены строго по возрастанию, и значение false иначе.
Какие из представленных программ решают эту задачу?
-i:=1;
repeat t:=x[i]<x[i+1]; i:=i+1
until (not t) or (i=n);
-t:=true;
for i:=1 to n-1 do
if x[i]>=x[i+1] then t:=false;
-t:=true; i:=1;
while t do
if x[i+1]>x[i] then i:=i+1 else t:=false;
Вопрос 8
Модули – это:
независимо хранимые и разрабатываемые программные единицы со строго определенными интерфейсами
компилируемые и тестируемые программные единицы со строго определенными интерфейсами, которые должны компилироваться только с главной программой
совокупность программных ресурсов (констант, типов, переменных, подпрограмм), предназначенных для использования другими модулями и программами
Вопрос 9
Что будет напечатано?
write(copy('abcdefgh', 3, 8));
Вопрос 10
Определите значение j после выполнения следующих операторов.
i:=1000; j:=397;
while i>0 do
begin
j:=j+1;
i:=i-1;
end;
Вопрос 11
Определите значение s после выполнения следующих операторов.
s:=1;
repeat
s:=s+s
until s>=10;
Вопрос 12
Какое значение будет иметь переменная z после выполнения операторов при значениях переменных x=-1 и y=1?
z:=0;
if x>0 then if y>0 then z:=1 else z:=2;
Вопрос 13
var p: set of 0..9; i, j: integer;
Если i=3 и j=5, то какое значение получит переменная p при выполнении следующего оператора присваивания?
p:=[2*i..j];
Выберите один или несколько ответов:
[3, 4, 5]
[2, 3, 4, 5, 6]
[ ]
Вопрос 14
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<59 then s:=s+1
else begin
s:=0;
if m<59 then m:=m+1
else begin m:=0; h:=(h+1) mod 24 end
end
end;
Вопрос 15
Что будет напечатано программой, если для ввода заданы числа 1, 2 и 3?
var a, b: integer;
begin
read(b, a, b); writeln(a, b, a, b)
end.
