Then ShowMessage('то же True')

else ShowMessage('то же False');

end;

В результате, что будет выведено на экран?

1. small <> large

small <> large

То же True

2. small = large

small = large

То же True

3. small <> large

small <> large

То же False

Ошибка

Пустой экран

18. Дан фрагмент кода программы.

Var float, bigFloat: single;

int: Integer;

varVar: Variant;

Begin

float:= -1.5;

bigFloat:= -4.56E100;

int:= -7;

ShowMessage('Abs(bigFloat) = '+FloatToStr(Abs(bigFloat)));

end;

В результате, что будет выведено на экран?

1. Abs(float) = 1.5

2. Abs(bigFloat) = INF

3. Abs(int) = 7

4. Abs(varVar) = 98

5. 2

 

19. Дан фрагмент кода программы.

Function GetSum(a, b: Integer): Integer;

Begin

Result:= a - b;

end;

procedure TForm1.FormCreate(Sender: TObject);

Var

total:Integer;

Begin

total:= GetSum(2,1);

ShowMessageFmt('%d - %d = %d',[2,1,total]);

total:= GetSum(62,3);

ShowMessageFmt('%d - %d = %d',[62,3,total]);

end;

В результате, что будет выведено на экран?

1. 2 + 1 = 3

62 + 3 = 506

2. 1 2

62 44

3. 1 44

4. 2 - 1 = 1

62 - 44 = 18

Пустой экран

 

20. Дан фрагмент кода программы.

var msg: string;

const MSG_TEXT = 'Hello';

const MSG_TEXT = 'Hello World ';

procedure Say;

Begin

msg:= MSG_TEXT;

ShowMessage(msg);

end;

procedure TForm1.FormCreate(Sender: TObject);

Begin

Say;

end;

В результате, что будет выведено на экран?

World

Пустой экран

Hello World

Ошибка

Hello

 

Учреждение образования

”Белорусская государственная академия связи“

 

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

«Основы алгоритмизации и программирования»

Специальность 1-45 01 02 Инфокоммуникационные системы

Курс IV Группа___________

ФИО студента____________________________________________________________

Тест № 14.

 

Выберите в каждом вопросе один правильный ответ из пяти предложенных вариантов.

 

1. Какое из понятий характеризует высокоуровневые атрибуты компонентов класса?

Инкапсуляция

Полиморфизм

Наследование

Свойства

Методы

 

2. Какое ключевое слово Delphi начинает операторный блок?

LABEL

INTERFACE

IMPLEMENTATION

VAR

BEGIN

 

3. Какое ключевое слово Delphi позволяет объекту освободить память или другие используемые ресурсы, которые он использовал?

Property

Virtual

Constructor

Destructor

Void

4. Какая директива обозначает защищенный раздел объявлений определения класса?

Public

Published

Protected

Private

Struct

5. Какая процедура открывает текстовый или двоичный файл для записи?

AssignFile

Reset

Rewrite

Append

Implementation

6. Выберите операцию/функцию, которая не используется для работы с динамической памятью?

1) @

2) +

3) ^

4) *

SetLength

7. Какая из команд описывает файловую переменную текстового файла?

1) F: File;

2) F: TextFile;

3) F: File of real;

4) F: FileText;

File

 

8. Какая процедура получает указанное число байтов памяти?

1) New(var P: Pointer);

2) Dispose(var P: Pointer);

3) GetMem(var P: Pointer; Size: Word);

4) FreeMem(var P: Pointer; Size: Word);

Нет правильного ответа

9. Какая из функций возвращает true, если позиция курсора находится в конце файла?

EOF

RESET

EOLN

SEEK

NEW

10. Какой из классов Delphi работает с файлами?

TStream

TList

TCanvas

TPoint

TObject

11. Спецификация структуры данных, записанная в компьютерном файле – это

Очередь

Стек

Список

Файл

Дерево

12. В какой области памяти хранятся локальные переменные и параметры процедуры?

1) Stack
2) Heap
3) область произвольного доступа

Во всех областях

Нигде

13. Какие типы позволяют трактовать процедуры и функции как значения, которые можно присваивать переменным или передавать в качестве параметров другим подпрограммам?

Простые типы данных

Строковые типы данных

Структурные типы данных

Указательные типы данных

Процедурные типы данных

14. Дан фрагмент кода программы.

Var

int: Integer;

Begin

int:= 10 Mod 5;

ShowMessage('10 mod 5 = '+IntToStr(int));

end;

В результате, что будет выведено на экран?

1. 10 mod 5 = 0

2. 10 mod 5 = 1

3. 10 mod 5 = 5

Ошибка

Пустой экран

15. Дан фрагмент кода программы.

Var myChars: array[1..2] of char;

myBytes: array[1..2] of Byte;

i: Integer;

Begin

for i:= 1 to 2 do

Begin

myChars[i]:= Chr(i+64);

myBytes[i]:= i+64;

end;

for i:= 1 to 2 do

Begin

ShowMessage('myBytes['+IntToStr(i)+'] = '+IntToStr(myBytes[i]));

end;

end;

В результате, что будет выведено на экран?

1. myChars[1] = A

myBytes[1] = 65

myChars[2] = B

myBytes [2] = 66

2. myBytes[1] = 65

myBytes [2] = 66

3. myChars[1] = A

myChars[2] = B

Ошибка

Пустой экран

16. Дан фрагмент кода программы.

Var

c: char;

Begin

For c:= 'A' to 'E' do

ShowMessage('c = '+c);

end;

В результате, что будет выведено на экран?

1. c= A

c= B

c= C

c= D

c= E

2. c = E

c = D

c = C

c = B

c = A

3. c = F

Ошибка

Пустой экран

17. Дан фрагмент кода программы.

var num, sqrNum: Integer;

Begin

num:= 1;

sqrNum:= num * num;

Repeat

ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));

Inc(num);

sqrNum:= num * num;

until sqrNum > 100;

end;

В результате, что будет выведено на экран?

Ошибка

2. Квадрат 10 = 100

3. Квадрат 1 = 1

4. Квадрат 1 = 1

Квадрат 2 = 4

Квадрат 3 = 9

Квадрат 4 = 16

Квадрат 5 = 25

Квадрат 6 = 36

Квадрат 7 = 49

Квадрат 8 = 64

Квадрат 9 = 81

Квадрат 10 = 100

Пустой экран

18. Дан фрагмент кода программы.

Var float, bigFloat: single;

int: Integer;

varVar: Variant;

Begin

float:= -1.5;

int:= -7;

varVar:= '-98';

ShowMessage('Abs(float) = '+FloatToStr(Abs(float))); end;