Вход | Регистрация

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

Вход в систему

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

Программирование на языке высокого уровня

Страница:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Вопрос id:558771

Заполните пропуск в 13-й строке второй задачи идентификатор. Строчные и заглавные символы в написании идентификатора должны соответствовать его написанию в программе.

Вопрос id:558772

Заполните пропуск в первом слагаемом в 15-ой строке первой задачи. Введите символы без пробелов. Используйте строчные латинские буквы.

Вопрос id:558773

Заполните пропуск во втором слагаемом в 15-ой строке первой задачи. Строчные и заглавные символы в написании идентификатора должны соответствовать написанию в программе.

Вопрос id:558774

Правильным высказыванием является

?) При описании функции после имени в скобках указываются глобальные параметры, при вызове функции – локальные.

?) При описании функции после имени в скобках указываются фактические параметры, при вызове функции – формальные.

?) При описании функции после имени в скобках указываются формальные параметры, при вызове функции – фактические.

?) При описании функции после имени в скобках указываются локальные параметры, при вызове функции – глобальные.

Вопрос id:558775

Стандартными функциями Турбо Паскаля являются

?) Read(a,b)

?) a: = b

?) Cos(x)

?) Pos(s1,St)

Вопрос id:558776

Заголовок процедуры имеет вид: PROCEDURE PRIM (A,B:Real; Var X,Y:Real);

Правильными вызовами процедуры являются

?) PRIM(A1,A2,X0,Y0: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)

Вопрос 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 (8,D)

?) PRIM (N:INTEGER; A:)

?) Y:= PRIM (N,D)

?) Z:= PRIM (10,D: MAS)

?) PRIM (N,A)

Вопрос id:558778

Процедура Prim должна вычислить: X:= A + B; Y:= A - B; где, A – тип Real, B – тип 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:real;B:integer;Var X,Y:integer)

?) Procedure Prim (A,B; X,Y) : real

Вопрос id:558779

Функцмя в программе имеет заголовок function Sum (X,Y:real): real;

Правильный вызов функции – это

?) Sum (A,B:real)

?) Z:= Sum (4.5,3.15)

?) Sum (A,B) :real

?) Sum (1.24,5.6):real

?) Sum (A,B)

?) Z:= Sum (A,B)

Вопрос id:558780

a:=4; b:=9; x:=sqr(a); y:=sqrt(b)

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

?) x=2

?) x=16

?) y=3

?) y=81

Вопрос 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 будет

?) 2 3

?) 1 4

?) 2 4

?) 1 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;

?) на экран будет выведено:13 10

?) в файл F2 будет записано: А

?) в файл 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

?) p^ := nil;

?) p := nil;

?) if q <> nil then r^ := nil;

?) if q = p then write (p)

?) p := q;

Вопрос id:558789

Var a, b : ^real;

Допустимые операции в программе – это

?) a^ := b;

?) a^ := a^ + sqr(b^);

?) a^ :=b^;

?) a := b^;

?) a := b;

?) b := (a+7)/2;

Вопрос 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.

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

?) 6

?) 0

?) 3

?) 2

Вопрос 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

?) Line

?) B

?) A

?) Col

Вопрос id:558806

Есть описание:

Type ObjPos = Object

Line : Word;

Col : Word;

Procedure Init (L, C : Word);

End;

Var A , B : ObjPos;

Поля объекта A – это

?) L

?) Line

?) Init

?) Col

?) C

Вопрос id:558807

Есть описание:

Type ObjPos = Object

Line : Word;

Col : Word;

Procedure Init (L, C : Word);

End;

Var A , B : ObjPos;

Метод объекта A – это

?) Line

?) Procedure Init (L, C : Word);

?) B

?) Col

Вопрос 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

?) 40

?) 0

Вопрос 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 равно ___

?) 1

?) 3

?) 0

?) 6

Вопрос 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=0

?) b=50

?) b=1

?) b=12

Вопрос id:558815

Значение, которое получит переменная S после выполнения фрагмента программы, – это

a: =2; S: =0;

while S < 3 do

S: = S + a;

S: = S + 10

?) 12

?) 16

?) 14

?) 10

Вопрос 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

?) 3 9 6

?) 5

?) 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;

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

?) 1 2 2

?) 18

?) 5

?) 3 9 6

Вопрос id:558818

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

Fio, Adress : STRING[50];

Group : STRING[6];

Kurs : 1..5;

END;

VAR : Student : Anketa;

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

?) Anketa. Group := ‘ОИ-306’;

?) Kurs.Student := 3;

?) Anketa. Kurs :=4;

?) Student.Fio := ’Иванов П.А.’

?) Student.Kurs := 2;

?) Fio.Student := ’Кузнецов И.В.’;

Вопрос 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

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

?) WITH Student DO BEGIN WRITELN(Fio); WRITELN(Group) END;

?) WRITELN(Fio); WRITELN(Group);

?) WRITELN(Student.Fio); WRITELN(Student.Group);

?) 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

?) число 10

?) число 20

?) сообщение об ошибке

Вопрос id:558823

Какое значение получит переменная Z после выполнения операции присваивания

Z:=A div X , при A=7, X=3

?) 1

?) 0

?) 2

?) 3

Страница:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47