Какое значение будет иметь 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;
Что выведет следующий код?
{$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.
Что выведет следующая программа?
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.
Что выведет следующая программа?
var
a,b : Integer;
begin
b := 1000;
a := Succ(b);
if (a > b) then
writeln('!');
writeln('?');
end.
Варианты ответа:
1)
Программа не скомпилируется.
2)
1
?
3)
1
4)
?
1
?
Что выведет в консольном окне следующая программа:
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.
Определите назначение свойства Transparent компонента Label.
Варианты ответа:
1) Признак наследования компонентом характеристик шрифта формы, на которой находится компонент
2) Задает способ выравнивания текста внутри поля
3) Цвет фона области вывода текста
4) Управляет отображением фона области вывода текста
5) Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на другую строку
Определите назначение свойства Transparent компонента Label.
Варианты ответа:
1) Признак наследования компонентом характеристик шрифта формы, на которой находится компонент
2) Задает способ выравнивания текста внутри поля
3) Цвет фона области вывода текста
4) Управляет отображением фона области вывода текста
5) Признак того, что слова, которые не помещаются в текущей строке, автоматически переносятся на другую строку
Сколько элементов содержит массив 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 ;
Что выведет следующая программа?
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.
Что выведет следующая программа?
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.
Что выведет следующая программа?
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.
Какой тип данных имеет string , если компилятор настроен по умолчанию?
Какой тип данных имеет string , если компилятор настроен по умолчанию?
Чему будет равно значение переменной 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;
Какое соглашение о вызовах для процедур и функций используется в Delphi 7 по умолчанию?
Какое соглашение о вызовах для процедур и функций используется в Delphi 7 по умолчанию?
Что выведет следующая программа?
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.
Какое максимальное количество элементов может входить в множество (set)?
Какое максимальное количество элементов может входить в множество (set)?
Какие из следующих объявлений класса идентичны и корректны?
Какие из следующих объявлений класса идентичны и корректны?
Выберите корректные названия переменных:
Выберите корректные названия переменных:
Зачем в Delphi 7 используются ассемблерные вставки?
Варианты ответа:
1) Для совместимости с предыдущими версиями Delphi
2) Для предоставления возможности программисту самостоятельно оптимизировать блок кода, критический по времени исполнения
3) Для непосредственной работой с оперативной памятью и кучей
4) Для реализации процедур/функций, которые невозможно создать с помощью стандартного набора команд Delphi 7
Зачем в Delphi 7 используются ассемблерные вставки?
Варианты ответа:
1) Для совместимости с предыдущими версиями Delphi
2) Для предоставления возможности программисту самостоятельно оптимизировать блок кода, критический по времени исполнения
3) Для непосредственной работой с оперативной памятью и кучей
4) Для реализации процедур/функций, которые невозможно создать с помощью стандартного набора команд Delphi 7
Что напечатает следующий код:
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.