Вход | Регистрация
Тесты онлайн, бесплатный конструктор тестов. Психологические тестирования, тесты на проверку знаний.

Список вопросов базы знаний

Программирование.

Вопрос id:1206208
Укажите верно записанные заголовки процедуры.
?) Procedure Sub
?) Procedure Sub(a, b: real; n, k:integer)
?) Procedure Sub()
?) Procedure Sub(a: real; b:real; n: integer; k:integer)
?) Procedure Sub(a, b: real) :integer
Вопрос id:1206209
Укажите верно записанные комментарии
?) {This Is variable}
?) [*Это тоже комментарий*]
?) {Я пишу подробные комментарии
?) {Это комментарий}
?) (* Начало цикла*)
Вопрос id:1206210
Укажите верные утверждения.
?) В заголовке подпрограммы отдельные группы параметров отделяются друг от друга точкой с запятой
?) В заголовке подпрограммы отдельные группы параметров отделяются друг от друга запятой
?) В заголовке подпрограммы нельзя вводить новый тип
?) В заголовке подпрограммы можно использовать для описания параметров структурированный тип
?) Для формального параметра тип указывать необязательно
Вопрос id:1206211
Укажите верные утверждения.
?) В заголовке подпрограммы и в вызове этой же подпрограмы типы параметров должно совпадать
?) Имена параметров могут совпадать с именами объектов программы
?) Имена параметров не могут совпадать с именами объектов программы
?) В подпрограмме-функции формальные параметры обязательно присутствуют
?) В заголовке подпрограммы и в вызове этой же подпрограмы количество параметров должно совпадать
Вопрос id:1206212
Укажите верные утверждения.
?) В Турбо Паскале можно использовать параметры-переменные и параметры-константы без указания типа
?) Параметр-переменная может иметь файловый тип
?) Параметр-переменная не может иметь файловый тип
?) На месте параметра-переменной в качестве фактического параметра должна использоваться переменная идентичного типа
?) В Турбо Паскале нельзя использовать параметры-переменные и параметры-константы без указания типа
Вопрос id:1206213
Укажите верные утверждения
?) Тип параметра-значения может быть любым, за исключением файлового
?) Параметр-значение может иметь файловый тип
?) Параметр-значение указывается в заголовке подпрограммы своим именем и через двоеточие - типом
?) Имена параметров-значений не могут совпадать с именами объектов программы
?) В качестве фактического параметра на месте параметра-значения может выступать любое выражение совместимого типа
Вопрос id:1206214
Укажите все верные утверждения. В интерфейсной части модуля содержатся
?) объявления констант и переменных
?) объявления процедур с формальными параметрами
?) обращения к процедурам и функциям
?) объявления функций
?) объявления типов
?) объявления процедур с опережающим описанием
Вопрос id:1206215
Укажите рекомендации, относящиеся к рациональному стилю программирования.
?) слова операторных скобок Begin-End лучше записывать в одних и тех же позициях
?) не следует создавать большие текстовые файлы
?) логически завершенные последовательности операторов целесообразно оформлять в виде подпрограмм
?) метки лучше записывать цифрами
?) программные модули следует создавать объемными
?) метки лучше распологать в самых левых позициях так, чтобы они «не загораживались» другими операторами
Вопрос id:1206216
Укажите рекомендации, относящиеся к рациональному стилю программирования.
?) не опасайтесь использовать длинные имена
?) не делайте лишние пробелы
?) не следует в одной строке объединять несколько операторов
?) подпрограммы лучше компоновать в отдельные модули
?) операторы внутренних циклов сдвигайте левее относительно операторов внешних циклов
?) операторы тела цикла сдвигайте правее относительно оператора цикла
Вопрос id:1206217
Укажите рекомендации, относящиеся к рациональному стилю программирования.
?) не следует создавать большие программные модули
?) не следует локальным и глобальным параметрам давать одинаковые имена
?) не следует писать многочисленных комментариев
?) пропуск строк - эффективный метод повышения наглядности программы
?) опасайтесь использовать длинные имена
?) в текстовом редакторе Турбо Паскаля не следует расцвечивать разными цветами написание элементов программы
Вопрос id:1206218
Фактические параметры - это реальные объекты программы, заменяющие в теле процедуры при ее вызове ___ параметры (запишите пропущенное слово прописными буквами)
Вопрос id:1206219
Функциональное разбиение программы на автономные модули, возможность изменения содержания модулей - это ___ программы
?) модифицируемость
?) качество
?) переносимость
?) надежность
Вопрос id:1206220
Цвет символов задает процедура
?) TextBack(<цвет>)
?) ColorText (<цвет>)
?) TextColor(<цвет>)
?) TextGround(<цвет>)
Вопрос id:1206221
Цвет фона задает процедура
?) TextBackColor(<цвет>)
?) BackTextColor(<цвет>)
?) TextColorBack(<цвет>)
?) TextBackGround(<цвет>)
Вопрос id:1206222
Этап разработки алгоритмов и формирования общей структуры программного комплекса называется
Вопрос id:1206223

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.

