Контрольная работа на тему "Процедуры и функции на языке Паскаль"

Контрольная работа. 10 класс.

Вариант №1.

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

1. Function Sum1 (a,b:Integer; Var c:integer): real;

2. function Sum ( a: integer; Var c: integer);

3. Function 2S (a, b): integer;

4. Function SQ (a,c: real): integer;

2. В приведенном заголовке процедуры укажите параметры - переменные:

Procedure Sum (a,b: integer; Var c, d: integer; );

1) а, b

2) c, d

3) a

4) d

3. Что вычисляет следующая процедура:

procedure PowerA234(x: real; var y2, y3, y4: real);

begin

y2 := x * x;

y3 := x * x * x;

y4 := y2 * y2;

end;

1) факториал числа

2) вторую, третью и четвертую степень числа

3) корень квадратного уравнения

4. Доступ элементу массива осуществляется по:

1. адресу;

2. имени;

3. номеру;

4. ничего из вышеперечисленного

1. 5. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 16; Dat[2] := 20;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 21;

Dat[7] := 28; Dat[8] := 12;

Dat[9] := 15; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k]m then

begin

m := Dat[k]

end;

writeln(m);

End.

1) 12 2) 15 3) 45 4) 20

6. . Запишите число, которое будет напечатано в результате выполнения следующей программы:

1) 640 2) 1280 3) 2560 4) 320

7. 4. В программе используется одномерный целочисленный массив А с индексами от 1 до 10. Значения элементов равны индексам этих элементов, то есть a[1] = 1, a[2] = 2 и т.д.

Определите значение переменной c после выполнения следующего фрагмента программы:

1) 44 2) 64 3) 54 4)3

8. Ал­го­ритм вы­чис­ле­ния зна­че­ния функ­ции F(n), где n — на­ту­раль­ное число, задан сле­ду­ю­щи­ми со­от­но­ше­ни­я­ми:

F(n) = n при n =

F(n) = F(n − 1) + 3×F(n − 2) при n  2.

 Чему равно зна­че­ние функ­ции F(6)? В от­ве­те за­пи­ши­те толь­ко на­ту­раль­ное число.

1) 55 2) 59 3) 26 4) 11

9. Ниже на пяти язы­ках про­грам­ми­ро­ва­ния за­пи­са­ны две ре­кур­сив­ные функ­ции (про­це­ду­ры): F и G.

procedure F(n: integer); forward;

procedure G(n: integer); forward;

procedure F(n: integer);

begin

    if n 0 then

        G(n - 1);

end;

procedure G(n: integer);

begin

    writeln('*');

    if n 1 then

        F(n - 3);

end;

Сколь­ко сим­во­лов «звёздоч­ка» будет на­пе­ча­та­но на экра­не при вы­пол­не­нии вы­зо­ва F(11)?

1) 3 2) 7 3) 5 4) 8

Вариант №2.

1. В приведенных фрагментах описания заголовков процедур выберите ошибочные:

1. Procedure Sum1 (a,b:Integer; Var c:integer): real;

2. Procedure S2m3;

3. Procedure 2S (a: Real; b: integer);

4. Procedure SQ (a,c: array[1..10] of real);

1. В приведенном заголовке процедуры укажите параметры - значения:

Procedure Sum (k,t: integer; Var c, d: integer; );

1) k, t;

2) k;

3) t;

4) c, d.

Дан фрагмент функции. Определить, что вычисляет эта функция?

function Fact(i:integer) : longint;

var r,t:integer;

begin

r:=1;

for t:=1 to i do

r := r*t;

Fact:=r;

end;

1) факториал числа

2) степень числа

3) среднее арифметическое чисел

4. Отметьте верные высказывания:

1. Массивы - это способ организации данных

2. Размерность массива - количество элементов в массиве

3. Одномерный массив имеет размерность 1

4. Массивы позволяют использовать циклы для своей обработки

5. Тип массива определяется типом своих элементов

5. В таб­ли­це Tur хра­нят­ся дан­ные о ко­ли­че­стве ребят, хо­див­ших в поход вме­сте с ту­ри­сти­че­ским клу­бом «По­лян­ка». (Tur[1] — число ребят в 2001 году, Tur[2] — в 2002 году и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния:

Var k, m: integer;

Tur: array[1..11] of integer;

Begin

Tur[1]:= 1; Tur[2]:= 11;

Tur[3]:= 8; Tur[4]:= 12;

Tur[5]:= 5; Tur[6]:= 6;

Tur[7]:= 15; Tur[8]:= 16;

Tur[9]:= 16; Tur[10]:= 21;

Tur[11]:= 7;

m := 0;

For k := 1 to 11 Do

If Tur[k] 10 Then

Begin

m := m + Tur[k];

End;

Writeln(m);

End.

1) 15 2) 25 3) 27 4) 30

6. . Запишите число, которое будет напечатано в результате выполнения следующей программы:

1) 5 2) 10 3) 15 4) 20

7. 4. В программе используется одномерный целочисленный массив А с индексами от 1 до 10. Значения элементов равны индексам этих элементов, то есть a[1] = 1, a[2] = 2 и т.д.

Определите значение переменной s после выполнения следующего фрагмента программы:

1) 9 2) 10 3) 11 4) 12

8. Ал­го­ритм вы­чис­ле­ния зна­че­ния функ­ции F(n), где n — на­ту­раль­ное число, задан сле­ду­ю­щи­ми со­от­но­ше­ни­я­ми:

F(n) = n − 1 при n ≤ 2;

F(n) = 3 × F(n − 1) − F(n − 2) при n 2.

Чему равно зна­че­ние функ­ции F(6)? В от­ве­те за­пи­ши­те толь­ко на­ту­раль­ное число.

1) 3 2) 8 3) 21 4)55