V1: {{08}} 08_Списки
I: {{08_01}}
Q: Укажите правильный вариант ответа
S: После выполнения приведенного фрагмента программы
A :=0;
for i:=0 to ListBox1.Count-1 do
begin
A:=A+StrToInt(ListBox1.Items[i]);
end;
в переменной A будет вычислено …
+: сумма всех элементов списка
-: наибольший числовой элемент списка
-: первый по алфавиту элемент списка
-: наименьший числовой элемент списка
I: {{08_02}}
Q: Укажите правильный вариант ответа
S: После выполнения приведенного фрагмента программы
i:=0;
while i <= ListBox1.Count-1 do
begin
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items[i]);
ListBox1.Items.Delete(i);
end
else i:=i+1;
end;
произойдет
+: перенос выделенных строк из одного списка в другой
-: копирование выделенных строк из одного списка в другой
-: суммирование выделенных строк списка
-: увеличение выделенных строк списка на 1
I: {{08_03}}
Q: Укажите правильный вариант ответа
S: После выполнения приведенного фрагмента программы
for i:=0 to ListBox1.Count-1 do
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items[i]);
end;
произойдет
+: копирование выделенных строк из одного списка в другой
-: перенос выделенных строк из одного списка в другой
-: суммирование выделенных строк списка
-: увеличение выделенных строк списка на 1
I: {{08_04}}
Q: Укажите правильный вариант ответа
S: После выполнения приведенного фрагмента программы
for i:=0 to ListBox1.Count-1 do
if ListBox1.Selected[i] then
begin
a:= StrToInt (ListBox1.Items[i])+1;
ListBox1.Items[i]:=IntToStr(a);
end;
произойдет
+: увеличение выделенных строк списка на
-: перенос выделенных строк из одного списка в другой
-: суммирование выделенных строк списка
-: копирование выделенных строк из одного списка в другой
I: {{08_05}}
Q:
S: Элемент приведенного на рисунке списка ListBox1.Items[i] при i=1 равен
+: 800
I: {{08_06}}
Q:
S : Элемент приведенного на рисунке списка ListBox1.Items[i] при i=3 равен
+: 3000
I: {{08_07}}
Q:
S: Элемент приведенного на рисунке списка ListBox1.Items[i] при i=ListBox1.Count-2 равен
+: 380
I: {{08_08}}
Q:
S: Значение свойства ComboBox1.ItemIndex для компонента, приведенного на рисунке, равно
+: 3
I: {{08_09}}
Q:
S: Значение свойства ComboBox1.ItemIndex для компонента, приведенного на рисунке, равно
+: 0
I: {{08_10}}
Q:
S: Значение свойства ComboBox1.ItemIndex для компонента, приведенного на рисунке, равно
+: -1
V1: {{12}} 12.Синтаксические ошибки
I: {{12_01}}
Q: Укажите все правильные варианты ответа
S: Следующие фрагменты программ содержат синтаксические ошибки
(a : integer)
+: a+1:=a;
+: a+1;
+: x:=2a;
-: a:=a+1;
I: {{12_02}}
Q: Укажите все правильные варианты ответа
S: Следующие фрагменты программ содержат синтаксические ошибки
(a : string)
+: a+1;
+: a:=a+1;
+: a:=2*a;
-: a:=a+'15';
I: {{12_03}}
Q: Укажите все правильные варианты ответа
S: Следующие фрагменты программ содержат синтаксические ошибки
+: for i=1 to 10 do
+: for x:=-10 to 10 begin
-: for i:=1 to 1 do
-: for i:=10 downto 1 do
I: {{12_04}}
Q: Укажите все правильные варианты ответа
S: Следующие фрагменты программ содержат синтаксические ошибки
+: while a>=b begin
+: while a<>b repeat
-: while a>b do
-: while a<b do begin a:=a+1; end;
I: {{12_05}}
Q: Укажите правильный вариант ответа
S: Следующие фрагменты программ содержат синтаксические ошибки
+: repeat a>0 do begin a:=a-1; end;
+: until a>0 repeat a:=a-1;
-: repeat a:=a-1; until a=0;
-: repeat a:=a-1 until a>0;
I: {{12_06}}
Q: Укажите правильный вариант ответа
S: Ошибка в программе
var
a,b : integer;
x : real;
. . . . .
if a>b then
begin
x:=(a+b)/2;
Edit1.Text:=StrToInt(a);
end;
это
+: неверное использование функции перевода
-: неверный тип данных
-: пропущен знак «;» (точка с запятой)
-: непарные операторные скобки begin … end
I: {{12_07}}
Q: Укажите правильный вариант ответа
S: Ошибка в программе
var
a,b : integer;
x : integer;
. . . . .
if a>b then
begin
x:=(a+b)/2;
Edit1.Text:= IntToStr (a);
end;
это
+: неверный тип данных
-: пропущен знак «;» (точка с запятой)
-: непарные операторные скобки begin … end
-: неверное использование функции перевода
I: {{12_08}}
Q: Укажите правильный вариант ответа
S: Ошибка в программе
var
a,x : integer;
. . . . .
a:= StrToInt(Edit1.Text);
if a>0 then
begin
x:= a/3;
Edit2.Text:=FloatToStr(x);
end;
это
+: неверный тип данных
-: пропущен знак «;» (точка с запятой)
-: непарные операторные скобки begin … end
-: неверное использование функции перевода
I: {{12_09}}
Q: Укажите правильный вариант ответа
S: Ошибка в программе
a,b : integer;
x : real;
. . . . .
a:=IntToStr(Edit1.Text);
if a>0 then
begin
x:= a/2;
Edit2.Text:=FloatToStr(x);
end;
это
+: неверное использование функции перевода
-: неверный тип данных
-: пропущен знак «;» (точка с запятой)
-: непарные операторные скобки begin … end
I: {{12_10}}
Q: Укажите правильный вариант ответа
S: Ошибка в программе
a,b : integer;
x : real;
. . . . .
a:=IntToStr(Edit1.Text);
if a>0 then
begin
x:= a/2;
Edit2.Text:=FloatToStr(x);
end;
end;
это
+: непарные операторные скобки begin … end
-: неверный тип данных
-: пропущен знак «;» (точка с запятой)
-: неверное использование функции перевода