1. Служебное слово VAR в программе на языке Pascal фиксирует начало раздела программы, содержащего:
А) операторы;
Б) список меток;
В) описание сложных типов данных;
Г) перечень констант;
Д) описание переменных.
2. Числа в языке Pascal различаются:
А) как натуральные и целые;
Б) как целые и вещественные;
В) как натуральные и вещественные;
Г) как целые и иррациональные;
Д) как целые и рациональные.
3. Оператор организации ввода данных с клавиатуры в системе программирования Turbo Pascal записывается с использованием служебного слова:
А) WRITE; Б) INPUT; В) READ; Г) DEFFN; Д) RESET.
4. Комментарий к тексту программы на языке Pascal заключается:
А) в фигурные скобки;
Б) в круглые скобки;
В) в квадратные скобки;
Г) в апострофы;
Д) между служебными словами Begin, End.
5. Служебное слово BEGIN в программе на языке Pascal фиксирует начало раздела программы, содержащего:
А) перечень констант;
Б) действия программы;
В) описание переменных;
Г) операторы;
Д) описание сложных типов данных.
6. При записи оператора вывода на языке Pascal используется служебное слово:
А) WRITE; Б) RESET;
В) READ; Г) BEGIN; Д) WHILE
7. Операторы в программе на языке Pascal отделяются друг от друга:
А) апострофом; Б) двоеточием;
В) пробелом; Г) запятой; Д) точкой с запятой.
8. Дана программа:
Program T21;
Var X: Integer;
Begin
Read (X);
If X MOD 2=0 Then Writeln(‘ДА’)
Else Writeln(‘НЕТ’)
End.
При каком значении X будет получен ответ “ДА”?
А) 7; Б) 4; В) 15; Г) 3; Д) 21.
9. В каком из условных операторов допущена синтаксическая ошибка?
а) if B = 0 then Writeln ('Деление на нуль невозможно.');
б) if a > b then m:= a else m:= b;
в) if a>b then c:=a+b; г) if a < b then min:= a; else min:= b;
10. В алфавит языка Pascal входит следующее слово:
а) bigin; б) begin; в) begun.
11. Операторные скобки на языке Pascal заключается:
а) в круглые скобки;
б) в фигурные скобки;
в) в квадратные скобки;
г) между служебными словами begin и end.
12. Какое значение примет переменная X после выполнения операторов:
A:=4;
X;=sgrt(A);
If x<>2 then x:=x*3 else x:=5+x;
ответ
13. Определите значение переменной c после выполнения следующего фрагмента программы:
a := -2;
b := -3;
a := b + a*3;
if a < b then
c := a - b
else c := b - a;
ответ
14. Определите значение переменной c после выполнения следующего фрагмента программы:
a := 40;
b := 10;
b := a - 2*b;
if a < 2*b then
c := a
else c := b;
ответ
15. Дан алгоритм:
Read (x);
if x<-20 then y = 2 * x ;
if x<=100 then y = 51 ;
if x>10 then y = x ;
Write (y);
Какое число будет выведено в результате выполнения алгоритма, если ввести значение X = -22?
ответ
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.
(1 + 0) - истинна, т.к. дизъюнкция истинна если хотя-бы одна из переменных истинна
(0 + 0) - ложна, т.к. обе перменные ложны
(1 + 0)*(0+0) - ложна, т.к. первая скобка истинна, а вторая ложна, а в конъюнкции для истины обе скобки должны быть истинны.
1*0 - ложна, т.к. в конъюнкции обе переменные должны быть истинны.
Для удобства разделил скобками
((1 + 0)*(0+0)) + (1*0) - ложна, т.к. первая (большая) скобка ложна, вторая скобка (1*0) тоже ложна, между ними дизъюнкция, то есть хотя-бы одна из них должна быть истинна. Они обе ложны, значит результатом выражения
(1 + 0)*(0+0) + 1*0
будет 0