221. Вопрос: Сколько элементов в объявленном массиве?

A:array[1..100;1..9] of real;

9

90

100

*900

222. Вопрос: В каком массиве больше элементов?

A:array[1..100;1..9] of real;

b:array[1..1000] of integer;

c:array[1..10;1..10,1..8] of string;

d:array[1..700] of char;

A

*B

C

D

223. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-34,0,45. Чему равен элемент массива A[4]?

10

*7

4

0

224. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-34,0,45. Чему будет равен элемент массива A[4] после выполнения фрагмента программы?

For I:=1 to 3 do a[i]:=0;

-3

0

1

*7

225. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-3,0,45. Сколько неотрицательных элементов останется в массиве после выполнения цикла?

For I:=1 to 8 do a[i]:=0;

-3

0

*1

7

226. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-34,0,45. Чему будет равен элемент массива A[4] после выполнения фрагмента программы?

For I:=1 to 10 do a[i]:=a[i]*2;

20

*14

24

0

227. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-34,0,45. Чему будет равен элемент массива:

a[3]:= a[a[1]+a[4-2]-a[7]*3/a[5-4]]

0

3

2

*нет ответа

228. Вопрос: Задан массив -3, -5, 4,7,8,7,10,-34,0,45. Чему будет равен элемент массива:

a[1]:= a[2]*a[4-3]-a[9]

3

12

14

*15

229. Вопрос: Задан массив 5,4,12,3,9,0,-3,2,5,8. Как этот массив может быть объявлен?

A:array[1..10] of real;

*A:array[1..10] of integer;

A:array[1..10] of string;

A:array[1..10] of char;

230. Вопрос: Задан массив 12; 12,3; 34; 12; 10; 12; 11; 0; 1. Как этот массив может быть объявлен?

*A:array[1..10] of real;

A:array[1..10] of integer;

A:array[1..10] of string;

A:array[1..10] of char;

231. Вопрос: Задан массив 5,4,12,3,9,0,-3,2,5,8. Как этот массив может быть объявлен?

A:array[1..10] of real;

*A:array[1..10] of integer;

*A:array[1..10] of byte;

A:array[1..10] of char;

232. Вопрос: Укажите правильно заданный (заданные) массив(ы).

A:array of [1..100] real;

array B[1..10] of integer;

*A:array[1..10] of byte;

A:array[10..1] of char;

233. Вопрос: Дан фрагмент программы. Есть ли в нем ошибка?

K:=0; for I:=1 to 100 do k:=k+i;

да

*нет

не знаю

234. Вопрос: Дан фрагмент программы. Есть ли в нем ошибка?

K:=100; for I:=1 to K do write('privet');

*да

нет

не знаю

235. Вопрос: Дан фрагмент программы. Есть ли в нем ошибка?

for I:=1 to 100 do write('privet');

да

*нет

не знаю

236. Вопрос: Дан фрагмент программы. Есть ли в нем ошибка?

Const K:=100; for I:=1000 downto K do write('privet');

да

*нет

не знаю

237. Вопрос: Дан фрагмент программы. Чему будет равна переменная B после выполнения цикла?

K:=0; b:=0;

For I:=1 to 5 do

begin K:=k+1; b:=b-1;

end;

0

*-5

5

50

238. Вопрос: Дан фрагмент программы. Чему будет равна переменная K после выполнения цикла?

K:=0; b:=0;

For I:=1 to 5 do

Begin K:=k+1; b:=b+1; end;

0

-5

*5

50

239. Вопрос: Дан фрагмент программы. Чему будет равна переменная b после выполнения цикла?

K:=0; b:=0;

For I:=1 to 5 do

Begin

K:=k+1;

end; b:=b-1;

0

-5

*-1

50

240. Вопрос: Дан фрагмент программы. Чему будет равна переменная B после выполнения цикла?

K:=0; b:=0;

For I:=1 to 5 do K:=k+1; b:=b-1;

0

-5

*-1

50

241. Вопрос: Дан фрагмент программы. Чему будет равна переменная K после выполнения цикла?

K:=2; b:=1;

For I:=1 to 3 do

