Новые тесты прямо на почту!

Подпишись на обновления сайта и получай новые тесты на свою почту:

Реклама

3. Тесты с ответами по информатике и программированию. Языки и методы программирования.

Вопрос №1

Логическое выражение

            (N Mod 10 Mod 2) Or (N Div 10 Mod 10 Mod 2 = 0) Or (N Div 100 Mod 2 = 0)

должно принимать значение TRUE тогда и только тогда, когда истинно высказывание

в трёхзначном натуральном числе все цифры чётные;
в трёхзначном натуральном числе одна чётная цифра;
в трёхзначном натуральном числе две чётных цифры;
в трёхзначном натуральном числе хотя бы одна чётная цифра;    +
в трёхзначном натуральном числе нет чётных цифр

 

 

 

Вопрос №2

Ошибку «Structure too large» (структура превышает максимально допустимый объём статической памяти) вызовет описание

Type Vector = Array[Byte] Of Integer; Var C : Array[1..10] Of Vector;
Var T : File Of String;
Type A = Record S : String; A, B, C : Array[10..20] Of Real End;
               Var M : Array[1..5, 1..8] Of A;

 

Var K : Array [Byte, Byte] Of String[6];    +
Var S : Array[–10000..10000] Of Sring[2]

 

 

 

Вопрос №3

К процедурам для работы с динамическими переменными не относится

Mark;
New
Release;
Seek;    +
Dispose

 

 

 

Вопрос №4

Имеется описание

Type A = Array[0..100] Of Real; B = ^A; Var M : Array[1..5] Of B;

Для хранения массива M необходим объём памяти (байт)

606;
4
20    +
12120
6

 

 

 

Вопрос №5

Фрагмент программы

            K := 0;
            While Not Eof(F) Do
            Begin ReadLn(F, S); I := 1;
                        While I <= Length(S) Do
                        Begin If S[I] In ['А'..'Я', 'а'..'п', 'р'..'я']
                                     Then Begin K := K + 1;
                                                      Delete(S, I, 1); I := I – 1
                                          End;
                                     I := I + 1
                        End
            End;

выполняет следующее действие:

удаляет из текстового файла F все русские буквы;
определяет в текстовом файле количество символов, являющихся русскими буквами;    +
определяет в текстовом файле количество символов, не являющихся русскими буквами;
определяет в текстовом файле количество символов;
удаляет из текстового файла F все символы, не являющиеся русскими буквами

 

 

 

Вопрос №6

В фрагменте программы (здесь Var F : File Of Integer; I, K, Vsp : Integer;)

            Reset(F); K := FileSize(F) – 1;
            For I := 0 To K Do
            Begin Seek(F, I); Read(F, Vsp); Seek(F, FileSize(F)); Write(F, Vsp) End;

выполняется

сортировка файла;

сортировка файла;
изменение порядка следования элементов на обратный;
дописывание в конец исходного файла полную его копию с сохранением порядка следования элементов;    +
дописывание в конец исходного файла полную его копию с изменением порядка следования элементов на противоположный;
не выполняется никаких действий по изменению файла.

 

 

 

Вопрос №7

Имеется описание

            Type Dn = (pn, vt, sr, cht, ptn, sb, vs); Mn = Set Of Dn; Var V : Mn;

и фрагмент программы

            V := [pn..ptn] * [sr, ptn..vs] – [sb];

После исполнения этого фрагмента переменная V имеет значение

[pn..vs];
[sr, ptn];    +
[sb];
[];
[pn..ptn]

 

 

 

Вопрос №8

Алгоритм какого типа изображен на блок-схеме?

циклический;
разветвляющийся;
вспомогательный;
 линейный;    +
комбинация развилки и цикла.

 

 

 

Вопрос №9

. После исполнения фрагмента программы, изображенного на блок-схеме,
при A = 5, B = 4 значение X будет равно

20    +
9
5
4
1

 

 

 

Вопрос №10

