145. Вопрос: Алгоритм включает в себя ветвление, если:

если он составлен так, что его выполнение предполагает многократное

повторение одних и тех же действий

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

146. Вопрос: Верно ли записан оператор выбора If <оператор 1> then <оператор 2 > else <оператор 3>;

верно

неверно

147. Вопрос: Верна ли следующая запись:

case K of:

a1: <оператор 1>;

a2: <оператор 2>;

an: <оператор n>;

Else <оператор n+1>;

End;

верно

неверно

148. Вопрос: Чему будет равна переменная k после выполнения фрагмента программы?

a:=7; b:=8; k:=5+a;

if a>b then k:=k*3 else k:=k-3;

writeln(k);

7

8

9

Верного ответа нет

149. Вопрос: Чему будет равна переменная k после выполнения фрагмента программы?

a:=5; b:=6; k:=b+a;

if a>b then k:=k*3 else k:=k-3;

writeln(k);

7

8

9

Верного ответа нет

150. Вопрос: Определите значение целочисленных переменных a и b после выполнения фрагмента программы:

a:= 3 + 8*4;

b:= (a div 10)+14;

a:= (b mod 10) + 2;

a=14, b=3

a=9, b=16

a=9, b=17

a=35, b=17

151. Вопрос: Укажите правильный вариант использования условного оператора.

IF <условие> THEN begin <серия операторов 1> end ELSE begin <серия операторов 2> end;

IF <условие> THEN <серия операторов 1>; ELSE <серия операторов 2>;

THEN begin <серия операторов 1> end IF <условие> ELSE begin <серия операторов 2> end;

THEN <серия операторов 1> ELSE <серия операторов 2> IF <условие> ;

IF <условие> THEN <серия операторов 1>

152. Вопрос: Укажите правильный вариант использования неполного ветвления.

IF <условие> THEN begin <серия операторов 1> end;

THEN <серия операторов 1>; ELSE <серия операторов 2>;

IF <условие> ELSE begin <серия операторов 2> end;

ELSE <серия операторов 2> IF <условие> ;

THEN <условие> IF <серия операторов 1>

153. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin a:=3;

if a>3 then a:=5 else a:=1;

writeln (a);

end.

1

3

5

ничего

154. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin

x:=0;

if x<>5 then y:=10 else y:=0;

writeln (y);

end.

10

5

0

ничего

155. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin a:=12;

if a>10 then n:=a+5 else n:=a-1;

writeln (a);

end.

17

11

12

16

13

156. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin

a:=1; b:=2;

if (a>=1) and (b>=2) then n:=a+b else n:=a-b;

writeln(n);

end.

3

-1

1

0

157. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

Begin

x:=0; y:=0;

if (x=0) or (y<>0) then n:=7 else n:=11;

writeln (n);

end.

8

7

11

71

158. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin

M:=5;

If m>5 then y:=5+m else y:=100-m;

Writeln(m); end.

95

10

5

90

0

159. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin

a:=1;

if (a<>1) then n:=-a else n:=a+1;

writeln(n); end.

0

1

-1

2

160. Вопрос: Что будет выведено на экран после выполнения фрагмента программы:

begin a:=0;

if (a<>1) then n:=-a else n:=a+1;

writeln(n); end.

0

1

-1

2

161. Вопрос: Какое условие следует использовать для вычисления Y по формулам: Y = | X + 1 |, при X<1; Y= cos X, при X>=1;

if X<1 then Y:=cos(X) else Y:=abs(X+1);

if X>=1 then Y:=abs(X+1) else Y:=cos(X);

if X>=1 then Y:=cos(X) else Y:=abs(X+1);

if X>1 then Y:=cos(X) else Y:=abs(X+1);

if X=1 then Y:=cos(X) else Y:=abs(X+1);

162. Вопрос: Какое условие следует использовать для вычисления Y по формулам: Y=|X+15|, при X>0; Y=X-15, при X<=0;

if X>0 then Y:=X+15 else Y:=X-15;

if X>0 then Y:=X-15 else Y:=X+15;

