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

8

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

9

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

10

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

1

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

var c:char;

begin c:=48; end.

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

2

Скільки операцій у виразі:

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

3

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

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

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

4

Чи вірно даний фрагмент задає обчислення добутку з 5 елементів

i:=1; s:=0; while i<5 do begin readln(n);s := s*n; inc(i); end;

1. вірно; 2. синтаксично вірно семантично ні; 3. синтаксично ні семантично так;

5

Яке значення лічильника на останньому кроці for c:=-1 to 1 do writeln(c);

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

6

Який результат поверне підпрограма Func:

function Func(var x,y:integer):integer;

begin x:=x+1; Func:=x+y; end;

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

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

7

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

Type PList = ^TList;

Type TList = record

x,y:integer;

link:PList;

end;

var p:PList;

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

1. p.x * p.y; 2. p^.x * p^.y; 3. p(x * y); 4 p^(x*y);

8

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

9

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

10

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

1

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

var c:char;

begin c:=#48; end.

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

2

Скільки операцій у виразі:

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

3

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

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

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

4

Чи вірно даний фрагмент задає обчислення добутку з 5 елементів

i:=0; s:=1; while i<5 do begin readln(n);s := s*n; end;

1. вірно; 2. синтаксично вірно семантично ні; 3. синтаксично ні семантично так;

5

Яке значення лічильника на останньому кроці for c:=10 downto 1 do writeln(c);

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

6

Який результат поверне підпрограма Func:

function Func(var x,y:integer):integer;

begin x:=x+y; Func:=x*y; Func:=0; end;

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

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

7

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

Type PList = ^TList;

Type TList = record

x,y:integer;

link:PList;

end;

var p:PList;

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

1. p^.x - p^.y; 2. p.x - p.y; 3. p(x - y); 4 p^(x-y);