Ответы к тесту/контрольной: Программирование на языке высокого уровня Паскаль

Какое число получится в результате работы программы? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 2; for i := 1 to 8 do if a[i] < j then inc(k); write(k)end.

По умолчанию все поля и методы являются

Что будет выведено на экран в результате работы программы? var a: string;Procedure P( a: char; var d: char);begin a:='в'; d:='c';end;begin a:='глаз'; P(a[1],a[4]); write (a)end.

В каком из перечисленных фрагментов тело цикла не выполняется ни одного раза?

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

Действие директивы Private распространяется

Заголовок подпрограммы имеет вид: Procedure P(a: string; b: char; var c:real); Укажите правильные варианты вызова подпрограммы, если переменные в вызывающей программе описаны так: var a:string; b,x:real; c:string[5]; d:integer;

Заголовок подпрограммы имеет вид: Procedure P( a:integer; b:word; var c: word; var d:real); Укажите правильные варианты вызова подпрограммы, если переменные в вызывающей программе описаны так: var a:integer; b,k:word; e:integer; d,x:real;

Какую величину вычисляет программа? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 0; for i := 1 to 8 do if a[i] < 0 then k := k + i; write(k)end.

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

Чему будет равно значение переменной m после выполнения программы? var k,m : word;beginm:=1;for k:=1 to 2 do begininc(m); inc(k,2); end;end;

Чему будет равно значение переменной А после выполнения фрагмента программы, если В=2? a:=1;if (b>0) and (b<2) then a:=3;if b>5 then a:=5;

Чему будет равно значение переменной a после выполнения фрагмента программы, если b=0? a:=1;if b<1 then a:=2;if b>5 then a:=3;

В списке параметров процедуры Read могут присутствовать

Может ли объект иметь более одного конструктора?

Какую величину вычисляет программа? var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); for i := 1 to 4 do begin k := 0; for j := 1 to 3 do if a[j,i] >0 then inc(k); end; write(k)end.

Расширенная совместимость типов объектов допускает присваивания:

Стиль ООП рекомендует объявлять методы с директивой

Дано описание объектов: type A = Object Y : Integer; procedure X ( Z : integer); end;var a2:^A; Укажите правильный способ обращения к методу X этого объекта:

Недостатками ООП являются:

Особенность базовых конструкций структурного программирования состоит в том, что:

Чему будет равно значение переменной m после выполнения программы? var k,m : word;begink:=0; m:=0;while k<3 doinc(k);inc(m);end;

Методы, которые в разных объектах иерархии выполняют одно и то же по смыслу действие разными способами, следует объявлять как

Можно ли передать на место параметра-объекта объект, являющийся его потомком?

Одна таблица виртуальных методов строится для каждого

Могут ли совпадать имена параметров метода и имена полей объекта?

Выберите правильные утверждения.

Инкапсуляция приводит к

Упрощение структуры программы всегда приводит

Что будет выведено на экран в результате работы программы? var a,b: string;Procedure P( a: string; var b: string);begin a[1]:=b[1]; b[2]:=a[2];end;begin a:='abcd'; b:= 'opr'; P(a,b); write (a,b)end.

Заголовок подпрограммы имеет вид: Procedure P( a:integer; b:word; var c: word; d:real); Укажите правильные варианты вызова подпрограммы, если переменные в вызывающей программе описаны так: var a:integer; b,k:word; e:integer; d,x:real;

Какое число получится в результате работы программы? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := a[8]; for i := 1 to 8 do if a[i] < k then k := a[i]; write(k)end.

Что можно сказать о приведенном ниже коде? const x : integer = 1;var i : integer;beginfor i := 1 to 4 do begin inc(x); if (i = 4) then break else if (i = 3) then continue;end;end.

Чему будет равно значение переменной m после выполнения программы? var k,m : word;begink:=3; m:=0;while k<3 do begininc(k);inc(m);end;end;

Что будет выведено на экран в результате работы программы var i:word; t:single; begin i := 2; t := 2; write ('/', t:4:1, i:3, i, '/'); end.

