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

8

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

9

Перший член послідовності рівний 1, другий – 1, а кожен наступний, починаючи з третього обчислюється за формулою: . Дано натуральне n, знайти a_n.

10

Дано текстовий файл T. Роздрукувати усі рядки які містять пробіл хоча б 2 рази.

1

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

var k:byte;

begin k:=1025; end.

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

2

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

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

3

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

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

1. 1; 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:=-1 to 1 do writeln(c);

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

6

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

procedure Proc(x:real);

var y:real; const z=10; var s:string; begin end;

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

7

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

1. 30; 2. 25; 3. 50;

8

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

9

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

10

Дано текстовий файл T. Роздрукувати усі рядки які містять "123" хоча б раз.

1

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

var k:byte;

begin k:=100; end.

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

2

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

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

3

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

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

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

4

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

i:=0; 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. 8; 2. 9; 3. 10;

6

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

procedure Proc(x:real);

var y:real; const z=10; const s = 'ABC'; begin end;

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

7

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

1. 30; 2. 60; 3. 50;