3. Операторы языка Паскаль

Задание №1 (- отметить все верные)

Выберите правильные ответы. Можно ли присвоить…

Варианты ответов:

a) целую переменную — вещественной переменной;

b) вещественную переменную — целой переменной;

с) символьную переменную — целой переменной;

d) целую переменную — булевской переменной;

e) целой переменной — целую константу.

Задание №2 (- число)

Чему равно значение переменной A после выполнения фрагмента программы, если B = 3?

A := 2; IF B <= 4 THEN BEGIN C := 1 END

ELSE IF B = 3 THEN BEGIN C := 0; A := 0 END;

Задание №3 (- выберите один вариант ответа)

Задан фрагмент

IF A < B THEN C := B – A ELSE C := 2 * (A – B); D := 0;

WHILE C > A DO

BEGIN D := D + 1; C := C – 1 END;

В результате выполнения данного алгоритма с начальными значениями A = 8, B = 3, переменные C и D примут значения…

Варианты ответов:

a) C = -5, D = - 1; b) C = 10, D = 1;

c) C = 5 , D = 0; e) C = 8, D = 2.

Задание №4 (- число)

Чему равно значение переменной A после выполнения программы при B = 3?

A := 10;

IF B <= 4 THEN C := 1 ELSE C :=0; A := C;

Задание №5 (- выберите один вариант ответа)

Укажите сколько раз выполняется цикл в представленном фрагменте

A := 3; B := 7;

WHILE (A/2) <= (B/3) DO

BEGIN

A := A + 2;

B := B + 3

END;

Варианты ответов:

a) 10; b) 100; c) 1000; d) Бесконечное число раз.

Задание №6 (- число)

Определить значение переменной S после выполнения следующих операторов

S := 0; X := 10;

WHILE X > 5.5 DO

BEGIN

S := S + X; X := X – 1

END;

Задание №7 (- число)

Определить значение переменной S после выполнения следующих операторов

S:=0; I:=1;

REPEAT S := S + 1/I; I := I – 1 UNTIL I <= 1;

Задание №8 (- число)

Cколько звездочек будет выведено на экран в результате выполнения следующих операторов?

FOR I := 1 TO 5 DO

FOR J := i TO 5 DO

WRITE( ‘ * ‘);

Задание №9 (- число)

Чему будет равен X после выполнения следующих операторов?

X := 0;

FOR I := -5 TO 0 DO

N := I * I; X := X + N;

Задание №10 (- выберите один вариант ответа)

В результате выполнения фрагмента программы

WHILE n <> 0 DO

BEGIN

WRITE (2 * (n mod 10) + 1);

N := n div 10

END;

на экран выведено число 13717.

Какое число хранилось до этого в переменной n?

Варианты ответов:

a) 716; b) 638; c) 386; d) 836.

Задание №11 (- выберите один вариант ответа)

Какая задача реализуется с помощью данного фрагмента программы:

IF a>b THEN x := a ELSE x := b;

IF c<x THEN x := c;

Варианты ответов:

a) max (a, b, c);	b) min (a, b, c);
c) max(min( a,b), c);	d) min(max(a, b), c).

1.4. Массивы

Задание №1 (- выберите один вариант ответа)

Верным является высказывание, утверждающее...

Варианты ответов:

a) доступ к элементу массива осуществляется по имени массива и номеру элемента;

b) элементы массива могут иметь разные типы;

c) к элементу массива невозможно получить доступ по номеру;

d) элементы массива автоматически упорядочиваются по возрастанию.

Задание №2 (- выберите один вариант ответа)

Дан фрагмент программы:

For i := 1 to 5 do

begin

a[2*i - 1] := i;

a[2*i] := i*i

end;

Чему будет равно а(5)?

Варианты ответов:

a) 3; b) - 4; c) - 5; d) - 9.

Задание №3 (- выберите один вариант ответа)

Дан фрагмент программы:

For i := 1 to 5 do

For j := 1 to 5 do

if i>j then

a[i,j] := i

else

a[i.j] := j;

Чему будет равно а(3,2)?)

Варианты ответов:

a) - 1; b) - 2; c) 3; d) - 4.

Задание №4 (- выберите один вариант ответа)

Какое описание фрагментов массивов является правильным?

Варианты ответов:

a) type mas = array [integer ] of real; var a : mas;

b) var a : array [1..20] of integer;

c) var a : array [1..20];

d) var mas = array [1..20] of real.

Задание №5 (- выберите один вариант ответа)

Дан фрагмент программы:

For n := 1 to 7 do

For k := 1 to 7 do

B[n,k] := k - n;

Сколько элементов массива будут иметь неотрицательные значения?

Варианты ответов:

a) - 49; b) 28; c) - 21; d) - 7.

Задание №6 (- выберите один вариант ответа)

Дана программа:

Program a1;

var a : array[1..8] of integer; m, k : integer;

begin

for k := 1 to 8 do readln(a[k]);

m := a[1];