if X<0 then Y:=X+15 else Y:=X-15;

if X<=0 then Y:=X+15 else Y:=X-15;

if X<=0 then Y:=X+15;

163. Вопрос: Какое условие следует использовать для вычисления Y по формулам: N=sin M, при M=0; Y=M+cos M, при M<>0;

if M=0 then N:=sin(M) else Y:=M+cos(M);

if M<>0 then N:=sin(M) else Y:=M+cos(M);

if M=0 then N:=M+sin(M) else Y:=cos(M);

if M<>0 then N:=sin(M)+cos(M) else Y:=M+cos(M);

if M<>0 then N:=sin(M) ;

164. Вопрос: Определить, является ли число М чётным. Какое условие можно использовать в этой задаче?

M=2

M mod 2=0

M/2=0

M div 2=0

M='чётное'

165. Вопрос: Определить, является ли число А положительным. Какое условие можно использовать в этой задаче?

А>=0

A>0

A=0

A<0

A<>0

166. Вопрос: Определить, делится ли целое число Т на 5 без остатка. Какое условие можно использовать в этой задаче?

T mod 5=0

T=5

T/5=0

T div 2=5

T mod 2=5

167. Вопрос: Входит ли число А в диапазон значений (4 ; 10]. Какое составное условие нужно поставить в этой задаче?

(A>=4) and (A<10)

(A<4) and (A>=10)

(A>4) or (A<=10)

(A>4) and (A<=10)

not (A>4) and not (A<=10)

168. Вопрос: Входит ли число R в диапазон значений [-5 ; 0). Какое составное условие нужно поставить в этой задаче?

(R<=-5) and (R>0)

(R>-5) and (R<=0)

(R-5) and (R+0)

(A>4) or (A<=10)

(R>=-5) and (R<0)

Тема. Циклы

169. Вопрос: Какие типы циклов существуют в языке Паскаль?

For

Do…while

While

Repeat…until

Loop

170. Вопрос: Цикл WHILE называется

Циклом с предусловием

Циклом с параметром

Циклом с постусловием

Циклом с ветвлением

171. Вопрос: Цикл For называется:

Циклом с предусловием

Циклом с параметром

Циклом с постусловием

Циклом с ветвлением

172. Вопрос: Цикл REPEAT называется

Циклом с предусловием

Циклом с параметром

Циклом с постусловием

Циклом с ветвлением

173. Вопрос: Определите значение переменной S после выполнения операторов: i:=0; S:=0; While i<3 do begin i:=i+1; S:=S+i*i End;

0

3

11

14

18

174. Вопрос: Сколько строк напечатает программа:

var k,l:integer;

begin

for k:=8 downto 1 do

writeln(‘Мне нравится Паскаль.’);

end.

8

10

14

Верного ответа нет

175. Вопрос: Сколько строк напечатает программа:

var k,l:integer;

begin

for k:=1 to 10 do

writeln(‘Мне нравится Паскаль.’);

end.

8

10

14

Верного ответа нет

176. Вопрос: Какое значение примет переменная S после выполнения фрагмента программы:

s:=0; for j:=1 to 5 do

begin

s:=s+2*j; end;

12

24

30

32

44

177. Вопрос: Какое значение примет переменная S после выполнения фрагмента программы:

s:=0;

for j:=1 to 4 do

begin

s:=s*j; end;

0

4

3

8

12

178. Вопрос: Какое значение примет переменная S после выполнения фрагмента программы:

s:=1;

for j:=1 to 4 do

begin

s:=s*j;

end;

0

14

24

12

179. Вопрос: Чему будет равна переменная А после выполнения алгоритма.

A:=2;

for i:=2 to 4 do a:=a+1;

1

2

3

4

5

180. Вопрос: Какой из операторов цикла имеет 2 вида записи

For…

While…

Repeat…

Верного ответа нет

181. Вопрос: В каком из операторов допущена синтаксическая ошибка:

For i=1 to 20 do p:=p+1;

While s<3 do s:=s-3;

Repeat k:=k+1 until k<7;

For I:=10 downto 5 do p:=p+1;

