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

8

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

9

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

10

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

1

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

var k:ShortInt;

begin k:=2; end.

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

2

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

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

3

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

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

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

4

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

i:=0; s:=0; while i<10 do begin readln(n);s := s+n; end;

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

5

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

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

6

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

procedure Proc(var x,y,z:real; s1,s2:string;const c:char);

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

7

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

Type PList = ^TList;

Type TList = record

x1,x2,x3:integer;

link1, link2:PList;

end;

Якого типу такий список.

1. однозв'язний; 2. двохзв'язний; 3. трьохзв'язний;

8

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

9

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

10

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

1

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

var k:ShortInt;

begin k:=-200; end.

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

2

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

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

3

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

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

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

4

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

i:=1; s:=0; while i<=10 begin readln(n);s := s+n; inc(i); end;

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

5

Яке значення лічильника на другому кроці for c:=true downto false do writeln(c);

1. true; 2. false; 3. не визначено;

6

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

procedure Proc(var x,y,z:real; c:char);

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

7

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

Type PList = ^TList;

Type TList = record

x,y:integer;

link:PList;

end;

Якого типу такий список.

1. однозв'язний; 2. двохзв'язний; 3. трьохзв'язний;