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

8

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

9

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

10

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

1

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

var k:byte;

begin k:=-2; end.

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

2

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

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

3

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

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

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

4

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

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

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

5

Скільки кроків циклу буде здійснено: for c:='B' to 'A' do writeln(c);

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

6

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

procedure Proc(x:integer; y:integer);

begin x:=y; y:=0; end;

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

1. a=1, b=2; 2. a=2, b=0; 3. a=2, b=2;

7

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

Type PList = ^TList;

Type TList = record

x:integer;

y:real;

link1,link2:PList;

end;

Скільки інформаційних полів містить елемент.

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

8

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

9

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

10

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

1

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

var k:ShortInt;

begin k:=-2; end.

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

2

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

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

3

Після виконання фрагменту коду: x:=1; 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 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

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

procedure Proc(var x,y:integer);

begin x:=y; y:=0; end;

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

1. a=1, b=2; 2. a=2, b=0; 3. a=2, b=2;

7

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

Type PList = ^TList;

Type TList = record

x:integer;

s:string;

c:char;

link1:PList;

end;

Скільки інформаційних полів містить елемент.

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