122. Что выдаст на экран следующий участок кода

Var S:string; I:integer; Begin S:=’string’; I:=1; Writeln(i); End.

Код символа I

0

1

String

123. Выберите функцию, которая увеличивает число а на единицу

Trunc(a)

Round(a)

Int(a)

Frac(a)

124. Если значение логических переменных х и y равно true, то значение x and y будет равно

True

False

Not

0

10

125. Какие из приведенных ниже операторов выполняют операцию деления?

*/

\

Div

Xor

%

//

126. Укажите все правильные варианты подключения внешних модулей

Uses crt; Var i,j:integer;

Var i,j:integer; Begin Uses crt;

Uses system, crt;

Use crt;

127. Дан текст программы, вычисляющей факториал числа N (N!=1*2*3*….*(n-1)*n). В программе пропущена одна строка.

Const n=10;

Var I,f:longint;

Begin

{здесь пропущена строка}

For i:=1 to N do f:=f*I;

End.

F:=0;

F:=1;

F:=n;

Код правильный

128. Переменная х описана в программе как целое число. Какие из операторов недопустимы в этой программе?

Х:=5;

Х:=-100 div X;

Х:=Х+5;

Х:=1.56;

X:=X/2;

129. Какая логическая операция возвращает TRUE только в том случае, когда оба операнда раны TRUE?

And

Or

Xor

Not

130. Выберите допустимые объявления переменных в Pascal

Var pArray:[1..100,200..1] of real;

Var 12month:string;

Var NewVar:integer=10;

Var paint:Boolean;

Var I,j,k,l,m,n,o,p,q,r,s,t,u:integer;

131. Выберите допустимые объявления переменных в Pascal

Var repeat:real;

Var S:string;

Var NewVar:integer=10;

Var A,B:Boolean;

Var I,j,k,l,m,n,o,p,q,r,s,t,u:reel;

132. Что такое область видимости переменной?

Область экрана, в которой видно объявление переменной

Часть кода программы, в котором можно воспользоваться этой переменной

Участок оперативной памяти, в которой размещается значение переменной

Так называется раздел деклараций, в котором была объявлена переменная

133. К какому типу отнесем переменную A:='informatika' ?

string

char

integer

boolean

real

134. К какому типу отнесем переменную A:=26?

string

char

byte

boolean

real

135. К какому типу отнесем переменную A:=true ?

string

char

integer

boolean

real

136. К какому типу отнесем переменную A:=0.4 ?

string

char

integer

boolean

real

Тема. Условный оператор и оператор выбора

137. В каком из условных операторов допущена синтаксическая ошибка?

if B = 0 then Writeln('Деление на нуль невозможно.');

if a > b then max := a else max := b;

if (a>b) and (b>0) then c:=a+b;

if a < b then min := a; else min := b;

138. Назначение условных операторов в языке Паскаль:

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

переход к некоторой метке по условию

анализ логического условия перед переходом

вычисление значения логического условия

139. Что используется в качестве условия для выбора в условном операторе?

равенство или неравенство

значение логического выражения: true или false

операции отношения

логические операции

140. Какие два условных оператора имеются в языке Паскаль?

if <условие> then "оператор" или if <условие> then "оператор1" else "оператор2"

операторы: if и case

краткая и полная формы условного оператора if

оператор выполнения цикла по условию и оператор if

141. Могут ли операторы if быть вложенными?

да, могут

нет, не могут

не уверен

не знаю

142. Какое по типу выражение вычисляется в условии оператора if ?

числовое

логическое выражение; тип boolean; имеет значения: true или false

неравенство

равенство

143. Условный оператор применяется для программирования:

Сложных алгоритмов

Линейных алгоритмов

Ветвящихся алгоритмов

Циклических алгоритмов

144. Ветвящийся алгоритм подразумевает:

Неоднократное повторение отдельных частей программы

Последовательное выполнение всех элементов программы

Выполнение лишь нескольких, удовлетворяющих заданному условию частей программы

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

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