Зачем в Delphi 7 используются ассемблерные вставки?
Варианты ответа:
1) Для совместимости с предыдущими версиями Delphi
2) Для предоставления возможности программисту самостоятельно оптимизировать блок кода, критический по времени исполнения
3) Для непосредственной работой с оперативной памятью и кучей
4) Для реализации процедур/функций, которые невозможно создать с помощью стандартного набора команд Delphi 7
Зачем в Delphi 7 используются ассемблерные вставки?
Варианты ответа:
1) Для совместимости с предыдущими версиями Delphi
2) Для предоставления возможности программисту самостоятельно оптимизировать блок кода, критический по времени исполнения
3) Для непосредственной работой с оперативной памятью и кучей
4) Для реализации процедур/функций, которые невозможно создать с помощью стандартного набора команд Delphi 7
Какое соглашение о вызовах для процедур и функций используется в Delphi 7 по умолчанию?
Какое соглашение о вызовах для процедур и функций используется в Delphi 7 по умолчанию?
Что выведет в консольном окне следующая программа:
program Test;
{$APPTYPE CONSOLE}
type
TTest = class
public
realFunction: function(r: Integer): Integer of object;
function a(t: Integer): Integer;
end;
function TTest.a(t: Integer): Integer;
begin
result := t*2;
write(t);
end;
var
tmp: TTest;
d: Integer;
begin
d := 1;
tmp := TTest.Create;
tmp.realFunction := tmp.a;
d := tmp.realFunction(d);
write(d);
tmp.Free;
end.
Что выведет в консольном окне следующая программа:
program Test;
{$APPTYPE CONSOLE}
type
TTest = class
public
realFunction: function(r: Integer): Integer of object;
function a(t: Integer): Integer;
end;
function TTest.a(t: Integer): Integer;
begin
result := t*2;
write(t);
end;
var
tmp: TTest;
d: Integer;
begin
d := 1;
tmp := TTest.Create;
tmp.realFunction := tmp.a;
d := tmp.realFunction(d);
write(d);
tmp.Free;
end.
Что выведет следующая программа?
var
a : Integer;
begin
a := 2;
while (a < 10) do
begin
a := a + 2;
if (a = 7) then Break;
end;
Writeln(a);
end.
Что выведет следующая программа?
var
a : Integer;
begin
a := 2;
while (a < 10) do
begin
a := a + 2;
if (a = 7) then Break;
end;
Writeln(a);
end.
Определите назначение свойства Transparent компонента Label.
Варианты ответа:
1) Признак наследования компонентом характеристик шрифта формы, на которой находится компонент
2) Задает способ выравнивания текста внутри поля
3) Цвет фона области вывода текста
4) Управляет отображением фона области вывода текста
5) Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на другую строку
Определите назначение свойства Transparent компонента Label.
Варианты ответа:
1) Признак наследования компонентом характеристик шрифта формы, на которой находится компонент
2) Задает способ выравнивания текста внутри поля
3) Цвет фона области вывода текста
4) Управляет отображением фона области вывода текста
5) Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на другую строку
Какое значение будет иметь Y после выполнения следущего фрагмента кода:
procedure TForm1.Button4Click(Sender: TObject);
var X1, X2, Y: Integer;
begin
X1 := 2345;
X2 := 863;
Y := not X1 and X2 or X1 and not X2;
Y := X2 xor Y;
end;
Какое значение будет иметь Y после выполнения следущего фрагмента кода:
procedure TForm1.Button4Click(Sender: TObject);
var X1, X2, Y: Integer;
begin
X1 := 2345;
X2 := 863;
Y := not X1 and X2 or X1 and not X2;
Y := X2 xor Y;
end;
Выберите корректные названия переменных:
Выберите корректные названия переменных:
Что выведет следующая программа?
var
arr1 : array [Char] of Byte;
i : char;
begin
for i := chr(1) to chr(255) do
arr1[i] := ord(i);
for i := chr(1) to chr(3) do
Write(arr1[i],' ');
end.
Что выведет следующая программа?
var
arr1 : array [Char] of Byte;
i : char;
begin
for i := chr(1) to chr(255) do
arr1[i] := ord(i);
for i := chr(1) to chr(3) do
Write(arr1[i],' ');
end.
Что выведет следующая программа?
var
arr : array [1..3] of int64;
ind : int64;
begin
arr[1] := 2;
arr[2] := 3;
arr[3] := 9;
for ind :=1 to 3 do
begin
write(arr[ind],' ');
end;
end.
Что выведет следующая программа?
var
arr : array [1..3] of int64;
ind : int64;
begin
arr[1] := 2;
arr[2] := 3;
arr[3] := 9;
for ind :=1 to 3 do
begin
write(arr[ind],' ');
end;
end.
Сколько элементов содержит массив cube?
cube : array [1..2,1..2,1..2,1..2] of Boolean ;
Сколько элементов содержит массив cube?
cube : array [1..2,1..2,1..2,1..2] of Boolean ;
Какой тип данных имеет string , если компилятор настроен по умолчанию?
Какой тип данных имеет string , если компилятор настроен по умолчанию?
Что выведет следующая программа?
var
a,b : Integer;
p : ^Integer;
begin
a := 10;
b := 5;
p := Addr(b);
p^ := 2;
Writeln(a div b);
end.
Что выведет следующая программа?
var
a,b : Integer;
p : ^Integer;
begin
a := 10;
b := 5;
p := Addr(b);
p^ := 2;
Writeln(a div b);
end.
Какие из следующих объявлений класса идентичны и корректны?
Какие из следующих объявлений класса идентичны и корректны?
Какое максимальное количество элементов может входить в множество (set)?
Какое максимальное количество элементов может входить в множество (set)?
Что напечатает следующий код:
var
Panel, ChildPanel: TPanel;
begin
Panel:= TPanel.Create(nil);
ChildPanel:= TPanel.Create(Panel);
ChildPanel.Caption:= 'Test panel';
Panel.Destroy;
ChildPanel.Caption:= '111';
Writeln(ChildPanel.Caption);
Readln;
end.
Что напечатает следующий код:
var
Panel, ChildPanel: TPanel;
begin
Panel:= TPanel.Create(nil);
ChildPanel:= TPanel.Create(Panel);
ChildPanel.Caption:= 'Test panel';
Panel.Destroy;
ChildPanel.Caption:= '111';
Writeln(ChildPanel.Caption);
Readln;
end.
Что выведет следующий код?
{$Z1}
typе
TFоо = (fоо=255, bаr);
bеgin
WritеLn(SizеОf(TFоo));
еnd.
Что выведет следующий код?
{$Z1}
typе
TFоо = (fоо=255, bаr);
bеgin
WritеLn(SizеОf(TFоo));
еnd.
Что выведет следующая программа?
type
A = class
procedure w;
end;
B = class(A);
procedure A.w;
begin
Writeln('w from A');
end;
var
abba : B;
begin
abba.w;
end.
Что выведет следующая программа?
type
A = class
procedure w;
end;
B = class(A);
procedure A.w;
begin
Writeln('w from A');
end;
var
abba : B;
begin
abba.w;
end.
Что выведет следующая программа?
var
a,b : Integer;
begin
b := 1000;
a := Succ(b);
if (a > b) then
writeln('!');
writeln('?');
end.
Варианты ответа:
1)
Программа не скомпилируется.
2)
1
?
3)
1
4)
?
1
?
Чему будет равно значение переменной X в результате выполнения следующего фрагмента программы?
var
V1, V2, V3: Variant;
X:real;
begin
V1 := '10';
V2 := '20';
V3 := 30;
V1:= V1+ V2 - V3;
X := V1 + V2 + V3;
end;
Чему будет равно значение переменной X в результате выполнения следующего фрагмента программы?
var
V1, V2, V3: Variant;
X:real;
begin
V1 := '10';
V2 := '20';
V3 := 30;
V1:= V1+ V2 - V3;
X := V1 + V2 + V3;
end;