В приведенном фрагменте программы (N типа LongInt, N > 0)

            P := 1;
            While P <= N Do
            Begin
                        Left := N Div (P * 10) * (P * 10);
                        Right := N Mod P;
                        K := ((N Mod (P * 10) Div P + 1) Mod 10) * P;
                        N := Left + K + Right; P := P * 10
            End;

натуральное число N изменяется по следующему правилу

не изменяется;
в каждый разряд прибавляется 1;
из каждого разряда вычитается 1;
в каждый разряд прибавляется 1, если значение в разряде — не девять, иначе заменяется на нуль;    +
каждая девятка в десятичной записи числа заменяется на нуль

 

 

 

Вопрос №11

Цикл с предусловием выполняется так:

выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения выполнения цикла;
изменяется параметр цикла, проверяется условие продолжения выполнения цикла, выполняется тело цикла;
проверяется условие продолжения выполнения цикла, выполняется тело цикла;    +
тело цикла выполняется N раз (N — натуральное);
определяется, сколько раз должен быть выполнен цикл, и далее цикл с предусловием сводится к циклу с параметром.

 

 

 

Вопрос №12

В текстовом файле каждая строка заканчивается

числами 10 и 13;
символами с кодами 10 и 13;    +
символом с кодом 13;
числом 0;
символом с кодом 10

 

 

 

Вопрос №13

Процедуры ReadLn и WriteLn можно использовать при работе с

типизированными файлами;
нетипизированными файлами;
типизированными и нетипизированными файлами;
текстовыми файлами;    +
любыми файлами

 

 

 

Вопрос №14

Значение выражения

                        Ord(x > y) + Ord(Ord(z = 'F'))

при x = 7, y = 0, z = ‘F’ равно

TRUE;
FALSE;
0
1
2    +

 

 

 

Вопрос №15

Идентификатор в Turbo Pascal не может начинаться с

латинской буквы;
заглавной латинской буквы;
цифры;    +
знака подчёркивания;
латинской буквы, а затем знака подчёркивания

 

 

 

Вопрос №16

В приведенном фрагменте программы (First — ссылка на первый элемент списка; список объявлен следующим образом: Type SS = ^List; List = Record A : LongInt; Next : SS End;)

            P := First; S := 0; While Not (P = Nil) Do Begin S := S + 1; P := P^.Next End;

определяется

первый элемент списка;
сумма элементов списка;
сумма первого и последнего элементов списка;
количество элементов списка;    +
количество звеньев списка, где указатель на следующее звено не Nil.

 

 

 

Вопрос №17

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

            Var C : Integer;
                        Procedure R1(Var A : Integer; C : Boolean);
                                     Procedure R2;
                                     Var C : String;
                                     Begin A := 1 End;
                        Begin C := True; R2 End;
            Begin C := 100; R1(C, False); WriteLn(C) End.

будет напечатано значение переменной C

 

True;
1    +
100
неизвестно что, поскольку значение переменной C не определено;
False

 

 

 

Вопрос №18

Цикл в фрагменте программы

P := 4; Repeat P := P * 0.1 Until P < 0.0001;

будет исполнен

0 раз;
1 раз
3 раза
4 раз    +
бесконечное число раз.

 

 

 

Вопрос №19

Кодируется шестнадцатибитовое целое со знаком (тип Integer). 11111111111100002 — это код числа

-15
15
16
-16    +
-30000

 

 

 

Вопрос №20

Свойством алгоритма является

результативность;    +
цикличность;
возможность изменения последовательности выполнения команд;
возможность выполнения алгоритма в обратном порядке;
простота при записи на языках программирования

 

 

Вы так же можете ознакомиться с другими материалами по похожим дисциплинам:

Удачи и успехов на экзаменах!
Надеюсь Вы нашли для себя что-то полезное? Поделитесь с друзьями:
Добавляйтесь в друзья, думаю будет о чем пообщаться:

Оставить комментарий

Дисциплины
Календарь
Февраль 2014
Пн Вт Ср Чт Пт Сб Вс
« Авг    
  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