Главная | Обратная связь

Программа на паскале. Процедура общего вида

procedure Ending(var n:byte;out A:matrix);

var i,j:byte;

begin

for i:=1 to n do begin

for j:=1 to n do begin

if A[i,j]>0 then A[i,j]:=1;

if A[i,j]<0 then A[i,j]:=0;

end;

 

end;

end;

Структурные тесты.

Тест№ Структура
Ввод/вывод матрицы For i:=1 to n do	Н В Е Ы Т В В О В Д О А Д А И
0 раз (i>n)	Невозможно, n³1
1 раз (i=n)
более 1 раза (i<n)
For j:=1 to n do
0 раз	Невозможно, n³1
1 раз
более 1 раза
If (N<1) or (N>5)
N<1 истина N>5 истина	Не возможно одновременное выполнение этих условий
N<1 истина N>5 ложь (N=5)	Не возможно одновременное выполнение этих условий
N<1 истина N>5 ложь (N<5)	N=0	-	-	-	-	-	-	-	-	-	-
N<1 ложь (N=1) N>5 истина	Не возможно одновременное выполнение этих условий
N<1 ложь (N>1) N>5 истина	-	N=6	-	-	-	-	-	-	-	-	-
N<1 ложь (N=1) N>5 ложь (N=5)	Не возможно одновременное выполнение этих условий
N<1 ложь (N>1) N>5 ложь (N=5)	-	--	-	-	-	-	-	-	-	N=5
N<1 ложь (N=1) N>5 ложь (N<5)	-	-	-	-	-	-	-	-	N=1	-
N<1 ложь (N>1) N>5 ложь (N<5)	-	-	N=3	N=2	N=2	N=3	N=3	N=2	-	-
If abs(p)>99
Abs(p)>99 истина p=100	-	-	-	-	P=100	--	-	-	-
Abs(p)>99 ложь p=99	-	-	-	-	-	P=99	-	-	-
Abs(p)>99 ложь	P=50	P=31,56	P=-54,7	P=-30	-	-	P=13	P=-1	P=2
Проверка элементов while (i<=n) and f1 do	П Р О В Е Р К И   М А Т Р И Ц Ы	П Р О В Е Р К И   М А Т Р И Ц Ы
(i<=n) истина (i<n) F1 истина	+	+	+	+	+	+	-	+	+
(i<=n) истина (i=n) F1истина	-	-	+	+	+	+	+	+	+
(i<=n) истина (i<n) F1 ложь	+	+	-	-	-	-	-	-	-
(i<=n) истина (i=n) F1 ложь	-	-	-	-	-	-	-	-	+
(i<=n) ложь (i>n) F1 истина	-	-	+	+	+	+	+	+	+
(i<=n) ложь (i>n) flagA ложь	-	-	-	-	-	-	-	-	-	+
while (j<=n) and f1 do
(j<=n) истина (j<n) F1 ложь	+	+	+	+	+	+	-	+	+
(j<=n) истина (j=n) F1 ложь	-	-	+	+	+	+	+	+	+
(j<=n) истина (j<n) F1 истина	+	+	-	-	-	-	-	-	-
(j<=n) истина (j=n) F1 истина	-	-	-	-	-	-	+	-	+
(j<=n) ложь (j>n) F1 ложь	-	-	+	+	+	+	+	+	+
(j<=n) ложь (j>n) F1 истина	-	-	-	-	-	-	-	-	-	+
if abs(A[i,j]) >25 then
abs(A[i,j]) > 25		-27	-	-	-	-	-	-	-
abs(A[i,j]) < 25	-	-	+	+	+	+	+	+	-
abs(A[i,j]) = 25	-	-	-	-	-	-	-	-	+
If f1 then
F1 истина	-	-	+	+	+	+	+	+	Нельзя
F1 ложь	+	+	-	-	-	-	-	-
Поиск максимума
For i:=1 to n do
0 раз	Невозможно, n³1
1 раз	+	+	-	-	+	+	-	-	Нельзя!
Более 1 раза	-	-	+	+	-	-	+	+
For j:=1 to n do
0 раз (j>n)	Невозможно, n³1
1 раз (j=n)	+	+	-	-	+	+	-	-	Нельзя
более 1 раза (j<n)	-	-	+	+	-	-	+	+
Поиск минимума
For i:=1 to n do
0 раз	Невозможно, n³1
1 раз	-	-	-	-	-	+	-	-	Нельзя
Более 1 раза	+	+	+	+	+	-	+	+
For j:=1 to n do
0 раз (j>n)	Невозможно, n³1
1 раз (j=n)	-	-	-	-	-	+	-	-	Нельзя
более 1 раза (j<n)	+	+	+	+	+	-	+	+
Сравнение if d>p							Нельзя
d>p	-	+	-	-	+
D<p	+	-	-	-	-
D=p (Рассмотрен случай в 13 тесте)	-	-	-	-	-
Изменение матрицы For i:=1 to n do
0 раз			Невозможно, n³1
1 раз		-	-	-	+	-	Нельзя
Более 1 раза	+	+	+	-	+
For j:=1 to n do
0 раз (j>n)			Невозможно, n³1
1 раз (j=n)		-	-	-	+	-	Нельзя
более 1 раза (j<n)	+	+	+	-	+
If f2					-		Нельзя
F2 (истина)		-	+	+	+	+
F2 (ложь)	+	-	-	-	-
If A[I,j]>0
A[I,j]>0		+	+	-	+	+	Нельзя
A[I,j]<0	+	+	-	+	+
A[I,j]=0	`	-	+	+	-	+	Нельзя
If f2 f2(истина)		-	+	+	+	+
Вывод измененной матрицы For i:=1 to n do
0 раз (i>n)	Невозможно, n³1
1 раз (i=n)	-	-	+	-	-	Нельзя
более 1 раза (i<n)		+	+	-	+	+	Нельзя
F2 (ложь)		+	-	-	-	-
For j:=1 to n do
0 раз (i>n)		Невозможно, n³1
1 раз (i=n)	-	-	+	-	-	Нельзя
более 1 раза (i<n)	+	+	-	+	+

Недостающие структурные тесты

№	Входные данные	Ожидаемый результат	Смысл теста
	25 25 25 25 26 25 25 25 25	Обр.9	Аномалия 2
	777,777	Обр.9	Аномалия 2
	1 -5 4 3	Обр 10	Разность между максимальным и минимальным элементами равна p