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

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

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

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

Неверно

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

Question8

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

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 ?

Неверно

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

Question9

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

	Reset
	Rewrite
	Close

Неверно

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

Question10

Компилятор выполняет следующие действия:

	преобразует лишь небольшой фрагмент исходной программы в машинные команды, а затем, дождавшись, когда компьютер их выполнит, переходит к обработке следующего фрагмента
	читает всю программу целиком, делает ее перевод на машинный язык и помещает команды в память компьютера
	преобразует машинные команды в исходный код программы

Верно

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

Question11

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

var i: integer; s: string;
begin
i:=278;
str (i, s);
writeln (s);
end.

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

Неверно

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

Question12

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

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

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

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

Неверно

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

Question13

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

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

Верно

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

Question14

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

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;

Неверно

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

Question15

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

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

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

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

Неверно

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

Question1

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

Type aaa = record a, b: integer; c: char; end;
Var z: aaa;
Begin
With z do begin
a:=25; b:=25+8; c:=succ('c');
end;
z.b:=z.a; z.a:=z.b*2;

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

	a=50; b=25; c='d'
	a=25; b=33; c='a'
	a=50; b=33; c='d'
	a=35; b=43; c='b'

Неверно

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

Question2

Выберите строки, в которых есть ошибки обращения к элементу строки S.

	S[2+3]
	S(5)
	S[4/2]
	S[5]
	S[8 mod 3]
	S[3,5]

Верно

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

Question3

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

type dvig = (vverh, vniz, vpravo, vlevo);
var x, y: dvig; t: (vpered, nazad); k: integer;
begin
k:=ord(vniz);
writeln (k);
end.

Верно

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

Question4

К логическим операторам относятся:

	+
	not
	*
	div
	and
	or
	mod
	-

Верно

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

Question5

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

Var a,b,c,d:integer;
Procedure obmen(a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;
Begin
a:=3; b:=5; c:=12; d:=10;
obmen(c,d);
writeln(c);
end.

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

Неверно

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

Question6

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

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

Верно