begin

b:=b+k; K:=k+1; end;

0

-5

10

*5

242. Вопрос: Дан фрагмент программы. Чему будет равна переменная K после выполнения цикла?

K:=2; b:=1;

For I:=1 to 3 do

Begin b:=b+k; end;

*2

-5

10

5

243. Вопрос: Дан фрагмент программы. Чему будет равна переменная B после выполнения цикла?

K:=1; b:=1;

For I:=1 to 5 step 2 do

Begin b:=b+1; K:=k+1; end;

1

5

3

*нет правильного ответа

244. Вопрос: Дан фрагмент программы. Чему будут равны переменные B и K после выполнения цикла?

K:=0; b:=0;

For I:=1 to 10 step 2 do

Begin b:=b+2; K:=k-1; end;

k=5, b=5

k=0, b=10

*k=-5, b=10

k=-5, b=-10

245. Вопрос: Дан фрагмент программы. Что появится на экране после выполнения цикла?

K:=1; b:=1;

For I:=1 to 5 do inc(b); writeln(k) end;

*1

6

5

нет правильного ответа

246. Вопрос: Дан фрагмент программы. Что появится на экране после выполнения цикла?

K:=1; b:=1;

For I:=1 to 5 do b:=b+1; writeln(b); end;

1

*6

5

нет правильного ответа

247. Вопрос: Дан фрагмент программы. Что появится на экране после выполнения цикла?

b:=1;

For I:=1 to 5 do

Begin inc(b); write(b,', '); end;

1, 2, 3, 4, 5

*2, 3, 4, 5, 6

6

нет правильного ответа

248. Вопрос: Дан фрагмент программы. Что появится на экране после выполнения цикла?

b:=2; For I:=1 to 5 do begin nc(b); write(i,', '); end;

*1, 2, 3, 4, 5

3, 4, 5, 6, 7

6

нет правильного ответа

249. Вопрос: Дан фрагмент программы. Что появится на экране после выполнения цикла?

b:=2; For I:=1 to 5 do

begin inc(b); write(b); end;

1, 2, 3, 4, 5

*3, 4, 5, 6, 7

6

нет правильного ответа

250. Вопрос: Дан фрагмент программы. Какого типа может быть индекс цикла?

For I:=1 to 20 do write('I like Pascal');

*integer

real

*byte

char

251. Вопрос: Задан массив A:array[1..10;1..100] of integer. Сколько строк в этом массиве?

*10

100

1000

1

252. Вопрос: Задан двумерный массив. A[1,1]=1, A[1,2]=3, A[2,1]=4, A[2,2]=A[1,1]*A[1,2]-A[2,1]. Чему равен элемент A[2,2]?

-2

*-1

0

2

253. Вопрос: Задан массив A:array[1..10;1..100] of integer. Сколько строк в этом массиве?

10

*100

1000

1

254. Вопрос: Что делает данный фрагмент программы?

For I:=1 to 10 do for j:=1 to 10 do A[i,j]:=0;

элемент массива A[i,j] приравнивается к нулю

проверяет, есть ли в массиве A ненулевые элементы

*все элементы массива A обнуляются

255. Вопрос: Что делает данный фрагмент программы?

For I:=1 to 10 do

for j:=1 to 10 do A[i,j]:=random(100);

элемент массива A[i,j] приравнивается к нулю

проверяет, есть ли в массиве A ненулевые элементы

*элементам массива присваиваются случайные целые значения

все элементы массива A обнуляются

256. Вопрос: Что делает данный фрагмент программы?

K:=0; For I:=1 to 10 do

for j:=1 to 10 do

if A[i,j]:>k then k:=A[i,j];

элемент массива A[i,j] приравнивается к нулю

проверяет, есть ли в массиве A ненулевые элементы

все элементы массива A сравниваются со значением K

*находим наибольший элемент в массиве

257. Вопрос: Задан массив: 5,8,7,2,9,10,0,-1,6,6. Чему будет равна переменная K после выполнения фрагмента программы?

K:=0;

for j:=1 to 10 do

if A[j]:<k then k:=A[j];

0

1

*-1

-2

258. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Чему будет равна переменная K после выполнения фрагмента программы?

K:=0; for j:=1 to 10 do

if A[j]:<k then k:=A[j];

*0

1

-1

-2

259. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Чему будет равна переменная K после выполнения фрагмента программы?

K:=A[1]; for j:=1 to 10 do

if A[j]:>k then k:=A[j];

0

*10

-1

-2

Тема. Двумерные массивы.

260. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Чему будет равна переменная K после выполнения фрагмента программы?

for j:=1 to 10 do

if A[j]:>k then k:=A[j]; k:=a[1];

0

10

*5

8

261. Вопрос: Дана квадратная матрица А. Что делает данная программа?

for I:=1 to 10 do

for j:=1 to 10 do

if i=j then writeln(a[i,j],' ');

проверяет, все ли элементы массива равны между собой

вычисляет определитель матрицы

находит максимальный элемент в массиве

выводит на экран все элементы массива

*нет правильного ответа

262. Вопрос: Дана квадратная матрица А. Что делает данная программа?

for I:=1 to 10 do

for j:=1 to 10 do

if i=j then writeln(a[i,j],' ');

находит максимальный элемент в массиве

выводит на экран все элементы массива

*выводит на экран элементы, находящиеся на главной диагонали

нет правильного ответа

263. Вопрос: Дана квадратная матрица А. Что делает данная программа?

or I:=1 to 10 do for j:=1 to 10 do writeln(a[i,j],' ');

находит максимальный элемент в массиве

*выводит на экран все элементы массива

выводит на экран элементы, находящиеся на главной диагонали

нет правильного ответа

264. Вопрос: Дана квадратная матрица А. Что появится на экране после выполнения цикла?

for I:=1 to 10 do writeln(a[2,i]);

выводит на экран элементы второго столбца массива

*выводит на экран элементы второй строки массива

выводит на экран все элементы массива

выводит на экран элементы, находящиеся на главной диагонали

265. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Что появится на экране после выполнения фрагмента программы?

Max:=a[1]; for j:=1 to 10 do

if A[j]:>k then k:=A[j]; writeln(max);

8

10

*5

6

266. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Что появится на экране после выполнения фрагмента программы?

Max:=a[1];

for j:=1 to 10 do

if A[j]:>max then max:=A[j]; writeln(max);

все элементы массива A

первый элемент массива

*наибольший элемент массива

наименьший элемент массива

267. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Что появится на экране после выполнения фрагмента программы?

Max:=a[1]; for j:=1 to 10 do

if A[j]:>max then max:=A[j]; writeln('max');

все элементы массива A

первый элемент массива

наибольший элемент массива

*строка 'max'

268. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Что появится на экране после выполнения программы?

min:=a[1]; for j:=1 to 10 do

if A[j]:>min then min:=A[j]; writeln(min);

*только максимальный элемент массива

только минимальный элемент массива

все элементы массива

ничего

269. Вопрос: Задан массив: 5,8,7,2,9,10,0,9,6,6. Сколько значений программа выведет на экран?

max:=a[1]; for j:=1 to 10 do

begin max:=A[j]; writeln(max); end;

только максимальный элемент массива

только минимальный элемент массива

*все элементы массива

ничего

Тема. Графика в Pascal.

270. Вопрос: Что необходимо сделать, чтобы переключиться в графический режим?

Подключить графический модуль

*Подключить графический модуль и выполнить команду initgraph

переход в графический режим осуществляется автоматически

271. Вопрос: Подключение графического модуля выполняется командой

uses crt;

uses modul;

*uses graph;

init graph;

272. Вопрос: Инициализация графики в Паскаль осуществляется командой

uses graphika;

uses graph;

*initgraph;

implementation;

273. Вопрос: Что делает функция Line(x1,y1,x2,y2);

рисует линию в области, ограниченной координатами x1,y,1,x2,y2

рисует линию, заданную координатами x1,y,1,x2,y2

расчерчивает область экрана линиями по вертикали и горизонтали

274. Вопрос: Что делает функция Line(0,0,100,100);

рисует линию в области, ограниченной координатами 0,0,100,100

