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

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

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

Question2

Имеются описания:

type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad);

Какие присваивания допустимы?

	y:=pred(nazad);
	y:=pred(vverh);
	x:=succ(vniz);
	t:=vpered;
	t:=vlevo;

Неверно

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

Question3

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

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

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

	b:=a*g;
	b:='5';
	a:='a';
	b:='12';
	a:=succ('v');
	t:=d or f;
	c:=pred(a);

Верно

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

Question4

Дана программа:

Function f (n: integer): integer;
begin
if n=1
then f:=1
else f:=f(n-1)*n;
end;
var k: integer;
begin
readln (k);
writeln (f(k));
end.

Что будет выведено на экран, если k=4 ?

Неверно

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

Question5

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

	Circle и Ellipse
	SetTextStyle и Delay
	DrawPoly и SetFillStyle
	Bar и Rectangle
	InitGraph и ClearDevice

Верно

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

Question6

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

Var a: array ['a'..'z'] of real; k: integer;

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

	A['d']:=123.5;
	A[chr(ord('b'))]:=-38.23;
	A['r']:=a['s']+a['e'];
	A['z']:=5 mod 2;
	A[k]:=26.345;

Неверно

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

Question7

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

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

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

Верно

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

Question8

Какие элементы будут в множестве b после выполнения следующих операций?

b:=[2,4,6]; b:=b+[2,4,12]; b:=b*[2,6,18];

	[2,6]
	[2,2,4,6,12,18]
	[2,4,6,12]
	[4,6,12,18]

Неверно

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

Question9

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

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

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

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

Неверно

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

Question10

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

b:=6; k:=1; a:=2;
While k>b do
k:=k*a;
Writeln(k);

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

Неверно

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

Question11

Для определения длины строки используется стандартная функция:

	Copy
	Insert
	Length
	Delete
	Concat

Верно

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

Question12

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

	Rewrite
	Close
	Reset

Неверно

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

Question13

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

Type a = record i, f, j: real; c: integer; end;
Var z: a;

Выберите строки, в которых есть ошибки обращения к записи.

	z.i:=1; z.f:=z.i/8; z.c:=2; z.j:=z.c*z.f;
	z.i:=1; z.f:=3.5; z.c:=8; z.j:=z.c*z.f;
	z.i:=1/9; z.f:=z.i/8; z.c:=2; z.j:=z.i mod z.c;
	z.i:=2/5; z.f:=z.i/8; z.c:=2*z.i; z.j:=z.c*z.f;

Неверно

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

Question14

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

	Close
	Nil
	New
	Dispose
	Assign
	Append

Верно

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

Question15

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

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

Неверно

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

Начало формы

Конец формы

Тест начат	Среда 18 Май 2022, 14:24
Завершен	Среда 18 Май 2022, 14:43
Прошло времени	19 мин 12 сек
Правильных ответов из	6/15
Оценка	40 из максимума 100 (40%)
Результат	Незачет

Question1

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

Type a = record i, f, j: real; c: integer; end;
Var z: a;

Выберите строки, в которых есть ошибки обращения к записи.

	z.i:=1; z.f:=3.5; z.c:=8; z.j:=z.c*z.f;
	z.i:=2/5; z.f:=z.i/8; z.c:=2*z.i; z.j:=z.c*z.f;
	z.i:=1/9; z.f:=z.i/8; z.c:=2; z.j:=z.i mod z.c;
	z.i:=1; z.f:=z.i/8; z.c:=2; z.j:=z.c*z.f;

Неверно

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

Question2

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

b:=8; k:=1; a:=2;
Repeat
k:=k*a;
Until k>b;
Writeln(k);

Сколько раз будет работать цикл?

В ответ введите число.
Пример ввода ответа: 12

Неверно