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

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

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

Question7

Выберите строки, в которых правильно добавляется элемент в множество.

A: set of 1..100;

	A:=A+(12)-(5);
	A:=A+[200];
	A:=A+[3];
	A:=A+[2,4,6]*[5,6,12];
	A:=A+(8);

Неверно

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

Question8

Для построения многоугольников используют процедуру:

	DrawPoly
	CloseGraph
	InitGraph
	ClearDevice
	Bar
	Rectangle
	SetFillStyle

Верно

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

Question9

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

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.
	Находит n-e число Фибоначчи.
	Находит произведение n элементов массива.
	Эта функция не является рекурсивной.
	Находит факториал числа n.

Неверно

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

Question10

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

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(d,round(c));
	Obmen(c,d);
	Obmen(c,a mod 10);

Неверно

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

Question11

Процедура … позволяет открыть файл для записи в него данных.

	Reset
	Rewrite
	Close

Неверно

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

Question12

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

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

Неверно

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

Question13

Что будет напечатано в результате выполнения представленных операторов?

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

Неверно

Введите число.

Question14

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

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

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

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

Неверно

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

Question15

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

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

Неверно

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

• 
   Question1
  

Выберите выражения, которые являются истинными для понятия «множество».

	Множество – это простой тип данных.
	Множество – это составной тип данных.
	Количество элементов в множестве не ограничено.
	Количество элементов в множестве не должно быть более 256.
	Элементы в множестве располагаются в порядке возрастания.

Неверно

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

Question2

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

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

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

	c:=(a+25) div b;
	d:=d*a-b/c;
	f:=t or f;
	5:=b*8-c;
	t:=a mod 10;
	c:=d and b;

Неверно

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

Question3

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

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;
	With z do a:=25; b:=2+8; c:=succ('x');
	z.a:=1; z.b:=z.a*8; z.c:='+';

Неверно

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

Question4

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

b:=6; k:=1; a:=2;
While kBegin
k:=k*a;
k:=k+3;
end;
Writeln(k);

Что будет выведено на экран?

Верно

Введите число.

Question5

Дано описание переменных:

var p, q: ^integer; a, b: integer;

Выберите строки с ошибками.

	p^:=3; q^:=2;
	p^:=q^;
	new (a); new (b);
	a:=p;
	new (p); new (q);
	a:=q^;

Неверно

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

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)-b);
end.

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

Неверно

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

Question7

Дан заголовок функции:

Function Primer1(var a:integer; c,f:real; var k:boolean):integer;

Какие параметры функции являются параметрами–значениями?

	c
	f
	a
	k

Неверно