тусур програмирование. Документ Microsoft Office Word (2). Выберите ссылочные типы данных

• Название: Выберите ссылочные типы данных
• Анкор: тусур програмирование
• Дата: 24.05.2022
• Размер: 1.22 Mb.
• Имя файла: Документ Microsoft Office Word (2).docx
• Тип: Документы; #547678
• страница: 8 из 16

Выберите все верные ответы (может быть несколько или один).

Question14

Выберите строку, в которой верно определена файловая переменная.

	Var t: string of file;
	Var f: file of file;
	Var f: set of file;
	Var f: file in integer;
	Var f: file of real;

Верно

Выберите все верные ответы (может быть несколько или один).

Question15

Даны описания:

Var a,b:integer; c,d:real;
procedure obmen(a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;

Выберите строку, в которой нет ошибки применения данной процедуры.

	Obmen(b mod 4,a);
	Obmen(b,round(c),a);
	Obmen(b,a,a);
	Obmen(b,trunc(d));
	Obmen(a);

Неверно

Выберите все верные ответы (может быть несколько или один).

Начало формы

Конец формы

Факуль


Однородные конечные последовательности в языке Паскаль представлены с помощью:

	файлов
	множеств
	записей
	массивов

Неверно

Выберите все верные ответы (может быть несколько или один).

Question2

Дана рекурсивная функция:

Function f (n: integer): integer;
begin
if n=0
then f:=1
else f:=f(n-1)*n;
end;

Какую задачу решает эта функция?

	Находит факториал числа n.
	Находит произведение n чисел Фибоначчи.
	Эта функция не является рекурсивной.
	Находит сумму натуральных чисел до n.
	Находит произведение n элементов массива.

Верно

Выберите все верные ответы (может быть несколько или один).

Question3

Выберите строку, в которой верно определена файловая переменная.

	Var f: file in integer;
	Var f: set of file;
	Var t: string of file;
	Var f: file of file;
	Var f: file of real;

Верно

Выберите все верные ответы (может быть несколько или один).

Question4

Выберите строки, в которых ссылочный тип данных объявлен с ошибкой.

	link = integer;
	linkchar = ^char;
	tie^ = real;
	Ptr = ^integer;

Неверно

Выберите все верные ответы (может быть несколько или один).

Question5

Что будет выведено на экран после выполнения программы?

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.

Верно

Введите слово, словосочетание или символьно-цифровое выражение.

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.

Что будет выведено на экран в результате выполнения программы?

Неверно

Введите слово, словосочетание или символьно-цифровое выражение.

Question7

Выберите конструкции, которые используются для представления оператора цикла с постусловием.

	If <условие> Then <оператор>;
	If <условие> Then <оператор1> Else <оператор2>;
	While <условие> Do begin <оператор1>; <оператор2>; end;
	For <переменная>:=<выражение1> to <выражение2> do <оператор>;
	While <условие> Do <оператор>;
	For <переменная>:=<выражение1> to <выражение2> do begin <оператор1>; <оператор2>; end;
	Repeat <оператор1>; <оператор2>; until <условие>;

Верно

Выберите все верные ответы (может быть несколько или один).

Question8

Дан фрагмент программы:

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');

Неверно

Выберите все верные ответы (может быть несколько или один).

Question9

Для установки требуемого шрифта в графическом режиме используют процедуру:

	InitGraph
	SetFillStyle
	ClearDevice
	SetTextStyle
	CloseGraph

Верно

Выберите все верные ответы (может быть несколько или один).

Question10

Дан фрагмент программы:

Var a, b, c: integer; d, g: real; t, f: boolean;

Выберите выражения, которые записаны верно.

	t:=a*b*g;
	c:=a div b;
	d:=a/c;
	a:=b*g-c;
	c: d=b;
	f:=a>b;

Верно

Выберите все верные ответы (может быть несколько или один).

Question11

Дано описание массива в разделе описания переменных:

Var a: array [1..10] of integer;

Выберите строку, в которой есть ошибка при обращении к массиву.

	A[10]:=a[5];
	A[5]:=123;
	A[4 div 2]:=26;
	A[round(7.3)]:=387;
	A[13]:=5;

Неверно

Выберите все верные ответы (может быть несколько или один).

Question12

Выберите строки, в которых множества описаны с ошибками.

	A: set of real;
	A: set of char;
	A: set of 2.7..5.9;
	A: set of boolean;
	A: set of integer;

Верно

Выберите все верные ответы (может быть несколько или один).

Question13

Даны описания:

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));

Неверно