В результате выполнения программы на экран будет выведено

?) 6
?) 0
?) 5
?) 15
Вопрос id:1206224

var w : set of byte; k : byte;

begin

w := [ ];

k:= 0;

while k <>777 do

begin

readln (k);

w : = w+[k];

end;

end.

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

?) определено количество введенных чисел, не равных 777
?) найдена сумма введенных чисел, не равных 777
?) сформировано множество целых положительных чисел
?) найдена сумма введенных чисел
Вопрос id:1206225

В приведенном фрагменте:

for i := 1 to 3 do

for j := 1 to 4 do read (a[j , i])

элементы массива вводятся

?) неправильно
?) в произвольном порядке
?) по столбцам
?) по строкам
Вопрос id:1206226

В программе имеется следующее описание:

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;

будет сформирована матрица:

?)
?)
?)
?)
Вопрос id:1206227

В программе имеется следующее описание:

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;

будет сформирована матрица:

?)
?)
?)
?)
Вопрос id:1206228

В программе имеется следующее описание:

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;

будет сформирована матрица:

?)
?)
?)
?)
Вопрос id:1206229

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

Var St, Ss: string; P: byte;

Begin

St := ‘экзамен’;

Ss := ‘зам’;

P := Pos (St,Ss); Writeln (P);

End.

на экран будет выведено

?) 0
?) 3
?) 2
?) 7
Вопрос id:1206230

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

Var St, Ss: string; Q: byte;

Begin

St := ‘экзамен’;

Ss := ‘мен’; Q := Pos (St,Ss); Writeln (Q);

End.

на экран будет выведено

?) 4;
?) 5
?) 0
?) 7
Вопрос id:1206231

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

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.

будет выведено на экран

?) Ура! Ура! Начались каникулы!
?) Ура! Ура! Начались каникулы.
?) сообщение об ошибке
?) Начались каникулы!
Вопрос id:1206232

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

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.

будет выведено на экран

?) Ура! Ура!
?) Ура. Ура. Начались каникулы.
?) сообщение об ошибке
?) Ура! Ура! Начались каникулы!
Вопрос id:1206233

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

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.

будет выведено на экран

?) Ура! Я сдал !‘
?) Ура! Я сдал экзамен!
?) Ура!
?) Ура! сдал экзамен!
Вопрос id:1206234

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

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.

будет выведено на экран

?) 2
?) 3
?) 0
?) 6
Вопрос id:1206235

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

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

?) символов
?) слов
?) пробелов
?) букв «а»
Вопрос id:1206237

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

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.

на экран будет выведено

?) 5
?) 3
?) 4
?) 11
Вопрос id:1206238

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

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.

будет определено(а)

?) сумма цифр, входящих в St
?) количество цифр, входящих в St
?) количество символов St, не являющихся цифрами
?) множество цифр, входящих в St
Вопрос id:1206239

Имеется описание: TYPE Anketa = RECORD

Fio, Adress : STRING[50];

Group : STRING[6];

Kurs : 1..5;

END;

VAR : Student : Anketa;

Правильные операторы присваивания:

?) Anketa. Group := ‘ОИ-306’;
?) Anketa. Kurs :=4;
?) Kurs.Student := 1;
?) Fio.Student := ’Иванов И.И.’;
?) Student.Group := ‘ДИН-06’;
?) Student.Fio := ’Петров П.П.’
Вопрос id:1206240

Имеется описание: TYPE Anketa = RECORD

Fio, Adress : STRING[50];

Group : STRING[6];

Kurs : 1..5;

END;

VAR : Student : Anketa;

В результате выполнения оператора : Student.Kurs := ‘5’ возникнет ошибка, так как