*рисует линию, заданную координатами 0,0,100,100

расчерчивает область экрана линиями по вертикали и горизонтали

275. Вопрос: Для чего пренназначена функция GetMaxX?

Возвращает наибольшее значение X в массиве

Возвращает наибольшую координату X в области экрана

Выводит на экран текст 'GetMaxX'

276. Вопрос: Что делает функция Line(0,0,GetMaxX,GetMaxY);

рисует линию в области, ограниченной координатами 0,0,GetMaxX,GetMaxY

*рисует линию, из левого верхнего угла экрана в правый нижний угол

рисует линию, из левого нижнего угла экрана в правый верхний угол

277. Вопрос: Для чего предназначена функция SetColor?

Устанавливает цвет фона

*Устанавливает цвет, которым будут рисоваться фигуры

Устанавливает цвет шрифта

278. Вопрос: Для чего предназначена функция SetBkColor?

*Устанавливает цвет фона

Устанавливает цвет, которым будут рисоваться фигуры

Устанавливает цвет шрифта

279. Вопрос: Для чего предназначена функция SetTextColor?

Устанавливает цвет фона

Устанавливает цвет, которым будут рисоваться фигуры

*Устанавливает цвет шрифта

280. Вопрос: Какого цвета будет фон после выполнения команды SetBkColor(White);

красного

желтого

*белого

черного

цвет, заданный по умолчанию

281. Вопрос: Что делает команда Circle(x1,y1,r)?

вычисляет синус угла, заданного прямыми x1 и y1

выполняет функции циркуля

*рисует окружность, заданного радиуса с центром в точке x1,y1

282. Вопрос: Что появится на экране после выполнения команды Circle(50,50,10)?

цвет фона изменится на синий

на экране появится 50 окружностей радиусом 10

*окружность, радиуса 10 с центром в точке 50,50

283. Вопрос: Что делает команда Rectangle(x1,y1,x2,y2)?

Вычисляет тангенс угла, заданнного прямыми

рисует окружность, заданного радиуса с центром в точке x1,y1

*рисует прямоугольник с координатами, заданными параметрами функции

284. Вопрос: Что появится на экране после выполнения команды Rectangle(10,10,100,100)?

Окружность

линия

ромб

прямоугольник

285. Вопрос: Вычислите площадь прямоугольника, нарисованного функцией Rectangle(10,10,20,20)?

S=200

*S=100

S=10

S=400

286. Вопрос: Вычислите площадь прямоугольника, нарисованного функцией Rectangle(10,10,30,70)?

S=300

S=210

S=120

*S=1200

Часть 2. Язык программирования Visual Delphi.

Тема. Delphi – основные сведения

287. Вопрос:Что такое Delphi?

Это программа для создания презентаций

Это редактор программного кода

*Это язык объектно-ориентированного программирования

Это программа для работы с компонентами

288. Вопрос: Какого окна в Delphi нет?

Инспектор объектов

Дерево объектов

Главная форма

*Инспектор слоев

289. Вопрос: Визуальное программирование – это единство двух процессов:

Компиляции и запуска

Редактирования и форматирования

*Конструирования окна приложения и написание кода

Установки и активации

290. Вопрос: Главная форма проекта называется:

Application

*Main

Form

Data module

291. Вопрос: Файл-модуль который содержит программный код, имеет расширение

dpr

*pas

dfm

exe

292. Вопрос: Целостный, неделимый элемент, имеющий свои отличительные признаки (свойства) и варианты действий (методы) называется…

*Объектом

Палитрой

Меню

Инспектором

293. Вопрос: В Инспекторе объектов находятся две закладки:

свойства и надписи

*свойства и методы

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

команды меню

294. Вопрос: Для сохранения всего проекта используется команда:

Save

Save As…

Save All

*Save Project

295. Вопрос: Для компиляции и запуска на исполнение проекта из среды Delphi нужно нажать клавишу:

F2

F8

F11

*F9

296. Вопрос: Где располагает, выполняя приложение, программист в среде Delphi все объекты палитры компонентов?

на форме

в инспекторе объектов

*в окне кода

в меню