Введение в программирование на Delphi

Упражнение 1:

Номер 1

Какая разница между обработчиками try – finally – end и try– except - end ?

Ответ:

(1) блок finally – end выполняется, если произошла ошибка, а блок except – end будет выполнен в любом случае

(2) блок except – end выполняется, если произошла ошибка, а блок finally – end будет выполнен в любом случае

(3) оба обработчика выполняют блок, предшествующий end в случае возникновения ошибки, и не выполняют, если ошибки не было

(4) оба обработчика выполняют блок, предшествующий end в любом случае

Номер 2

Дайте комментарий приведенному ниже коду:
try
  блок операторов;
     finally
        оператор;
end;

Ответ:

(1) если в блоке операторов try произойдет ошибка, будет выполнен оператор в блоке finally, иначе он не будет выполнен

(2) оператор в блоке finally будет выполнен в любом случае, вне зависимости от того произойдет ли ошибка в блоке операторов try

(3) если в блоке операторов try не произойдет ошибка, будет выполнен оператор в блоке finally, в случае возникновения ошибки он не будет выполнен

Номер 3

Дайте комментарий приведенному ниже коду:
        
        try
	   блок операторов;
	except
	   оператор;
	end;

Ответ:

(1) если в блоке операторов try произойдет ошибка, будет выполнен оператор в блоке except, иначе он не будет выполнен

(2) оператор в блоке except будет выполнен в любом случае, вне зависимости от того произойдет ли ошибка в блоке операторов try

(3) если в блоке операторов try не произойдет ошибка, будет выполнен оператор в блоке except, в случае возникновения ошибки он не будет выполнен

Упражнение 2:

Номер 1

Какое свойство отвечает за показ процентного отношения у компонентов ProgressBar и Gauge?

Ответ:

(1) Progress

(2) Position

(3) у ProgressBar – Progress, а у Gauge – Position

(4) у Gauge – Progress, а у ProgressBar – Position

Номер 2

На форме имеется компоненты ProgressBar и Gauge. Прокомментируйте следующий код:
        
ProgressBar1.Progress := 20;
Gauge1.Position := 50;

Ответ:

(1) ошибка в обеих строках

(2) ошибка в первой строке, компонент Gauge покажет 50%

(3) ProgressBar покажет 20%, вторая строка вызовет ошибку

(4) ProgressBar покажет 20%, а Gauge 50%. Ошибки не будет

Номер 3

На форме имеется компоненты ProgressBar и Gauge. Прокомментируйте следующий код:
ProgressBar1.Position := 20;
Gauge1.Progress := 50;

Ответ:

(1) ошибка в обеих строках

(2) ошибка в первой строке, компонент Gauge покажет 50%

(3) ProgressBar покажет 20%, вторая строка вызовет ошибку

(4) ProgressBar покажет 20%, а Gauge 50%. Ошибки не будет

Упражнение 3:

Номер 1

Выберите директиву компилятору, отключающую обработку ошибок ввода-вывода:

Ответ:

(1) {$I/O+}

(2) {$I/O-}

(3) {$I+}

(4) {$I-}

(5) {$O+}

(6) {$O-}

Номер 2

Выберите директиву компилятору, включающую обработку ошибок ввода-вывода:

Ответ:

(1) {$I/O+}

(2) {$I/O-}

(3) {$I+}

(4) {$I-}

(5) {$O+}

(6) {$O-}

Номер 3

Как узнать, не было ли ошибки ввода – вывода?

Ответ:

(1) если ошибки не было, переменная IOResult будет больше нуля

(2) если ошибки не было, переменная IOResult будет равна нулю

(3) если ошибки не было, переменная IOResult будет меньше нуля

Упражнение 4:

Номер 1

Какое свойство отвечает за вид указателя мыши на экране?

Ответ:

(1) Form.Cursor

(2) Screen.Cursor

(3) Application.Cursor

(4) Form.Mouse

(5) Screen.Mouse

(6) Application.Mouse

Номер 2

Как сделать указатель мыши в виде песочных часов?

Ответ:

(1) Cursor.Screen := crHourGlass;

(2) Screen.Cursor := crHourGlass;

(3) Form.Cursor := crClockGlass;

(4) Screen.Cursor := crClockGlass;

Номер 3

Как вернуть указателю мыши стандартный вид?

Ответ:

(1) Form.Cursor := crStandard;

(2) Screen.Cursor := crStandard;

(3) Form.Cursor := crDefault;

(4) Screen.Cursor := crDefault;

Упражнение 5:

Номер 1

Переменная all содержит общее количество байт в файле, а переменная d – количество скопированных байт. Прокомментируйте следующий код:
        
Gauge1.Progress := 100 * d / all;

Ответ:

(1) код верный

(2) код неверный – процент нужно высчитывать иначе

(3) код неверный – результат процента может оказаться вещественным числом, его нужно округлить до целого

(4) код неверный – у Gauge за процентное отношение отвечает свойство Position

Номер 2

Переменная all содержит общее количество байт в файле, а переменная d – количество скопированных байт. Прокомментируйте следующий код:
        
ProgressBar1.Position := 100 * d / all;

Ответ:

(1) код неверный – процент нужно высчитывать иначе

(2) код неверный – результат процента может оказаться вещественным числом, его нужно округлить до целого

(3) код неверный – у ProgressBar за процентное отношение отвечает свойство Progress

(4) код верный

Номер 3

Переменная all содержит общее количество байт в файле, а переменная d – количество скопированных байт. Прокомментируйте следующий код:
        
Gauge1.Progress := Round(100 * d / all);

Ответ:

(1) код верный

(2) код неверный – процент нужно высчитывать иначе

(3) код неверный – у Gauge за процентное отношение отвечает свойство Position

(4) код неверный – свойство Progress имеет вещественный тип, ему нельзя присваивать целое число

Упражнение 6:

Номер 1

Будет ли скопированный программно файл точной копией оригинала?

Ответ:

(1) да, получится абсолютно точная копия

(2) нет, количество байт будет различным

(3) нет, дата и время создания файла будет не совпадать

Номер 2

Для чего служит функция FileGetDate()?

Ответ:

(1) функция добавляет в конец указанного файла текущие дату и время

(2) функция добавляет в конец указанного файла дату и время его создания

(3) функция возвращает дату и время создания указанного в параметре файла

(4) функция устанавливает указанному в параметре файлу, указанную в параметре дату и время создания

Номер 3

Для чего служит функция FileSetDate()?

Ответ:

(1) функция добавляет в конец указанного файла текущие дату и время

(2) функция добавляет в конец указанного файла дату и время его создания

(3) функция возвращает дату и время создания указанного в параметре файла

(4) функция устанавливает указанному в параметре файлу, указанную в параметре дату и время создания

Введение в программирование на Delphi - тест 26