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

8

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

9

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

10

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

1

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

var k:char; x:string;

begin k:='A'; x:=k+k; end.

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

2

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

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

3

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

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

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

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

4

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

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

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

5

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

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

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

6

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

procedure Proc(x:real);

var y,t,q:real; const z=10;begin end;

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

7

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

1. 10; 2. 20; 3. 60;

8

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

9

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

10

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

1

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

var k:integer; x:string;

begin k:=123; x:=k; end.

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

2

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

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

3

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

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

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

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

4

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

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

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

5

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

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

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

6

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

procedure Proc(x:real);

const z=10; begin end;

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

7

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

1. 80; 2. 20; 3. 15;