Список вопросов базы знанийПрограммирование.Вопрос id:1206208 Укажите верно записанные заголовки процедуры. ?) Procedure Sub ?) Procedure Sub() ?) Procedure Sub(a, b: real; n, k:integer) ?) 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 Цвет фона задает процедура ?) TextColorBack(<цвет>) ?) TextBackGround(<цвет>) ?) BackTextColor(<цвет>) ?) TextBackColor(<цвет>) Вопрос 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 ?) 15 ?) 5 Вопрос 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 После выполнения операторов: 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. на экран будет выведено ?) 3 ?) 2 ?) 7 ?) 0 Вопрос id:1206230 В результате выполнения программы: Var St, Ss: string; Q: byte; Begin St := ‘экзамен’; Ss := ‘мен’; Q := Pos (St,Ss); Writeln (Q); End. на экран будет выведено ?) 0 ?) 5 ?) 7 ?) 4; Вопрос 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 ?) 0 ?) 6 ?) 3 Вопрос 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. на экран будет выведено ?) 11 ?) 5 ?) 4 ?) 3 Вопрос 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. Kurs :=4; ?) Student.Fio := ’Петров П.П.’ ?) Student.Group := ‘ДИН-06’; ?) Kurs.Student := 1; ?) Anketa. Group := ‘ОИ-306’; ?) Fio.Student := ’Иванов И.И.’; Вопрос 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); ?) WITH Student DO BEGIN WRITELN(Fio); WRITELN(Group) END; ?) WRITELN(Fio); WRITELN(Group); ?) WRITELN(Student.Fio); WRITELN(Student.Group); Вопрос id:1206242 Имеется описание: TYPE List = RECORD n : INTEGER; fio, adres : STRING[50]; group : STRING[6]; END; VAR Anketa : List; Переменная Anketa имеет ___ поля ?) 1 ?) 4 ?) 3 ?) 5 Вопрос id:1206243 Пусть данные представлены в таблице
В программе эта структура описывается с помощью типа ?) массив ?) множество ?) запись ?) символьный Вопрос id:1206244 Пусть данные представлены в таблице
В программе эта структура описывается с помощью служебных слов ?) array … of ?) record ?) pointer ?) set 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; на экран будет выведено ?) 26 ?)  ?) 15 11 ?) 6 Вопрос 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]); на экран будет выведено ?) 15 11 ?) 26 ?)  ?) 6 Вопрос 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 будет иметь значение ?) 2 ?) 1 ?) 5 ?) 0 Вопрос id:1206253 Существует описание: TYPE Birthday = RECORD Day, Month : BYTE; Year : WORD END; VAR a,b : Birthday; В программе могут быть использованы операторы ?) READ (a , b) ?) WRITE (a) ?) a := b ?) a. Day := 21 ?) a := a + b Вопрос id:1206254
В программе имеется следующее описание: const n = 3; var mas: array [1..n,1..n] of integer; i, j, S: integer. Установите соответствие между фрагментом программы и полученным после выполнения программы результатом
Вопрос 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; будет выведено на экран ?) 3 11 3 ?) 4 ?) 17 ?) 1 2 1 Вопрос 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; будет выведено на экран ?) 3 1 6 ?) 10 ?) 1 1 3 ?) 5 Вопрос id:1206257 CONST n = 5. Правильное описание массива Matr ?) VAR Matr : Massiv [1..n] ?) VAR Matr : ARRAY [1..n] OF INTEGER ?) VAR Matr : ARRAY(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); на экран будет выведено ?) 7 9 ?) 6 ?) 2 ?) 9 |
; var mas: array [1..n,1..n] of integer; i, j: integer. 