182. Вопрос: Тело цикла для вычисления значений функций f(x)=x4, на отрезке [-5,5] с шагом 0.1 будет иметь вид:

f:= x*x*x*x; x:=x+1;writeln (f,x);

f:=x4; x:=x+1;writeln (f,x);

f:= x*x*x*x; x=x+0.1;writeln (f,x);

f:= x*x*x*x; x:=x+0.1; writeln (f,x);

183. Вопрос: Оператором цикла не является оператор

While…

For…

Case…

Repeat…

Верного ответа нет

184. Вопрос: Укажите тип переменной для параметра цикла FOR:

целочисленный тип

логический тип

натуральный тип

верного ответа нет

185. Вопрос: Что выведется на экран в результате выполнения фрагмента программы:

p:=1;

FOR k:=1 TO 5 DO

Begin

p:=p*k;

end;

write(‘ k=’, k, ’ p=’, p)

k=4 p=50

k=5 p=86

k=16 p=100

k=5 p=120

186. Вопрос: В каком из операторов допущена смысловая ошибка:

For i:=1 to 20 do p:=p+1;

While s<3 do s:=s-3;

Repeat k<1 until k:=k+1;

For I:=10 downto 5 do p:=p+1;

187. Вопрос: Какой из циклов не содержит логического условия:

While

For

Repeat

Все содержат

188. Вопрос: В каком из операторов допущена синтаксическая ошибка:

For i:=1 to 20 do p:=p+1;

While s<3 do s:=s-3;

Repit k:=k+1 until k<7;

For I:=10 downto 5 do p:=p+1;

189. Вопрос: В каком из операторов допущена синтаксическая ошибка:

For i:=1 to 20 do p:=p+1;

While s<3 do s:=s-3;

Repeat k:=k+1 until k;

For I:=10 downto 5 do p:=p+1;

190. Вопрос: В каком из операторов допущена синтаксическая ошибка:

For i:=1 to 10 do p:=p+1;

While s<3 do s:=s-3;

Repeat k:=k+1 until k<7;

For I:=10 down 5 do p:=p+1;

191. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; For i:=1 to 10 do inc(n);

0,5

3

7

10

192. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; M:=0;

For i:=1 to 10 do inc(m);

0

3

6

10

193. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=1; For i:=1 to 4 do n:=n*2;

0

2

16

120

194. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; For i:=1 to 3 do n:=n*2;

0

4

8

12

195. Вопрос: Сколько раз выполнится цикл

For i:=10 downto 5 do n:=n*2;

0

2

6

10

196. Вопрос: Сколько раз выполнится цикл

N:=20;

While n>3 do n:=n/2;

1

2

3

4

197. Вопрос: Сколько раз выполнится цикл

N:=10;

While n>0 do n:=n+1;

1

2

3

Нет верного ответа

198. Вопрос: Сколько раз выполнится цикл

N:=10;

While n>0 do n:=n+1;

1

2

3

бесконечное число раз

199. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; M:=0;

Repeat

N:=N+1; M:=M+1;

Until m<10;

0

4

8

10

200. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0;

M:=0;

Repeat

N:=N*M; M:=M+1;

Until m<5;

0

2

7

14

201. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; M:=0;

Repeat

N:=M*M; M:=M+1;

Until m<3;

-2

3

4

15

202. Вопрос: Сколько раз выполнится цикл

K:=1; T;=1;

Repeat

G:=k+t; K:=K+1; T:=T+1;

Until t<0

0

1

2

3

203. Вопрос: Сколько раз выполнится цикл

K:=1; T;=1;

Repeat

G:=k+t; K:=K+1; T:=T+1;

Until t<3

0

1

2

3

204. Вопрос: Сколько раз выполнится цикл

K:=5; T;=1;

Repeat

G:=k+t; K:=K-1; T:=T+1;

Until K>3

0

1

2

3

205. Вопрос: Чему будет равна переменная n после выполнения фрагмента программы:

N:=0; For i:=1 to 5 do

For j:=1 to 5 do n:=n+1;

20

25

100

