var n : set of 1.. 30; i, k : integer;
begin
k := 0; n := [3, 5, 7, 20, 9, 12];
for i := 1 to 15 do
if i in n then k := k +1;
writeln(k);
end.
В результате выполнения программы на экран будет выведено
var w : set of byte; k : byte;
begin
w := [ ];
k:= 0;
while k <>777 do
begin
readln (k);
w : = w+[k];
end;
end.
В результате выполнения программы будет
В приведенном фрагменте:
for i := 1 to 3 do
for j := 1 to 4 do read (a[j , i])
элементы массива вводятся
В программе имеется следующее описание:
const n = 2; var mas: array [1..n,1..n] of integer; i, j: integer.
После выполнения операторов:
for i:= 1 to n do
for j:= 1 to n do
mas[i, j]:=i+j;
будет сформирована матрица:
В программе имеется следующее описание:
const n = 3; var mas: array [1..n,1..n] of integer; i, j: integer.
После выполнения операторов:
for i:= 1 to n do
for j:= 1 to n do
if i <> j then mas[i, j]:=0 else mas[i, j]:= 1;
будет сформирована матрица:
В программе имеется следующее описание:
const n = 3; var mas: array [1..n,1..n] of integer; i, j: integer.
После выполнения операторов:
for i:= 1 to n do
for j:= 1 to n do
if i = j then mas[i, j]:=0 else mas[i, j]:= 1;
будет сформирована матрица:
В результате выполнения программы:
Var St, Ss: string; P: byte;
Begin
St := ‘экзамен’;
Ss := ‘зам’;
P := Pos (St,Ss); Writeln (P);
End.
на экран будет выведено
В результате выполнения программы:
Var St, Ss: string; Q: byte;
Begin
St := ‘экзамен’;
Ss := ‘мен’; Q := Pos (St,Ss); Writeln (Q);
End.
на экран будет выведено
В результате выполнения программы:
Var St: String; A, B: Char; K, i : Integer;
begin
St:=’ Ура. Ура. Начались каникулы. ‘;
K:= length (st); A:=’.’; B:=’!’;
for i := 1 to (K-1) do
if st[i] = A then write(B) else write(St[i])
end.
будет выведено на экран
В результате выполнения программы:
Var St: String; A, B: Char; K, i : Integer;
begin
St:=’ Ура. Ура. Начались каникулы. ‘;
K:= length (st); A:=’.’; B:=’!’;
for i := 1 to K do
if st[i] = A then write(B) else write(St[i])
end.
будет выведено на экран
В результате выполнения программы:
Var St: String; A: Char; i : Integer;
Begin
St:=’ Ура! Я сдал экзамен!‘;
A:=’ ’;{А присвоить пробел}
for i := 1 to length (St) do
if (St[i] = A) and (St[i+1] = A) then delete (St,i+1,1)
end.
будет выведено на экран
В результате выполнения программы:
VAR ST: STRING; A: CHAR; K, L, i : INTEGER;
BEGIN
ST:=’Современная гуманитарная академия‘;
K:=1;
L:= LENGTH (ST); A:=’ ’; ;{А присвоить пробел}
FOR i := 1 TO L DO
IF ST[i] = A THEN K:=K+1;
WRITELN(K);
END.
будет выведено на экран
В результате выполнения программы:
Var St: String; a: Char; k, l, i : Integer;
Begin
St:=’Современная гуманитарная академия‘;
k:=1;
l:= length (St); a:=’ ’; ;{a присвоить пробел}
for i := 1 to l do
if St[i] = a then k:=k+1;
Writeln(k);
End.
будет найдено количество ________________ в строке St
В результате выполнения программы:
VAR ST: STRING; A: CHAR; L, i : INTEGER;
BEGIN
ST:=’СОВРЕМЕННАЯ ГУМАНИТАРНАЯ АКАДЕМИЯ‘;
L:= LENGTH (ST); A:=’ ’; {А присвоить пробел}
FOR i := 1 TO L DO
IF ST[i] = A THEN WRITE(‘–‘) ELSE WRITE(ST[i])
END.
будет выведено на экран
В результате выполнения программы:
var m : set of char; i, k, n : integer;
st : string;
begin
k := 0; m := [‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’];
st:=’Университет‘;
n:= length (st);
for i := 1 to n do if st[i] in m then k := k +1;
writeln(k);
end.
на экран будет выведено
В результате выполнения программы:
var St : string;
i, k : integer;
begin read(St); k := 0;
for I := 1 to length(St) do
if not (St[i] in [‘0’..’9’]) then k := k+1;
end.
будет определено(а)
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..5;
END;
VAR : Student : Anketa;
Правильные операторы присваивания:
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..5;
END;
VAR : Student : Anketa;
В результате выполнения оператора : Student.Kurs := ‘5’ возникнет ошибка, так как
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..4;
END;
VAR : Student : Anketa
Правильные операторы вывода:
Имеется описание: TYPE List = RECORD
n : INTEGER;
fio, adres : STRING[50];
group : STRING[6];
END;
VAR Anketa : List;
Переменная Anketa имеет ________ поля
Пусть данные представлены в таблице
Nomer
Fio
Group
Mark
В программе эта структура описывается с помощью типа
Пусть данные представлены в таблице
Nomer
Fio
Group
Adres
В программе эта структура описывается с помощью служебных слов
Пусть A, B, C: array [1..2,1..3] of integer; i, j: integer;
После выполнения операторов: for i:= 1 to 2 do for j:= 1 to 3 do begin C[i,j]:=A[i,j]+B[i,j]; write (C[i,j]); end; на экран будет выведено
Пусть A, B, C: array [1..2,1..3] of integer; i, j: integer;
После выполнения операторов: for i:= 1 to 2 do for j:= 1 to 3 do begin if A[i,j]> B[i,j] then C[i,j]:=A[i,j] else C[i,j]:=B[i,j]; write (C[i,j]); end; на экран будет выведено
Пусть A, B, C: array [1..2,1..3] of integer; i, j: integer;
После выполнения операторов: for i:= 1 to 2 do for j:= 1 to 3 do if A[i,j]> B[i,j] then C[i,j]:=A[i,j] else C[i,j]:=B[i,j]; write (C[i,j]); на экран будет выведено
Пусть A, B, C: array [1..2,1..3] of integer; i, j: integer;
После выполнения операторов: for i:= 1 to 2 do for j:= 1 to 3 do C[i,j]:=A[i,j]+B[i,j]; write (C[i,j]); на экран будет выведено
Пусть mas: array [1..2,1..3] of integer; i, j, c: integer;
В результате выполнения операторов: for i:= 1 to 2 do begin c:= mas[i, 1]; mas[i, 1]:= mas[i, 3]; mas[i, 3]:= c; end; будет получено
Пусть mas: array [1..2,1..3] of integer; i, j, c: integer;
В результате выполнения операторов: for j:= 1 to 3 do begin c:= mas[1, j]; mas[1, j]:= mas[2, j]; mas[2, j]:= c; end; будет получено
Строковая переменная st имеет значение “ Pascal ”. В результате выполнения фрагмента программы:
K := 0; FOR i := 1 TO LENGTH (st) DO K := K + 1;
переменная K будет иметь значение __________ (ответ введите цифрами)
Строковая переменная st имеет значение “Академия ”. В результате выполнения фрагмента программы:
k := 0; FOR i := 1 TO LENGTH (st) DO
IF (st[i]= ‘A’) OR (st[i]= ‘a’) THEN k := k + 1;
переменная k будет иметь значение
Существует описание:
TYPE Birthday = RECORD
Day, Month : BYTE;
Year : WORD
END;
VAR a,b : Birthday;
В программе могут быть использованы операторы
После выполнения фрагмента программы
for i:= 1 to 3 do
begin k:=0;
for j:= 1 to 3 do
if mas[i,j] >= 3 then k:= k+1;
write(k,’ ‘);
end;
будет выведено на экран
После выполнения фрагмента программы
for i:= 1 to 3 do
begin s:=0;
for j:= 1 to 3 do
if mas[i,j]<=3 then s:= s+mas[i,j];
write(s,’ ‘);
end;
будет выведено на экран
CONST n = 5. Правильное описание массива Matr
mas = (2, 7, 4, 9, 6) var mas: array [1..5] of integer; i, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A < mas[i] then A:= mas[i]; Writeln(A); на экран будет выведено
mas = (2, 7, 4, 9, 6) var mas: array [1..5] of integer; i, k, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A < mas[i] then begin A:= mas[i]; k:= i; end; Writeln(k); на экран будет выведено
mas = (3, 7, 1, 9, 2) var mas: array [1..5] of integer; i, k, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A > mas[i] then begin A:= mas[i]; k:= i; end; Writeln(k); на экран будет выведено
TYPE DAY = (MON, TUE, WED, THU, FRI, SAT, SUN). Верными являются утверждения
Var Matrix: array [1..5,1..5] of integer; Переменная Matrix является переменной типа
Var Matrix : ARRAY [2 .. 4,2..4] OF INTEGER Matrix содержит _____________элементов
В программе имеется следующее описание: type mas: array [1..5,1..5] of integer; var A,B,C: mas; i, j: integer. После выполнения операторов: for i:= 1 to 5 do for j:= 1 to 5 do C[i,j]:=A[i,j]+B[i,j]; write (C[i,j]);будет выведено на экран
В программе имеется следующее описание: var mas: array [1..10] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to 10 do if mas[i] < A then begin writeln (i); break; end будет(ут) выведен(ы) на экран
В программе имеется следующее описание: var mas: array [1..10] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to 10 do if mas[i] < A then writeln (i); будет(ут) выведен(ы) на экран
В программе имеется следующее описание: var mas: array [1..5] of integer; i, k, Mn : integer. После выполнения операторов: Mn:= mas[1]; for i:= 1 to 5 do if Mn > mas[i] then begin Mn:= mas[i]; k:=i; end: Writeln(k); на экран будет выведен
В программе имеется следующее описание: var mas: array [1..5] of integer; i, k, Mn : integer. После выполнения операторов: Mn:= mas[1]; for i:= 1 to 5 do if Mn < mas[i] then begin Mn:= mas[i]; k:=i; end: Writeln(k); на экран будет выведен
В программе имеется следующее описание: var mas: array [1..5] of integer; i, Mn : integer. После выполнения операторов: Mn:= mas[1]; for i:= 1 to 5 do if Mn > mas[i] then Mn:= mas[i]; будет найден(ы)
В программе имеется следующее описание: var mas: array [1..5] of integer; i, Mn : integer. После выполнения операторов: Mn:= mas[1]; for i:= 1 to 5 do if Mn < mas[i] then Mn:= mas[i]; будет найден(ы)
В программе необходимо описать матрицу целых чисел с именем Ar и размерностью 5х5. Правильные описания:
В программе описана переменная VAR St : String [4]. Если при вводе READ(St) набрать на клавиатуре: –33333333 и нажать клавишу enter, то переменная St примет значение
Величина, характеризующая положение элемента массива относительно его начала, – это
Верно описаны переменные строкового типа
Верно описаны переменные строкового типа
Вещественные типы данных:
Диапазон значений переменной типа INTEGER равен
Диапазон значений переменной типа WORD равен
Диапазон значений переменной типа BYTE равен
Для объявления пользовательского типа используется служебное слово
Для описания записного типа используются служебные слова
Для описания строкового типа используется служебное слово _________(ответ введите строчными латинскими буквами)
Для описания строкового типа используется служебное слово __________(ответ введите строчными латинскими буквами)
Для описания типа «запись» используется служебное слово _________ (ответ введите строчными латинскими буквами)
Для символьного типа функция ORD(Х) возвращает значение
Для упрощения доступа к полям записи используется оператор
Если переменная в процессе выполнения программы может принимать только целые положительные значения не более 255, то ее целесообразно описать как
Задан массив целых чисел А=(1, 0, 2, 0, 4). var A: array [1..5] of integer; i, k, p : integer. После выполнения операторов: p:=1; k:=0; for i:= 1 to 5 do if A[i]< >0 then p:=p* A[i]; k:= k +1; значения переменных p и k равны
Задан массив целых чисел А=(1, 0, 2, 0, 4). var A: array [1..5] of integer; i, k, p : integer. После выполнения операторов: p:=1; k:=0; for i:= 1 to 5 do if A[i]< >0 then begin p:=p* A[i]; k:= k +1; end; значения переменных p и k равны
Задан массив целых чисел А=(1, 0, 2, 0, 3). var A: array [1..5] of integer; i, k : integer. После выполнения операторов: k:=0; for i:= 1 to 5 do if A[i] = 0 then k:= i; значение переменной k равно
Задан массив целых чисел А=(1, 0, 2, 0, 3). var A: array [1..5] of integer; i, k: integer. После выполнения операторов: k:=0; for i:= 1 to 5 do if A[i] = 0 then begin k:= i; break; end значение переменной k равно
Задан массив целых чисел А=(1, 0, 2, 0, 3). После выполнения операторов: k:=0; for i:= 1 to 5 do if A[i]< >0 then k:= k * A[i]; значение переменной k равно
Задан массив целых чисел А=(1, 0, 2, 0, 4). var A: array [1..5] of integer; i, k, p : integer. После выполнения операторов: p:=1; k:=0; for i:= 1 to 5 do if A[i]< >0 then k:= k +1; p:=p* A[i]; значения переменных p и k равны
Задан массив целых чисел А=(5, -1, 1, -3, -4, 0). После выполнения операторов: k:=0; for i:= 1 to 6 do if A[i] <0 then k:= k + A[i]; значение переменной k равно
Задан массив целых чисел А=(5, -1, 1, -3, -4, 0). После выполнения операторов: k:=0; for i:= 1 to 6 do if A[i]<0 then k:= k + 1; значение переменной k равно
Задан массив целых чисел А=(5, -1, 1, -3, -4, 0). После выполнения операторов: k:=0; for i:= 1 to 6 do if A[i]<0 then k:= k + i; значение переменной k равно
Задан массив целых чисел mas = (3, 7, 1, 9, 2) b var mas: array [1..5] of integer; i, A : integer. В результате выполнения фрагмента программы A:= mas[1]; for i:= 2 to 5 do if A > mas[i] then A:= mas[i]; Writeln(A); на экран будет выведено
Задан массив целых чисел mas = (9, 7, 4, 6, 3) var mas: array [1..5] of integer; i, A : integer. В результате выполнения фрагмента программы A:=5; for i:= 1 to 5 do if mas[i] < A then begin writeln (i); break; end на экран будет(ут) выведен(ы)
Записи, массивы, множества относятся к ________________ типам данных
Имеется описание Var Str: string. Максимальный размер строки Str
К любым объектам множественного типа применимы операции:
Код внутреннего представления символа возвращает функция
Количество элементов, входящих во множество, может меняться в пределах от 0 до ________
Константа m в программе объявляется как
Константа P в программе объявляется как
Логическая переменная может принимать значение
Логический тип данных обозначается служебным словом
Массив Arr описан как var Arr : array [1..3 , 1..3] of integer. В программе при i = 2, j = 3 существует оператор Arr [j, i] := 0. В операторе присваивания
Обращение к элементу записи в программе выполняется с помощью составного имени -
Объединение двух строк в одну называется операцией
Ограниченный неупорядоченный набор различных элементов одинакового типа — это
Операция конкатенации двух строк записывается с помощью символа
Описание массивого типа: var A: ____________ [1..5] of integer
Переменная D, описанная как Type color = (white, red, yellow, green) Var c: color; является переменной типа
Переменная K описана как Type NUMBER = 1..10 Var K: NUMBER; Тип переменной K -
Переменной строкового типа, описанной как VAR S : STRING, необходимо присвоить значение “СГА”. Верные операторы присваивания:
Поиск определенного фрагмента в строке осуществляет функция
Порядковые типы данных:
После выполнения фрагмента программы: for c : = ‘a’ to ‘z’ do write (c); на экран будет выведено
После выполнения фрагмента программы: x: = ‘a’; y: = Upcase(x); Write (y); на экран будет выведено
Правильные описания массивового типа:
Правильными равенствами являются
Правильными равенствами являются
Простые типы данных:
Процедура очистки экрана
Процедура перемещения курсора в i- ую позицию k –ой строки экрана
Процедура, которая увеличивает значение переменной Х на единицу
Процедура, приостанавливающая выполнение программы на указанное количество милисекунд
Пусть n =3, k=2. После выполнения процедуры Inc(n,k) переменная n получит значение
Пусть n =5. После выполнения процедуры Inc(n) переменная n получит значение___________ .(ответ введите цифрами)
Пусть n =6, k=3. После выполнения процедуры Inc(n,k) переменная n получит значение___________ .(ответ введите цифрами)
Пусть S1:=[0,1,2,3,5,6]; S2:=[1..3]; S3:=[5..9]; Укажите соответствие между операциями над множествами и полученными результатами
Пусть S1:=[1..4,7,8]; S2:=[4,5]; S3:=[7..9]; Укажите соответствие между операциями над множествами и полученными результатами
Пусть X=’A’. Функция CHR(X) возвращает значение
Пусть X=’a’. Функция CHR(X) возвращает значение
Пусть X=’a’. Функция UPCASE(X) возвращает значение
Пусть X=’A’. Функция UPCASE(X) возвращает значение
Пусть X=’ш’. Функция UPCASE(X) возвращает значение
Пусть X=’Ы’. Функция UPCASE(X) возвращает значение
Пусть А= (2, 3, 4, 5,6) var A: array [1..5] of integer; i : integer. В результате выполнения фрагмента программы for i:= 1 to 5 do readln (A[i]); writeln(A[i]) на экран будет выведено
Пусть А= (2, 3, 4, 5, 6) В результате выполнения фрагмента программы for i:= 1 to 5 do readln (A[i]); writeln(A[i]) будет выполнено
Пусть строковая переменная STR имеет значение “University”. В результате выполнения оператора присваивания X := UPCASE (STR[10])
Символьный тип данных обозначается служебным словом
Следующие описания перечисляемого типа TYPE DAY = (MON, TUE, WED, THU, FRI, SUN); WEEKEND = (SAT, SUN) недопустимы, потому что
Служебные слова, используемые для объявления переменной множественного типа:
Служебные слова, используемые для объявления переменной типа запись:
Составляющие запись компоненты называются
Строковая переменная St может содержать не более 10 символов. Ее описание:
Строковая переменная STR имеет значение “TURBO PASCAL”. В результате выполнения оператора присваивания k := LENGTH (STR) переменная t примет значение
Строковая переменная XX имеет значение “University”. В результате выполнения оператора присваивания t := LENGTH (XX) переменная t примет значение
Строковая переменная XX имеет значение “University”. В результате выполнения оператора присваивания t := UPCASE (XX) переменная t примет значение
Строковая переменная XX имеет значение “Университет”. В результате выполнения оператора присваивания t := COPY (XX, 3, 5) строковая переменная t примет значение
Строковая переменная XX имеет значение “Учебник”. В результате выполнения оператора присваивания t := COPY (XX, 2, 4) строковая переменная t примет значение
Структура данных, состоящая из фиксированного числа компонентов разного типа, называется
Структура данных, состоящая из фиксированного числа компонентов разного типа, – это
Структура объявления типа запись:
Структурированные типы данных:
Существует описание перечисляемого типа TYPE Color = (White, Red, Yellow, Green) Значение функции SUCC(Red) равно
Существует описание перечисляемого типа TYPE WEEKEND = (SAT, SUN). Значение функции SUCC(SAT)
Типизированная константа YEAR в программе объявляется как
Укажите конструкции, не являющиеся множествами в языке Паскаль
Укажите соответствие между названиями стандартных процедур для строковых переменных и их назначением
Укажите соответствие между названиями стандартных процедур для строковых переменных и их назначением
Укажите соответствие между названиями стандартных функций для строковых переменных и их назначением
Укажите соответствие между названиями стандартных функций и их назначением
Укажите соответствие между процедурами обработки строковых данных и полученными результатами S1:=’Pascal’; S2:=’шесть’; S3:=’(7+3)/2’;
Укажите соответствие между процедурами обработки строковых данных и полученными результатами S:=’информатика’; X:=’aabbdd’; Y:=’cc’
Укажите соответствие между процедурами обработки строковых данных и полученными результатами S:=’фотография’; S1:=’три’; S2:=’лек’; S3:=’мак’
Укажите соответствие между процедурами обработки строковых данных и полученными результатами S:=’электрификация’; S1:=’три’; S2:=’лек’; S3:=’мак’
Укажите фрагмент программы, в результате выполнения которого, двумерный массив Arr размером (3 x 3) выводится в виде квадратной матрицы (по строкам и столбцам)
Функцию ORD(Х) можно применять к переменным только ___________ типа
Функцию PRED(Х) можно применять к переменным только ___________ типа
Целые типы данных:
Чтобы воспользоваться процедурой очистки экрана, необходимо подключить модуль