Что будет выведено на экран в результате работы программы var k:byte; y:real; begin k := 4; y := 2; write ('* *' ,k, y:k:2,' *'); end.

Чему равно числовое значение выражения sqrt(e)+1e2/20*a при e=4, a=2

Чему равно значение выражения (a or b and c xor c) , где a, b и с - величины типа boolean , имеющие значения false , true и true соответственно?

Чему равно значение выражения (not a and ( b or c )) , где a, b и с - величины типа boolean , имеющие значения true , true и false соответственно?

Параметр подпрограммы описан как var a (без типа).Соответствующий ему аргумент может быть:

Число -33333 можно хранить в переменной типа

Указателю на конкретный тип данных можно присвоить

Какой из перечисленных операторов является оператором немедленного прекращения цикла?

Что будет выведено на экран в результате работы программы? var a,b,c,d: integer;Procedure P( a: integer; var c: integer; var d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; b:=1; c:=1; P(b,a,c); write (a,'|',b,'|',c)end.

Какие объекты должны иметь конструкторы?

Какое число получится в результате работы программы? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := 1; for i := 8 downto 1 do if a[i] = 0 then k := i; write(k)end.

В переменной типа integer можно хранить число

Число -1 можно хранить в переменной типа

При обращении к методу перед его именем указывается

Дан фрагмент программы: var Buf:array[1..20] of word; f: file;begin assign(f, 'bfile.dat'); reset(f, 6); Blockread(f, Buf, 4); … Сколько байтов будет считано из файла?

Освобождает ли динамическую память деструктор с пустым телом?

Дано описание объектов: type A = Object constructor Init; procedure foo; virtual; end; B = Object (A) procedure foo; virtual; end;pb = ^B;var a1:^A; begina1 := New(pB); a1^.foo; Процедура foo какого объекта будет вызвана?

Дано описание объектов: type A = Object Y : Integer; end; B = Object (A) Z : Integer; end;var a1:A; b1:B; Сколько байтов в памяти занимают все поля объекта b1 ?

При использовании New для выделения памяти под объект в виде функции ее первым параметром является:

Можно ли передавать объект в подпрограмму в качестве параметра?

Можно ли при переопределении статического метода в потомке изменить количество его параметров?

Можно ли описывать объект в разделе реализации модуля?

Применение директивы Private позволяет

Стиль ООП рекомендует объявлять поля объектов с директивой

Дано описание объектов: type T = Object Y : Integer; procedure P ( Z : integer); end;var a:^T; Укажите правильный способ обращения к методу P этого объекта:

Заголовок подпрограммы имеет вид: Procedure P(a: string; var b: char; c:real); Укажите правильные варианты вызова подпрограммы, если переменные в вызывающей программе описаны так: var a:string; b,x:real; c:string[5]; d:integer;

Что будет выведено на экран в результате работы программы? var a,b,c,d: integer;Procedure P( var a: integer; c: integer; var d: integer);var b: integer;begin a:=5; c:=7; d:=9;end;begin a:=1; b:=1; c:=1; P(a,b,c); write (a,'|',b,'|',c)end.

Дан фрагмент программы: var Buf:array[1..100] of real; f: file;begin assign(f, 'bfile.dat'); reset(f, 30); Blockread(f, Buf, 3); … Сколько байтов будет считано из файла?

Дан фрагмент программы: var Buf:array[1..100] of integer; f: file;begin assign(f, 'bfile.dat'); reset(f, 10); Blockread(f, Buf, 3); … Сколько байтов будет считано из файла?

Какую величину вычисляет программа? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if a[i] >j then k := abs(a[i]); write(k)end.

Какое число получится в результате работы программы? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,j,k : integer;begin k := 0; j := 4; for i := 1 to 8 do if abs(a[i]) >j then k := a[i]; write(k)end.

Какое число получится в результате работы программы? const a : array[1..8] of integer = (3,8,0,-6,0,-1,-9,3);var i,k : integer;begin k := abs(a[8]); for i := 1 to 8 do if abs(a[i]) >k then k := abs(a[i]); write(k)end.

Чему будет равно значение переменной m после выполнения программы? var k,m : word;beginm:=1;for k:=3 downto 1 do;inc(m);end;

Чему будет равно значение переменной m после выполнения программы? var k,m : integer;begink:=3; m:=0;while k<0 dodec(k);inc(m);end;

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

При использовании в программе процедуры Read требуется разделять числовые значения величин при вводе при помощи

Что будет выведено на экран в результате работы программы var k:byte; x:real; begin k := 2; x := 1; write ('*', '*',x:4:1, k:k, '* *'); end.

Чему равно значение выражения (not ( a and b ) or c) , где a, b и с - величины типа boolean , имеющие значения true ?

В переменной типа shortint можно хранить число

Число 33333 можно хранить в переменной типа

При использовании New для выделения памяти под объект в виде функции ее вторым параметром является:

Таблица истинности какой логической операции приведена ниже? a b a <операция> bfalse false false false true true true false true true true false

Чему равно числовое значение выражения e/(sqrt(a)*0.2e1) при e=8, a=4

Чему будет равно значение переменной m после выполнения программы? var k,m : word;beginm:=1;for k:=3 to 1 do inc(m);end;

Дан фрагмент программы: var Buf:array[1..10] of single; f: file;begin assign(f, 'bfile.dat'); reset(f, 4); Blockread(f, Buf, 5); … Сколько байтов будет считано из файла?

Чему будет равно значение переменной А после выполнения фрагмента программы, если В=2? a:=1;if (b<0) or (b>1) then a:=3;if b>5 then a:=5;

Какую величину вычисляет программа? var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); for i := 1 to 3 do begin k := 0; for j := 1 to 4 do if a[i,j] >0 then inc(k); end; write(k)end.

