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

• Название: Выберите верные выражения, характерные для понятия множество
• Дата: 13.01.2022
• Размер: 0.71 Mb.
• Имя файла: Контрольная программирование.docx
• Тип: Документы; #330259
• страница: 11 из 13

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

Question2

Выберите строку с верным описанием.

	Case k of 1..4: d:=1; 4, 5: d:=2; else d:=3; end;
	Case k of 1..3: d:=1; 1, 4, 5: d:=2; else d:=3; end;
	Case k of 1..3: d:=1; 4, 5: d:=2; else d:=3; end;
	Case k of 1..3: d:=1; 7..4: d:=2; else d:=3; end;

Неверно



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

Question3

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

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

Неверно



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

Question4

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

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

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



Верно



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

Question5

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

	Reset
	Rewrite
	Close

Верно



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

Question6

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

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

Неверно



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

Question7

Выберите верное описание массива в разделе описания переменных.

	Var a:array [1.1..2.7] of real;
	Var a: massiv [1..10] of integer;
	Var a: array [10..3] of real;
	Var a: array [1..3];
	Var a: array [1..10] of boolean;

Неверно



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

Question8

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

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

Неверно



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

Question9

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

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(d,c);
writeln(c);
end.

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



Верно



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

Question10

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

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

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

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

Верно



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

Question11

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

	Все значения в множестве должны быть различны.
	Элементы в множестве имеют порядковые номера.
	Порядок «расположения» элементов в множестве никак не фиксируется.
	В множестве могут встречаться одинаковые значения.

Неверно



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

Question12

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

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



Неверно



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

Question13

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

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

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

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

Неверно