Тестирования черного ящика

@Oksana_Semkina · Регистрация: 24.09.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте ребята! Мне нужна ваша помощь, нужно протестировать методом Черного ящика вот эти задачки:

1)

Pascal

var k,l,n,m:byte;
var C,R:longint;
function F(x:integer):longint; var i,a:longint; begin a:=1; for i:=1 to x do a:=a*i; F:=a; end;
begin
     R:=0;
     for k:=2 to 5 do
         for m:=2 to 7-k do
             for n:=2 to 9-k-m do
                 begin
                      l:=11-k-m-n;
                      C:=F(11) div (F(k)*F(m)*F(n)*F(l));
                      writeln('Результат (',k,';',m,';',n,';',l,')');
end;
end.

2)

Pascal

var k,n,m:byte;
var C,R:longint;
function F(x:integer):longint; var i,a:longint; begin a:=1; for i:=1 to x do a:=a*i; F:=a; end;
 
begin
     R:=0;
     for k:=1 to 9 do
         for m:=1 to 10-k do
                 begin
                      n:=11-k-m;
                      C:=F(11) div (F(k)*F(m)*F(n));
                      writeln('Результат (',k,';',m,';',n,')');
end;
end.

И если эти задачи можно протестировать каким то другим методом, то напишите каким пожалуйста, и помогите с тестированием. Очень нужно, спасибо заранее !!!

HighPredator · 21.01.2013, 12:01

В ваших задачах и тестировать-то нечего. Входных данных нет.

@Oksana_Semkina · 21.01.2013, 12:39 **[ТС]**

Спасибо, я уже с помощью модульного тестирования всё сделала =)

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	21.01.2013, 12:01	2
	В ваших задачах и тестировать-то нечего. Входных данных нет. 0

@Oksana_Semkina 2 / 2 / 2 Регистрация: 24.09.2012 Сообщений: 45
	21.01.2013, 12:39 [ТС]	3
	Спасибо, я уже с помощью модульного тестирования всё сделала =) 0