14. Постройте одномерный целочисленный массив в, который будет получен в результате выполнения фрагмента программы

i:=1;

while i<=5 do

begin

B[i]:=sqrt(A[i]);

i:=i+1;

end;

если массив А содержит следующие элементы:

Индексы	1	2	3	4	5
Элементы	4	9	25	16	1

Ответ:

Элементы	4	9	3	16	1
Значения	2	3	5	4	1

15. Вычислите чему будет равна функция z при выполнении фрагмента программы:

If (x>-2) and (x<2) then

begin

z:=sqrt(x)+1;

end;

if (x>3) and (x<5) then

begin

z:=sqr(x)*2;

end;

if (x>6) and (x<8) then

begin

z:=x div 2; end

else writeln(‘Нет решений’);

Ответ:

№	Значение x	Результат z
1	1	2
2	4	32
3	7	3
4	-5	Нет решений

16. Опишите структуру библиотечного модуля.

Ответ: Unit <имя библиотечного модуля>;

  Interface <интерфейсная часть>

< заголовок процедуры/функции 1 с указанием параметров>

< заголовок процедуры/функции 2 с указанием параметров>

….

< заголовок процедуры/функции n с указанием параметров>

Implementation <исполняемая часть> {Выполнение}

Uses <имя подключаемого модуля>,….;

<заголовок без параметров и тело процедуры/функции 1>

<заголовок без параметров и тело процедуры/функции 2>

…

<заголовок без параметров и тело процедуры/функции n>

begin {секция инициализации}

<оператор>;

…

<оператор>;

end.

17. Перечислите основные составляющие среды программирования Delphi.

Ответ: 1. Настраиваемая среда.

2. Интелектуальный редактор.

3. Графический отладчик

4. Инспектор объектов

5. Менеджер объектов

6. Навигатор объектов

7. Дизайнер меню.

8. Эксперты

а)эксперт форм – работает с базой данных

б)эксперт стилей и шаблонов приложения

в)эксперт шаблонов форм.

9. Компоненты доступа к бд.

10. Разработка приложений бд.

11. Библиотека объектных визуальных компонентов.

18. Найдите значение среднего значения (m) после выполнения фрагмента программы:

repeat

s:=s+a;

n:=n+1;

until a<=0;

n:=n-1;

m:=s/n;

Элементы	a1	a2	a3	a4	a5	x6
Значения	2	3	5	4	6	-3

m = ?

Ответ: m=4.

19. Найдите значение переменной Fact после выполнения фрагмента программы:

Function fact(i:integer):longinteger;

begin

if i=0 then fact:=1;

else fact:=i*fact(i-1);

end;

Чему будет равна переменная Fact при i=4?

Ответ: fact=24

20. Найдите максимальное значение, которое будет получено в результате выполнения фрагмента программы:

max:=0;

repeat

if a>max then

max:=a; until a<=0;

если последовательность содержит следующие элементы:

Элементы	1	2	3	4	5	6
Значения	2	50	25	-60	75	26

Max=?

Ответ: max=50.