Практична частина

8

Використовуючи переліковний тип даних, що визначає дні тижня, розв‘язати завдання: дано два значення день тижня з‘ясувати чи це робочі дні.

9

Перший член послідовності {a_k} рівний π/6, а кожен наступний, починаючи з другого обчислюється за формулою:a_k=tg(a_k-1)+ctg(a_k-1). Дано натуральне n, знайти a_n.

10

Дано текстовий файл T, що зберігає послідовність дійсних чисел по одному у кожному рядку. Знайти суму чисел.

1

Визначити результат операції присвоєння:

var k:byte;

begin k:=-1; end.

1. 1; 2. -1; 3. операція не допустима;

2

Яка операція у виразі буде виконана останньою:

1. *; 2. -; 3. /; 4 +;

3

Після виконання фрагменту коду: x:=3; case x of 0..9: y:=2; else y:=0; end;

значення змінної y буде дорівнювати

1. 3; 2. 2; 3. 0;

4

Яким буде останнє значення лічильника в циклі repeat.

i:=1; repeat writeln(i); i:=i+1; until i>=10;

1. 11; 2. 9; 3. 10;

5

Скільки кроків циклу буде здійснено: for c:='0' to '9' do writeln(c);

1. 10; 2. 9; 3. 16;

6

Скільки локальних констант визначено у підпрограмі:

procedure Proc(x:real);

var y:real; s:string; begin end;

1. 1; 2. 0; 3. 2;

7

У бінарне дерево пошуку, вузли якого зберігають цілі значення, послідовно додаються значення: 70, 80, 40, 30, 20, 15. Яке значення буде у крайньої правої кінцевої вершини дерева.

1. 80; 2. 70; 3. 15;

8

Використовуючи переліковний тип даних, що визначає дні тижня, розв‘язати завдання: дано два значення день тижня з‘ясувати який день пройде пізніше.

9

Перший член послідовності рівний 0.2, а кожен наступний, починаючи з другого обчислюється за формулою: 4*(b_k-1)³+ b_k-1. Дано натуральне n, знайти b_n.

10

Дано текстовий файл T, що зберігає послідовність дійсних чисел по одному у кожному рядку. Знайти добуток чисел.

1

Визначити результат операції присвоєння:

var k:byte;

begin k:=25; end.

1. 25; 2. 255; 3. операція не допустима;

2

Яка операція у виразі буде виконана останньою:

1. *; 2. -; 3. /; 4 +;

3

Після виконання фрагменту коду: x:=10; case x of 0..9: y:=2; else y:=x; end;

значення змінної y буде дорівнювати

1. 10; 2. 2; 3. 1;

4

Яким буде останнє значення лічильника в циклі repeat.

i:=0; repeat writeln(i); i:=i+1; until i>=10;

1. 11; 2. 9; 3. 10;

5

Скільки кроків циклу буде здійснено: for c:='0' to '0' do writeln(c);

1. 1; 2. 0; 3. 2;

6

Які будуть значення змінних після виклику підпрограми:

procedure Proc(var x:integer; y:integer);

begin x:=y; y:=0; end;

begin a:=1; b:=2; Proc(a,b); end.

1. a=1, b=2; 2. a=2, b=0; 3. a=2, b=2;

7

Елемент зв'язного списку описується так:

Type PList = ^TList;

Type TList = record

x:integer;

link1, link2:PList;

end;

Скільки інформаційних полів містить елемент.

1. 3; 2. 2; 3. 1;