Тест Программирование ФДО ТУСУР
Тест Программирование ФДО ТУСУР, Оценка Зачет. Сайт https://study.tusur.ru
Внимательно смотрите демо файлы, там список вопросов и результат
Список вопросов:
Вопрос 1
Дан фрагмент программы:
Type aaa = record a, b: integer; c: char; end;
Var z: aaa;
Выберите строки, в которых есть ошибки обращения к записи.
With z do begin a:=25; b:=25+8; c:='c'; end;
With z do begin a:=2; b:=true; c:=succ('c'); end;
z.a:=1; z.b:=z.a*8; z.c:='+';
With z do a:=25; b:=2+8; c:=succ('x');
Вопрос 2
Дана рекурсивная функция:
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 чисел Фибоначчи.
Вопрос 3
Даны описания:
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(d,b);
Obmen(a,round(c));
Obmen(b-4,b+7);
Obmen(round(c),a mod 10);
Obmen(trunc(d),b);
Вопрос 4
Дан фрагмент программы:
b:=8; k:=1; a:=2;
Repeat
k:=k*a;
Until k>b;
Writeln(k);
Что будет выведено на экран?
Ответ:
Вопрос 5
Выберите составные типы данных.
Set
Char
Pointer
Procedure
Byte
File
Function
Single
Array
Вопрос 6
Выберите строки, в которых множества описаны с ошибками.
A: set of real;
A: set of integer;
A: set of boolean;
A: set of 2.7..5.9;
A: set of char;
Вопрос 7
Дана программа:
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.
Что будет выведено на экран в результате выполнения программы?
Вопрос 8
Типичное представление целых чисел в Паскале осуществляется с помощью типа данных:
Integer
Boolean
Real
Char
Вопрос 9
Очередью называется линейный список, в котором:
все включения и исключения производятся в произвольной позиции списка
все включения производятся на одном конце списка, а все исключения – на другом конце
все включения и исключения делаются в одном конце списка
Вопрос 10
Если параметры процедуры относятся к файловому типу, они могут быть:
исключительно параметрами–значениями
как параметрами–значениями, так и параметрами–переменными
исключительно параметрами–переменными
Вопрос 11
Выберите строку, в которой обращение к элементу массива неверно.
A(2)
A[5-1]
A[3+2]
A[2]
A[2*3]
Вопрос 12
Дана программа:
var i: integer; s: string;
begin
i:=278;
str (i, s);
writeln (s);
end.
Что будет выведено на экран?
Вопрос 13
Что будет выведено на экран после выполнения программы?
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.
Вопрос 14
Для рисования окружности в графическом режиме можно использовать процедуры:
Circle и Ellipse
InitGraph и ClearDevice
SetTextStyle и Delay
DrawPoly и SetFillStyle
Bar и Rectangle
Вопрос 15
Дан фрагмент программы:
b:=5; k:=1;
For a:=b downto 4 do
Begin
k:=k*a;
k:=k+1;
end;
Writeln(k);
Что будет выведено на экран?
