Передача данных от внешнего носителя в оперативную память для обработки;
4) присваивание конкретных значений переменным, которые используются в программе; 5) запись файла на диск.
Вопрос 79. Значение R после выполнения операции логического присваивания
R := Not (A Or B Or (X > 2) And (Y < 0))
при A = False, B = False, X = 3, Y = 2 будет равно
1) –1;
2) False;
3) True;
4) 0;
5) 1.
Вопрос 80. С помощью какой из приведенных серий команд переменной B присваивается значение выражения?
а) A := (x + y) / (x – y); B := (A – 1 / A) * (1 / A + A);
б) A := (x + y) / (x – y); B := Sqr(A) – Sqr (1 / A);
в) A := (x – y) / (x + y); B := Sqr(1 / A) – Sqr (A);
1) а;
2) б;
3) в;
4) всех трех;
Ни один из ответов 1–4 не является верным.
Вопрос 81. Значения переменных a и b после выполнения следующих действий
a := 15 Div (16 Mod 7); b := 34 Mod a * 5 – 29 Mod 5 * 2;
будут равны
1) a = 1, b = 160;
2) a = 1, b = 4;
3) a = 7, b = 25;
4) a = 7, b = 22;
5) a = 7, b = 28.
Вопрос 82. Во фрагмент алгоритма
For K := 10 To 99 Do
Begin P1 := K Div 10;
P2 := K Mod 10;
S := P1 + P2;
If ____ Then WriteLn(K)
End;
печатающий все двузначные числа, в записи которых есть цифра N или сумма цифр которых равна самим числам, нужно вписать логическое выражение
1) (P1 = N) Or (P2 = N) And (S = K);
2) (P1 = N) Or (P2 = N) Or (S = K);
3) (P1 = N) And (P2 = N) Or (S = K);
4) ((P1 = N) Or (P2 = N)) And (S = K);
5) (P1 = N) And (P2 = N) And (S = N).
Вопрос 83. Значения переменных p и d после выполнения фрагмента алгоритма
|
|
k := 47; Case k Mod 9 Of
5: Begin d := k; p := True End;
0..2: Begin d := 2; p := False End;
8: Begin d := 1; p := False End
Else Begin d := 1; p := True End
End;
равны
1) p = True, d = 1;
2) p = False, d = 2;
3) p = False, d = 3;
4) p = True, d = 47;
5) p = True, d = 2.
Вопрос 84. Тело цикла в программе
a := 1; b := 1; While a + b < 8 Do begin a := a + 1; b := b + 2 end;
выполнится
1) 1 раз;
2) 2 раза;
3) 3 раза;
4) ни разу;
5) бесконечное число раз.
Вопрос 85. Элементы массива p[1..5] равны соответственно 1, –1, 5, 2, 4. Значение выражения
p[1] * p[3] – p[2 * p[2] + p[p[5] – p[2]]]
равно
1) 8;
2) –8;
3) 12;
4) –12;
5) 6.
Вопрос 86. Задана строка St.Фрагмент алгоритма
S := 0;
For I := 1 To Length (St) Do
Begin
Val(St[I], d, k);
If K = 0 Then S := S + d
End;
1) определяет количество цифр в строке;
2) подсчитывает количество нулей в строке;
3) определяет сумму номеров позиций в строке, где стоят цифры;
Подсчитывает сумму цифр в строке;
5) определяет сумму номеров позиций в строке, где стоят нули.
Вопрос 87. Какая из приведенных серий операторов определяет и печатает индекс последнего отрицательного элемента в линейном массиве из n элементов?
|
|
а) i := n; While (i >= 1) And (m[i] > 0) Do Dec (i); If i < 1 Then WriteLn (‘i = 0’) Else WriteLn (‘i = ’, i);
б) k := 0; For i := 1 To n Do If m[i] < 0 Then k := i; WriteLn (‘i = ’, k);
в) i := n; Repeat i := i – 1 Until (m[i] < 0); WriteLn (‘i = ’, i);
А, б;
2) б, в;
3) а, б, в;
4) б;
5) ни один из ответов 1–4 не верен.
Вопрос 88. Задан линейный массив M[1..n].
Function Control (M: Myarray): Boolean;
Var I : Integer;
Begin I := 1;
While (I <= n) And (M[I] > 0) Do Inc(I);
Control := (I <= n);
End;
Если в данном массиве все элементы положительные, приведенная функция возвращает значение
1) n;
2) True;
False;
4) I <= n;
5) ни один из ответов 1–4 не верен.
Вопрос 89. Задан двумерный массив X[1..n, 1..m]. Процедура
Procedure Sub (Var X: Myarray);
Var i, j: Integer;
Begin For i := 1 To n Do
For j := 1 To m Div 2 Do X[i, 2 * j] := X[i, 2 * j] + X[i, 1];
End;
1) к элементам столбцов в первой половине матрицы прибавляет элементы первого столбца соответствующей строки;
2) добавляет к матрице еще M столбцов с элементами, равными соответствующим элементам первого столбца;
|
|
3) к элементам четных столбцов прибавляет элементы первого столбца соответствующей строки;
4) к элементам четных строк прибавляет элементы первой строки соответствующего столбца;
5) меняет порядок столбцов таблицы.
Вопрос 90. Задан двумерный массив X[1..n, 1..m]. Функция
Function Check (X: Myarray): Boolean;
Var i, j : Integer; t : Boolean;
Begin t := True; i := 1;
While t And (i <= n) Do
Begin j := 1; While (j <= m) And (X[i, j] <> 0) Do Inc (j);
t := (j = m + 1); Inc (i)
End;
Check := Not t
End;
возвращает значение
1) True, если все элементы массива ненулевые;
2) True, если в массиве есть элемент, равный нулю;
3) False, если в массиве есть элемент, равный нулю;
4) Not t;
5) ни один из ответов 1–4 не верен.
Вопрос 91. Среди перечисленных соответствий, которые необходимо соблюдать между формальными и фактическими параметрами
а) соответствие по типу параметров;
б) соответствие по количеству параметров;
в) соответствие по типу используемых вспомогательных переменных;
г) соответствие по порядку перечисления;
лишним является
1) а;
2) б;
3) в;
4) г;
5) ни один из ответов 1–4 не верен.
Вопрос 92. Определите тип выражения (здесь A : Array[1..20] Of Real; B : Boolean; C : Integer)
|
|
C + Ord(Round(A[7]) + Ord(B)) – Trunc(A[1])
1) Real;
Integer;
3) Boolean;
4) Byte;
5) среди ответов 1–4 нет верного.
Вопрос 93. Список объявлен следующим образом
Type Ukaz = ^Zveno; Zveno = Record X : String; N : Ukaz End;
Var First : Ukaz; {ссылка на начало списка}
В следующем фрагменте программы
P := First;
While P^.N <> Nil Do
Begin B := P; M := P;
While B <> Nil Do Begin If B^.X < M^.X Then M := B; B := B^.N End;
S := P^.X; P^.X := M^.X; M^.X := S; P := P^.N
End;
выполняется
1) перемещение компонента к началу списка;
Дата добавления: 2020-12-12; просмотров: 255; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!