В переменной типа word можно хранить число

Где располагается тело метода?

Заголовок подпрограммы имеет вид: Procedure P(a: string; b: char; c:real); Укажите правильные варианты вызова подпрограммы, если переменные в вызывающей программе описаны так: var a:string; b,x:real; c:string[5]; d:integer;

Выберите все правильные ответы. Операции not, and, or и xor не применимы к

Таблица истинности какой логической операции приведена ниже? a b a <операция> bfalse false false false true false true false false true true true

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

Что будет выведено на экран в результате работы программы? var a,b: string;Procedure P( a,b: string);var c: string;begin c:=a; a:=b; b:=c;end;begin a:='abc'; b:= 'pr'; P(a,b); write (a,b)end.

Какую величину вычисляет программа? var a : array[1..3,1..4] of integer;var i,j,k : integer;begin for i := 1 to 3 do for j := 1 to 4 do read(a[i,j]); k:=0; for i := 1 to 4 do for j := 1 to 3 do if a[j,i]=0 then k:=i end; write(k)end.

Что будет выведено на экран в результате работы программы? var a,b,c,d: integer;Procedure P( var a,c,d: integer);var b: integer;begin a:=5; c:=7; b:=9;end;begin a:=1; b:=1; c:=1; P(a,b,c); write (a,'|',b,'|',c)end.

Можно ли в объекте-потомке заменить статический метод виртуальным?

Дано описание объектов: type A = Object procedure foo; end; B = Object (A) procedure foo; end;pb = ^B;var a1:^A; begina1 := New(pB); a1^.foo; Процедура foo какого объекта будет вызвана?

Дано описание объектов: type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var b1:B; Укажите правильные способы обращения к полям объекта:

Дано описание объектов: type A = Object Y : Integer; end; B = Object (A) Z,T : Integer; end;var a1:A; b1:B; Сколько байтов в памяти занимают все поля объекта b1 ?

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

При использовании New для выделения памяти под объект в виде процедуры ее вторым параметром является:

При использовании New для выделения памяти под объект в виде процедуры ее первым параметром является:

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

Допустимы ли присваивания