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

8

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

9

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

10

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

1

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

var k:ShortInt;

begin k:=130; end.

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

2

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

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

3

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

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

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

4

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

i:=1; s:=0; repeat readln(n);s := s+n; inc(i); until i>10;

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

5

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

1. '0'; 2. '9'; 3. '1';

6

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

procedure Proc( x,y:real; s1,s2:string;const c:char; b1,b2:boolean);

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

7

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

Type PList = ^TList;

Type TList = record

x:integer;

left, right:PList;

middle:PList;

end;

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

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

8

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

9

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

10

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

1

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

var k:ShortInt;

begin k:=-127; end.

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

2

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

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

3

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

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

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

4

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

i:=0; s:=0; repeat readln(n);s := s+n; inc(i); until i>10;

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

5

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

1. 'C'; 2. 'B'; 3. 'A';

6

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

function Func(var x:integer):integer;

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

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

1. 0; 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);