Информатика. 10-11 классы. 2 книга. Шауцукова Л.З

теста

1

1

"Да"

+

-

2

+

-

3

-

(кц)

2

1

"Да"

+

+

"Нет"

-

(кц)

N, i : Integer;

{

Otvet: Boolean;

--------------------------------------------}

end;

ReadLn(A[i])

WriteLn;

WriteLn(’Заданная последовательность чисел’);

For i

:= 1 to N do Write(A[i] : 5 : 1);

WriteLn

End; {

of InputOutput }

{--------------------------------------------

}

Procedure Processing( Var Otvet: Boolean);

Begin

{описание процедуры проверки на убывание

элементов}

Otvet

:= TRUE; i:=1;

While

(i<=N–1) and Otvet do

If (A[i]<A[i+1]) then Otvet := FALSE

End; {

else i := i+1;

of Processing }

{--------------------------------------------

}

WriteLn(’монотонно

убывающую последовательность.’);

ReadLn

End;

}

{--------------------------------------------

BEGIN

{вызов процедуры ввода-вывода}

InputOutput;

Processing(Otvet);

{вызов процедуры проверки на убывание}

Result(Otvet);

{вызов процедуры вывода результата}

END.

Номер

Проверяемый

Данные

Результат

теста

случай

a

b

R

Кол.

Координаты

Otvet

точек

точек

1

Принадлежит

1

0

2

3

X=(-1, 2, 3)

"Да"

Y=(2, 1, 2)

2

Не

1

0

2

2

X=(-1, 3)

"Нет"

принадлежит

Y=(2, 2)

Школьный АЯ

N, арг вещ таб X [1 : N] , Y [1 : N] ,

алг Точки (арг цел

арг вещ

a, b, R, рез лит Otvet)

нач цел i

i:=1; Otvet:="Нет"

нц пока (i<=N) и

(Otvet="Нет") | условие продолжения цикла

N

i

Otvet

(1)

(2)

теста

1

1

"Нет"

+

-

2

"Да"

+

+

3

-

(кц)

2

1

"Нет"

+

-

2

+

-

3

-

(кц)

Turbo Pascal

Program SetOfPoints;

Uses Crt;

Type Mas = Array [1..20] of Real;

Var X, Y

: Mas;

{массивы координат точек }

i, NPoints

: Integer; {NPoints – количество точек}

a, b, Radius : Real;

{координаты центра и радиус}

Flag

: Boolean;

}

{--------------------------------------------

Procedure Input; {описание процедуры ввода данных}

Begin

ClrScr;

Write(’Введите координаты центра круга: ’); ReadLn(a, b);

Write(’Введите радиус круга: ’);

ReadLn(Radius);

Write(’Введите количество точек: ’);

ReadLn(NPoints);

For i := 1 to NPoints do

begin

WriteLn(i : 4, ’-ая точка ’);

Write(’X = ’);

ReadLn(X[i]);

Write(’Y = ’);

ReadLn(Y[i]);

end; WriteLn

{of Input}

End;

}

{--------------------------------------------

проверки }

{принадлежности точек

Begin

области}

then Flag := TRUE

else i:=i+1;

{

End; {of Inside}

--------------------------------------------}

Procedure Output( Flag

: Boolean); {описание процедуры }

Begin

множестве

{вывода результатов }

Write(’О т в е т : в

точек ’);

If Flag then WriteLn(’cодержатся’)

else WriteLn(’не содержатся’);

WriteLn(’ точки, принадлежащие

заданной области.’);

ReadLn

End; {of Output}

}

{--------------------------------------------

BEGIN

{вызов

процедуры

ввода данных }

Input;

Inside(Flag); {вызов

процедуры

проверки принадлежности}

Output(Flag)

{вызов

процедуры

вывода результатов }

END.

Номер

Проверяемый

Данные

Результат

теста

случай

N

Матрица А

Текст

1

Имеется

3

"Есть такие"

2

Не имеется

2

"Нет таких"

N

i

Flag

(1)

(2)

Текст

теста

1

1

"Нет"

+

-

"Есть

2

"Да"

+

+

такие"

-

(кц)

2

1

"Нет"

+

-

"Нет

2

+

-

таких"

3

-

(кц)

Turbo Pascal

Program Diagonal;

Uses

Crt;

[1..10, 1..10] of Integer;

Type

Mas = Array

Var

A

:

Mas;

N, i, j

:

Integer;

Flag

:

Boolean;

{-----------------------------------}

{описание процедуры ввода-

Procedure InputOutput(Var A : Mas);

}

{вывода исходных данных

Begin

}

begin

to N do Write(A[i, j] : 5);

For j := 1

WriteLn

End;

end; WriteLn

{ of InputOutput }

{------------------------------------}

Begin

i:=1;

Flag:=FALSE;

While (i<=N)

and not Flag do

If (A[i, i]>0) and (A[i, i] mod 2 = 1)

then Flag:=TRUE

else i:=i+1;

WriteLn(’О т в е т :’);

Write(’Среди

элементов главной диагонали ’);

If Flag then

WriteLn (’есть нечетные положительные.’)

else

WriteLn(’нет нечетных положительных.’);

ReadLn;

Solution }

End;

{ of

{------------------------------------}

BEGIN

{вызов

процедуры

ввода-вывода данных}

InputOutput(A);

Solution(A);

{вызов

процедуры

поиска решения задачи}

END.

Номер теста

Данные

Результат

1

M=10

S=1+1+2+3+5+8=20

2

M=1

S=1+1=2

Школьный АЯ

Демонстрация

алг Фибоначчи (арг цел М, рез цел S)

дано

| M>0

F0:=1;

F1:=1; F2:=2

S:=4

| 4 – сумма первых трех чисел Фибоначчи

нц пока F2<=M

F0:=F1;

F1:=F2; F2:=F0+F1

| серия переприсваиваний

S:=S+F2;

кц

| из S вычитается

последнее значение F2,

S:=S–F2

F0

F1

F2

S

F2<M

1

1

2

4

+

1

2

3

4+3=7

+

2

3

5

7+5=12

+

3

5

8

12+8=20

+

5

8

13

20+13=33

-(кц)

33-13=20

Turbo Pascal

Program SummaFib;

Uses Crt;

{заданное число }

Var M,

F0, F1, F2,

{три последовательных числа Фибоначчи}

S : Integer;

{сумма чисел Фибоначчи}

BEGIN

5

8

О

т в е т : Сумма этих чисел равна 20

Номер

Проверяемый

Данные

Результат

теста

случай

D

Массив А

A=(0, 1, 3, 5)

1

D <= a1

0

A=(1, 3, 5)

A=(1, 3, 4, 5)

2

a1< D <= aN

4

A=(1, 3, 5)

A=(1, 3, 5, 6)

3

aN < D

6

A=(1, 3, 5)

Исполнение алгоритма

Обозначение проверяемого условия:

Блок-схема (фрагмент)

(i >= 1) и (A[i] > D) => (1)