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

8

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

9

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

10

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

1

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

var k:integer; x:shortint;

begin k:=-3; x:=k; end.

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

2

Який тип результату виразу для

1. real; 2. integer; 3. вираз не допустимий;

3

Після виконання фрагменту коду: x:=-1; y:=-2; if x > 0 then if y < 0 then y:=-1 else y:=2;

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

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

4

Скільки кроків буде виконано циклом repeat:

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

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

5

Який тип індексу в даному описі масиву

Type TDay = (Sun,Mon,Tue,Wed,Thu,Fri,Sat);

Type TArray = array[TDay] of integer;

1. діапазон на основі integer ; 2. діапазон на основі TDay; 3. переліковний тип; 4. порядковий тип;

6

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

function Func(const x,y:real; z:string):real;

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

7

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

1. 6; 2. 5; 3. 4;

8

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

9

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

10

Дано текстовий файл T. Знайти кількість рядків, що починаються великою латинською літерою.

1

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

var k:string; x:char;

begin k:='ABC'; x:=k; end.

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

2

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

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

3

Після виконання фрагменту коду:

x:=1; y:=-2; if x > 0 then begin if y < 0 then y:=-1 end else y:=2;

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

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

4

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

i:=1; while i<10 do begin writeln(i); inc(i); end;

1. 8; 2. 9; 3. 10;

5

Який тип елементу масиву типу TArray:

Type TArray = array[1..10] of integer;

1. масив; 2. char; 3. integer;

6

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

function Func(x,y:real; z:string):real;

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

7

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

1. 6; 2. 5; 3. 4;