?) к компоненте записи нельзя обращаться в операторе присваивания
?) неправильно записано имя компоненты записи
?) смешаны типы переменных
?) неверно определен записной тип
Вопрос id:1206241

Имеется описание: TYPE Anketa = RECORD

Fio, Adress : STRING[50];

Group : STRING[6];

Kurs : 1..4;

END;

VAR : Student : Anketa

Правильные операторы вывода:

?) WRITELN(Anketa.Fio); WRITELN(Anketa.Group);
?) WRITELN(Student.Fio); WRITELN(Student.Group);
?) WRITELN(Fio); WRITELN(Group);
?) WITH Student DO BEGIN WRITELN(Fio); WRITELN(Group) END;
Вопрос id:1206242

Имеется описание: TYPE List = RECORD

n : INTEGER;

fio, adres : STRING[50];

group : STRING[6];

END;

VAR Anketa : List;

Переменная Anketa имеет ___ поля

?) 5
?) 3
?) 1
?) 4
Вопрос id:1206243

Пусть данные представлены в таблице

Nomer

Fio

Group

Mark

В программе эта структура описывается с помощью типа

?) запись
?) множество
?) символьный
?) массив
Вопрос id:1206244

Пусть данные представлены в таблице

Nomer

Fio

Group

Adres

В программе эта структура описывается с помощью служебных слов

?) pointer
?) set of < …>
?) record
?) array … of
Вопрос id:1206245

Пусть 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; на экран будет выведено

?) 15 11
?) 6
?) 26
?)
Вопрос id:1206246

Пусть 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; на экран будет выведено

?)
?)
?)
?)
Вопрос id:1206247

Пусть 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]); на экран будет выведено

?)
?)
?) 4
?) 2
Вопрос id:1206248

Пусть 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]); на экран будет выведено

?) 26
?)
?) 6
?) 15 11
Вопрос id:1206249

Пусть 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; будет получено

?)
?)
?)
?) 15
Вопрос id:1206250

Пусть 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; будет получено

?)
?)
?)
?)
Вопрос id:1206251

Строковая переменная st имеет значение “ Pascal ”. В результате выполнения фрагмента программы:

K := 0; FOR i := 1 TO LENGTH (st) DO K := K + 1;

переменная K будет иметь значение ___ (ответ введите цифрами)

Вопрос id:1206252

Строковая переменная st имеет значение “Академия ”. В результате выполнения фрагмента программы:

k := 0; FOR i := 1 TO LENGTH (st) DO

IF (st[i]= ‘A’) OR (st[i]= ‘a’) THEN k := k + 1;

переменная k будет иметь значение

?) 1
?) 5
?) 0
?) 2
Вопрос id:1206253

Существует описание:

TYPE Birthday = RECORD

Day, Month : BYTE;

Year : WORD

END;

VAR a,b : Birthday;

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

?) WRITE (a)
?) a. Day := 21
?) a := a + b
?) READ (a , b)
?) a := b
Вопрос id:1206254

В программе имеется следующее описание: const n = 3; var mas: array [1..n,1..n] of integer; i, j, S: integer. Установите соответствие между фрагментом программы и полученным после выполнения программы результатом

Левая частьПравая часть
S:=0; for i:= 1 to n do
for j:= 1 to n do
if mas[i,j] <> 0 then S:=S+1;
6
S:=0; for i:= 1 to n do
for j:= 1 to n do
if mas[i,j] <> 0 then S:=S+mas[i, j];
4
S:=0; for i:= 1 to n do
for j:= 1 to n do
if mas[i,j] <> 0 then S:=S*mas[i, j];
0
Вопрос id:1206255

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

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;

будет выведено на экран

?) 1 2 1
?) 3 11 3
?) 17
?) 4
Вопрос id:1206256

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

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;

будет выведено на экран

?) 10
?) 5
?) 1 1 3
?) 3 1 6
Вопрос id:1206257
CONST n = 5. Правильное описание массива Matr
?) VAR Matr : ARRAY(n) OF INTEGER
?) VAR Matr : Massiv [1..n]
?) VAR Matr : ARRAY [1..n] OF INTEGER
?) VAR Matr : ARRAY (1..n) OF INTEGER
Вопрос id:1206258
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); на экран будет выведено
?) 9
?) 6
?) 7 9
?) 2
Copyright testserver.pro 2013-2024