for k := 2 to 8 do if m < a[k] then m := a[k];

write(m)

end.

Сколько раз будет выполнен оператор m := a[k] при заданном массиве (3, 8, 7, 9,4, 10, 2, 12)?

Варианты ответов:

a) 7; b) 8; c ) 4; d) 1.

Задание №7 (- выберите один вариант ответа)

Дан фрагмент программы:

k := 1; while (a[k] <> x) and (k <= 10) do k := k + 1;

Здесь x = 7, а в качестве элементов массива введены числа 2, 3, 5, 7, 9, 12, 0, 7, 6, 7. После выполнения фрагмента К будет иметь значение?

Варианты ответов:

a) 8; b) 1; c) 10; d) 4.

Задание №8 (- выберите один вариант ответа)

Дан массив (10 на 10).

for i:= 1 to 10 do

for j := 11 - i downto 1 do a[i,j] := i;

Фрагмент программы заполняет?

Варианты ответов:

a) верхний треугольник массива;

b) нижний треугольник массива;

c) диагональ матрицы.

Задание №9 (-отметить все верные)

Дано описание переменных:

var a, b : array[1..15, 0..8] of real;

Какие из указанных операций допустимы в Паскале?

Варианты ответов:

a) a := b; b) a :=a + b; c) read(a);

d) a[2,3] := b[1,1]; e) a[1] := a[15];

Задание №10 (- выберите один вариант ответа)

For i:=1 to n do

For j:= 1 to n-i do

If A[j]>A[j+1] then

begin

p:=A[j];

A[j]:=A[j+1];

A[j+1]:=p

end;

данный фрагмент программы…

Варианты ответов:

a) определяет максимальный элемент массива А;

b) определяет минимальный элемент массива А;

c)вычисляет сумму элементов массива А;

d) упорядочивает элементы по возрастанию;

е) упорядочивает элементы по убыванию.

Задание №11 (- число)

Одномерный массив, содержащий десять элементов, заполняется по следующему закону:

A[1] = 1; A[2] = x;

A[i] = 2 * x * A[i-1] - A[i-2]; где i = 3, 4, ..., 10.

Значение A[5] при x = 1 будет равно...

Задание №12 (- выберите один вариант ответа)

Задан двумерный массив A[1..n,1..n]. Фрагмент программы

y := 0;

For i := 1 to n do

For j := 1 to n do

if A[i,j]>0 then y := y +A[i,j]*A[i,j];

вычисляет:

Варианты ответов:

a) сумму положительных элементов массива;

b) количество положительных элементов массива;

c) сумму квадратов элементов массива;

d) произведение квадратов положительных элементов массива;

e) сумму квадратов положительных элементов массива.

Задание №13 (- выберите один вариант ответа)

Запись какого из выражений неверна, если Х таблица из 50 целых элементов?

Варианты ответов:

a) х[51-1]:= x[20]+3;

b) x[1+4]:= x[2+4] + x[3+4];

c) x[1]:= x[2]+x[3];

d) x[1]:= x[2]*x[3];

e) x[50]:=x[20]/3.

Задание №14 (- выберите один вариант ответа)

Запись какого из выражений верна, если Х массив из целых элементов по 20 строк на 15 столбцов?

Варианты ответов:

a) х[i]:= x[I,j]+3;

b) x[I,j]:= x[20,16] -1;

c) x[20,15]:= x[20]*x[15];

d) x[I,j]:= i+j;

e) x[20,15]:=x[20,14]/x[19,15].

Задание №15 (- выберите один вариант ответа)

For i:=1 to 15 do begin

S:=0;

For j:=1 to 10 do

S:=S+A[I,j];

Writeln (s);

End;

Данный фрагмент программы подсчитывает и выводит…

Варианты ответов:

a) сумму всех элементов массива;

b) сумму отрицательных элементов;

c) сумму элементов каждой строки массива;

d) количество строк;

e) количество неотрицательных элементов в каждой строке.

Задание №16 (- выберите один вариант ответа)

Для обмена значений двух табличных переменных x[i] и x[i+1] необходимо выполнить следующие команды:

Варианты ответов:

a) х[i]:= x[i+1]; x[i+1]:=x[i];

b) x[i]:= c; x[i+1]:=x[i]; c:=x[i];

c) c:=x[i]; x[i+1]:= x[i]; x[i]:=c;

d) c:=x[i+1]; x[i+1]:= x[i];x[i]:=c;

e) c:=x[i+1]; x[i+1]:= x[i];x[i+1]:=c.

Задание №17 (- выберите один вариант ответа)

В какой последовательности надо расставить команды для поиска наименьшего элемента таблицы?

А. For i:=2 to 10 do E. m:=a[1];

B. m:=0; F. if m<a[i] then

C. m:=m+1; G. if m>a[i] then

D. m:=a[i];

Варианты ответов:

a) EACD;

b) BAGC;

c) EAFD;

d) BAFC;

e) EAGD.