135

206. Вопрос: Чему будет равна переменная m после выполнения фрагмента программы:

N:=25; M:=20;

For i:=1 to 5 do

For j:=1 to 5 do n:=n+1;

20

25

100

135

207. Вопрос: Чему будет равна переменная j после выполнения фрагмента программы:

N:=0; For i:=1 to 5 do

For j:=1 to 5 do n:=n+1;

5

10

25

100

208. Вопрос: Что делает эта программа?

For i:=1 to 100 do

Begin

If (I mod 2)=0 then writeln(i);

End;

Делит все числа от 1 до 100 на 2

Делит все числа от 1 до 100 на 2 и выводит их на экран

Выводит на экран модуль числа i

Выводит на экран все четные числа от 1 до 100

209. Вопрос: Что делает эта программа?

S:=0; For i:=1 to 100 do

Begin

S:=S+I;

writeln(S);

End;

Выводит на экран все целые числа от 1 до 100

Находит сумму чисел от 1 до 100 и выводит ее на экран

Все числа от 1 до 100 увеличивает на величину S

210. Вопрос: Что Вы увидите на экране после выполнения цикла?

For i:=1 to 100 do writeln(random(100));

Все целые числа в диапазоне от 1 до 100

Все четные числа в диапазоне от 1 до 100

100 случайных целых чисел в диапазоне [0;100)

211. Вопрос: Что Вы увидите на экране после выполнения цикла?

For i:=1 to 100 do write(random(100)-random(100));

Все целые числа в диапазоне от 1 до 100

100 случайных целых чисел в диапазоне [0;100)

100 случайных целых чисел в диапазоне [-100; 100]

Тема. Одномерные массивы

212. Вопрос:Массив - это:

поименованный набор фиксированного числа однотипных данных;

ограниченная апострофами последовательность любых символов;

совокупность разнородных данных, описываемых и обрабатываемых как единое целое

набор переменных, начинающихся с одной и той же буквы

213. Вопрос: Что такое индекс в одномерном массиве?

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

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

размерность массива

имя массива

214. Вопрос: Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов:

A[3] := 5; A[4] := 6; A[3]:=A[4]; A[4]:=A[3]?

A[3] = 6; A[4] = 6

A[3] = 6; A[4] = 5

A[3] = 5; A[4] = 6

A[3] = 5; A]4] = 5

215. Вопрос: Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов:

A[3] := 2; A[4] := 3; B:= A[3]; A[3]:=A[4]; A[4] := B

A[3] = 3;   A[4] = 3

A[3] = 3;   A[4] = 0

A[3] = 3;   A[4] = 2

A[3] = 2;   A[4] = 3

216. Вопрос: Какие из перечисленных описаний массивов будут корректны в среде Turbo Pascal?

Array[1..32760] of integer;

Array[1..40000] of integer;

Array[1..1] of byte;

Array[10..1] of real;

217. Вопрос: Задан массив из 5 элементов. A[1]=1, A[2]=4, A[3]=7, A[4]=9, A[5]=-3. Чему будет равен элемент A[4] после выполнения фрагмента программы: for i:=1 to 5 do a[i]:=a[i]*2;

1

4

18

24

-10

218. Вопрос: Задан массив из 5 элементов. A[1]=1, A[2]=4, A[3]=7, A[4]=9, A[5]=-3. Чему будет равен элемент A[4] после выполнения фрагмента программы: for i:=1 to 5 do a[i]:=a[i]-a[i+1];

12

14

18

20

219. Вопрос: Задан массив из 5 элементов. A[1]=1, A[2]=4, A[3]=7, A[4]=9, A[5]=-3. Чему будет равен элемент A[2] после выполнения фрагмента программы: for i:=1 to 5 do a[i]:=a[i]+1;

12

4

1

16

220. Вопрос: Задан массив из 4 элементов. A[1]=3, A[2]=5, A[3]=5, A[4]=8. Чему будет равен элемент A[1] после выполнения фрагмента программы:

for i:=1 to 5 do a[1]:=a[1]+1;

4

-4

1

8

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