Список вопросов базы знанийПрограммирование на языке высокого уровняВопрос id:558771 Заполните пропуск в 13-й строке второй задачи идентификатор. Строчные и заглавные символы в написании идентификатора должны соответствовать его написанию в программе. Вопрос id:558772 Заполните пропуск в первом слагаемом в 15-ой строке первой задачи. Введите символы без пробелов. Используйте строчные латинские буквы. Вопрос id:558773 Заполните пропуск во втором слагаемом в 15-ой строке первой задачи. Строчные и заглавные символы в написании идентификатора должны соответствовать написанию в программе. Вопрос id:558774 Правильным высказыванием является ?) При описании функции после имени в скобках указываются формальные параметры, при вызове функции – фактические. ?) При описании функции после имени в скобках указываются локальные параметры, при вызове функции – глобальные. ?) При описании функции после имени в скобках указываются глобальные параметры, при вызове функции – локальные. ?) При описании функции после имени в скобках указываются фактические параметры, при вызове функции – формальные. Вопрос id:558775 Стандартными функциями Турбо Паскаля являются ?) a: = b ?) Cos(x) ?) Read(a,b) ?) Pos(s1,St) Вопрос id:558776 Заголовок процедуры имеет вид: PROCEDURE PRIM (A,B:Real; Var X,Y:Real); Правильными вызовами процедуры являются ?) A1:=2.1; B1:= 5.4; PRIM(A1,A2: Real;X0,Y0:Real) ?) A1:=2.1; B1:= 5.4; PRIM(A1,B1,X1,Y1) ?) PRIM(2.1,5.4,X0,Y0) ?) PRIM(44.3,30.1;X0,Y0) ?) A3:=2.1; B3:= 5.4; PRIM(A3,B3;X3,Y3) ?) PRIM(A1,A2,X0,Y0:Real) Вопрос id:558777 Имеется фрагмент программы: CONST N=10; TYPE MAS=ARRAY [1..N] OF REAL; VAR A,D:MAS; Заголовок процедуры PRIM имеют вид: PROCEDURE PRIM (K:INTEGER; VAR X:MAS); Правильный вызов процедуры - это ?) PRIM (N:INTEGER; A:) ?) Z:= PRIM (10,D: MAS) ?) PRIM (N,A) ?) Y:= PRIM (N,D) ?) PRIM (8,D) Вопрос id:558778 Процедура Prim должна вычислить: X:= A + B; Y:= A - B; где, A – тип Real, B – тип Integer; Заголовок процедуры запишется в виде ?) Procedure Prim (A:real;B:integer;Var X,Y:integer) ?) Procedure Prim (A:real;B:integer;Var X,Y:real) ?) Procedure Prim (A,B:real;Var X:real;Var Y:integer) ?) Procedure Prim (A,B; X,Y) : real Вопрос id:558779 Функцмя в программе имеет заголовок function Sum (X,Y:real): real; Правильный вызов функции – это ?) Sum (A,B) ?) Z:= Sum (4.5,3.15) ?) Sum (A,B:real) ?) Z:= Sum (A,B) ?) Sum (1.24,5.6):real ?) Sum (A,B) :real Вопрос id:558780 a:=4; b:=9; x:=sqr(a); y:=sqrt(b) Правильные ответы: ?) y=81 ?) y=3 ?) x=16 ?) x=2 Вопрос id:558781 Var F : File Of Integer; i : Integer: После выполнения операторов: Rewrite(F); For i:= 3 Downto 1 Do Write(F,sqr(i)) содержимое файла F будет ___ (введите числа через пробел) Вопрос id:558782 Var F : File Of Integer; i : Integer: После выполнения операторов: Rewrite(F); if eof(F) then write(F,1) else write(F,2); if eof(F) then write(F,3) else write(F,4); содержимое файла F будет ?) 1 4 ?) 1 3 ?) 2 4 ?) 2 3 Вопрос id:558783 Var F : File Of Integer; X, Y : Integer: Пусть файл содержит три элемента: 2, -4 и 6. После выполнения операторов: Reset(F); Y:= 0; While not eof(F) do begin read (F,X); if X > 0 then Y:= Y+X; end; переменная Y примет значение ___ (ответ введите цифрами) Вопрос id:558784 Var F1,F2: Text; ST: String; Пусть содержимое файла F1: Анна [13] [10] Владимир [13] [10] Александр [13] [10] После выполнения операторов: Reset (F1);Rewrite (F2); While Not Eof(F1) Do Begin Readln(F1,ST); If ST[1]=’А’ Then Writeln(F2,ST); End; ?) в файл F2 будут записаны строки: Анна и Александр ?) на экран будет выведено:13 10 ?) в файл F2 будет записано: А ?) на экран будет выведено содержимое переменных F2 и ST Вопрос id:558785 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. В результате выполнения программы значение k равно___(ответ введите цифрами) Вопрос id:558786 VAR m : SET OF INTEGER; n : INTEGER; BEGIN m := [ ]; n:= 1; WHILE n <>9999 DO BEGIN READLN (n); m : = m+[n]; END; END. В результате выполнения программы будет ?) определено количество вводимых чисел ?) сформировано множество целых чисел ?) определено, сколько введенных чисел равно 9999 ?) найдена сумма введенных чисел Вопрос id:558787 VAR n : SET OF 0 .. 9; i, k : INTEGER; BEGIN k := 0; n := [1, 2, 5, 7]; FOR i := 1 TO 7 DO IF i IN n THEN k := k +1; WRITELN(k); END. В результате выполнения программы значение k равно___(ответ введите цифрами) Вопрос id:558788 Var p, q : ^integer; r : ^char; Допустимые операции в программе – это ?) if q <> p then p^ := 0 ?) if q = p then write (p) ?) p := q; ?) p := nil; ?) p^ := nil; ?) if q <> nil then r^ := nil; Вопрос id:558789 Var a, b : ^real; Допустимые операции в программе – это ?) a^ := a^ + sqr(b^); ?) a := b^; ?) a^ := b; ?) b := (a+7)/2; ?) a := b; ?) a^ :=b^; Вопрос id:558790 В последовательности операторов S := 5; while S > 0.001 do S := S+1; тело цикла будет выполняться ?) 10 раз ?) бесконечное число раз ?) один раз ?) не выполнится ни разу Вопрос id:558791 В программе имеется следующее описание: 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 if i = j then mas[i, j]:=1 else mas[i, j]:= 2; будет сформирована матрица: ?)  ?)  ?)  ?)  Вопрос id:558792 В программе имеется следующее описание: const n = 5; type mas: array [1..n,1..n] of integer; var A,B,C: mas; i, j: integer. После выполнения операторов: for i:= 1 to n do for j:= 1 to n do C[i,j]:=A[i,j]+B[i,j]; write (C[i,j]); будет напечатано ?) сумма элементов каждой строки матриц A и B ?) общая сумма элементов матриц A и B ?) все элементы матрицы С ?) элемент матрицы С[5,5] Вопрос id:558793 В программе имеется следующее описание: const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer. После выполнения операторов: for i:= 1 to n do begin c:= mas[i, 1]; mas[i, 1]:= mas[i, n]; mas[i, n]:= c; end; ?) первый и последний элементы получат значение переменной с ?) все элементы матрицы получат значение переменной с ?) элементы первого и пятого столбцов матрицы поменяются местами ?) элементы первой и пятой строки матрицы поменяются местами Вопрос id:558794 В программе имеется следующее описание: const n = 5; var mas: array [1..n,1..n] of integer; i, j, с: integer. После выполнения операторов: for i:= 1 to n do begin c:= mas[1, j]; mas[1, j]:= mas[2, j]; mas[2, j]:= c; end; ?) элементы первой и второй строки матрицы поменяются местами ?) элементы первой и второй строки получат значение переменной с ?) элементы первого и второго столбца матрицы поменяются местами ?) все элементы матрицы получат значение переменной с Вопрос id:558795 В программе имеется следующее описание: const n = 5; var mas: array [1..n] of integer; i, A : integer. После выполнения операторов: A:= mas[1]; for i:= 1 to n do if A > mas[i] then A:= mas[i]; будет найден ?) минимальный элемент массива ?) индекс элемента, меньшего заданного числа А ?) максимальный элемент массива ?) элементы, меньшие заданного числа А Вопрос id:558796 В программе имеется следующее описание: const n = 5; var mas: array [1..n] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to n do if mas[i] > A then begin writeln (i); break; end будет ?) напечатан первый элемент массива, значение которого больше А ?) напечатаны все элементы массива, большие заданного числа А ?) напечатаны индексы всех элементов массива, значения которых больше А ?) напечатан индекс первого элемента массива, значение которого больше А Вопрос id:558797 В программе имеется следующее описание: const n = 5; var mas: array [1..n] of integer; i, A : integer. После выполнения операторов: read(A); for i:= 1 to n do if mas[i] > A then writeln (i); будет (ут) ?) напечатаны индексы элементов массива, значения которых больше А ?) напечатаны элементы массива, большие заданного числа А ?) найден максимальный элемент массива ?) напечатано количество элементов массива, больших заданного числа А Вопрос id:558800 В результате выполнения программы: VAR ST: STRING; A, B: CHAR; L, i : INTEGER; BEGIN ST:=’ Ура. Я сдал экзамен. ‘; L:= LENGTH (ST); A:=’.’; B:=’!’; FOR i := 1 TO L-1 DO IF ST[i] = A THEN WRITE(B) ELSE WRITE(ST[i]) END. будет выведено на экран ?) Ура! Я сдал экзамен. ?) Ура! Я сдал экзамен! ?) Ура. Я сдал экзамен. ?) сообщение об ошибке Вопрос id:558801 В результате выполнения программы: 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. будет выведено на экран ?) 0 ?) 2 ?) 6 ?) 3 Вопрос id:558803 Верно записано арифметическое выражение на Турбо Паскале
?) (sqrt(exp(x))+2*sin(x))/(3*x+2) ?) (sqrt(exp(x))+2sin(x))/(3x+2) ?) (sqrt(sqr(x))+2*sin(x))/(3*x+2) ?) (sqrt(e^x)+2*sin(x))/(3*x+2) Вопрос id:558804 Верно записано арифметическое выражение
?) X+Y/(X*Y) ?) (X+Y)/(X*Y) ?) X+Y/X*Y ?) (X+Y)/X*Y Вопрос id:558805 Есть описание: Type ObjPos = Object Line : Word; Col : Word; Procedure Init (L, C : Word); End; Var A , B : ObjPos; Экземпляры объекта ObjPos ?) A ?) B ?) Col ?) Line Вопрос id:558806 Есть описание: Type ObjPos = Object Line : Word; Col : Word; Procedure Init (L, C : Word); End; Var A , B : ObjPos; Поля объекта A – это ?) Init ?) Line ?) Col ?) L ?) C Вопрос id:558807 Есть описание: Type ObjPos = Object Line : Word; Col : Word; Procedure Init (L, C : Word); End; Var A , B : ObjPos; Метод объекта A – это ?) Line ?) Col ?) Procedure Init (L, C : Word); ?) B Вопрос id:558808 Задан массив А целых чисел, содержащий 10 элементов В результате выполнения фрагмента программы for i:= 1 to 10 do readln (A[i]); writeln(A[i]) будет выполнено ?) введены все элементы массива и напечатан последний элемент ?) введен и напечатан десятый элемент массива ?) введены и напечатаны все элементы массива ?) введены все элементы массива и напечатан первый элемент Вопрос id:558809 Задан массив целых чисел А=(2, 0, 5, 0, 4). После выполнения операторов: k:=0; for i:= 1 to 5 do if A[i]< >0 then k:= k * A[i]; значение переменной k равно ___ ?) 10 ?) 20 ?) 0 ?) 40 Вопрос id:558810 Задан массив целых чисел А=(8, 1, 0, 3, 7, 0, 4). После выполнения операторов: k:=0; for i:= 1 to 7 do if A[i] = 0 then begin k:= i; break; end значение переменной k равно ___ ?) 6 ?) 1 ?) 0 ?) 3 Вопрос id:558811 Задан массив целых чисел А=(8, 1, 0, 3, 7, 0, 4). После выполнения операторов: k:=0; for i:= 1 to 7 do if A[i]>5 then k:= k + 1; значение переменной k равно ___ (ответ введите цифрами) Вопрос id:558812 Задан массив целых чисел А=(8, 1, 0, 3, 7, 0, 4). После выполнения операторов: k:=0; for i:= 1 to 7 do if A[i]>5 then k:= k + A[i]; значение переменной k равно ___ (ответ введите цифрами) Вопрос id:558813 Задан массив целых чисел А=(8, 1, 0, 3, 7, 0, 4). После выполнения операторов: k:=0; for i:= 1 to 7 do if A[i]>5 then k:= k + i; значение переменной k равно ___ (ответ введите цифрами) Вопрос id:558814 Значение, которое получит переменная b после выполнения фрагмента программы (при а = 10) – это case a of 1 : b: = 1; 2 : b: = a * 5; 3 : b: = a + 2 else b : = 0; ?) b=50 ?) b=0 ?) b=12 ?) b=1 Вопрос id:558815 Значение, которое получит переменная S после выполнения фрагмента программы, – это a: =2; S: =0; while S < 3 do S: = S + a; S: = S + 10 ?) 10 ?) 16 ?) 12 ?) 14 Вопрос id:558816 Имеется матрица mas= После выполнения фрагмента программы for i:= 1 to 3 do begin k:=0; for j:= 1 to 3 do if mas[i,j]>2 then k:= k+1; write(k,’ ‘); end; будет выведено на экран ?) 18 ?) 5 ?) 3 9 6 ?) 1 2 2 Вопрос id:558817 Имеется матрица mas= После выполнения фрагмента программы for i:= 1 to 3 do begin s:=0; for j:= 1 to 3 do if mas[i,j]>2 then s:= s+mas[i,j]; write(s,’ ‘); end; будет выведено на экран ?) 3 9 6 ?) 18 ?) 1 2 2 ?) 5 Вопрос id:558818 Имеется описание: TYPE Anketa = RECORD Fio, Adress : STRING[50]; Group : STRING[6]; Kurs : 1..5; END; VAR : Student : Anketa; Правильные операторы присваивания: ?) Kurs.Student := 3; ?) Fio.Student := ’Кузнецов И.В.’; ?) Anketa. Kurs :=4; ?) Anketa. Group := ‘ОИ-306’; ?) Student.Kurs := 2; ?) Student.Fio := ’Иванов П.А.’ Вопрос id:558819 Имеется описание: TYPE Anketa = RECORD Fio, Adress : STRING[50]; Group : STRING[6]; Kurs : 1..5; END; VAR : Student : Anketa; В результате выполнения оператора : Student.Kurs := ‘5’ возникнет ошибка, так как ?) смешаны типы переменных ?) неправильно записано имя компоненты записи ?) неверно определен записной тип ?) к компоненте записи нельзя обращаться в операторе присваивания Вопрос id:558820 Имеется описание: TYPE Anketa = RECORD Fio, Adress : STRING[50]; Group : STRING[6]; Kurs : 1..5; END; VAR : Student : Anketa Правильные операторы вывода – это ?) WRITELN(Fio); WRITELN(Group); ?) WRITELN(Student.Fio); WRITELN(Student.Group); ?) WITH Student DO BEGIN WRITELN(Fio); WRITELN(Group) END; ?) WRITELN(Anketa.Fio); WRITELN(Anketa.Group); Вопрос id:558821 Имеется описание: TYPE List = RECORD n : INTEGER; fio, adres : STRING[50]; group : STRING[6]; END; VAR Anketa : List; Переменная Anketa имеет ___ поля (количество полей введите цифрами) Вопрос id:558822 Имеется фрагмент программы: a^:=10; b^:=20; a := b; if a^ =b^ then Writeln(a^) else Writeln (5); В результате выполнения данного фрагмента на экран будут выведен ?) числа 5 ?) сообщение об ошибке ?) число 20 ?) число 10 Вопрос id:558823 Какое значение получит переменная Z после выполнения операции присваивания Z:=A div X , при A=7, X=3 ?) 2 ?) 0 ?) 3 ?) 1 |
