чёрный ящик Опции

[Comeoff]

Люди добрые, помогите сделать "чёрный ящик"
нужно описание тестирования программы с применением метода черного ящика
денежное вознаграждение гарантируется. сделать нужно сегодня т.к. завтра нада сдать.

программа на паскале, ищет количества максимумов в файле, содержимое файла генерируется отдельной программой.

uses crt;
var i,k,max:integer;
 m:array [1..20] of integer;
 f:file of integer;
function find:integer;
begin
max:=m[1];
k:=1;
 for i:=2 to 20 do
  begin
   if max<m[i] then
    begin
     max:=m[i];
     k:=1;
    end
     else
      if max=m[i] then
      inc(k);
  end;
find:=k;
end;
begin
clrscr;
assign(f,'1.txt');
reset(f);
i:=1;
while not eof(f) do
 begin
  read(f,m[i]);
  write(m[i],' ');
  inc(i);
 end;
writeln;
write('rezultat= ',find);
repeat until keypressed;
end.

uses crt,dos;
 var f:file of integer;
     i,n:integer;
begin
 clrscr;
 assign(f,'1.txt');
 rewrite(f);
 randomize;
 for i:=1 to 20 do
  begin
   n:=random(11);
   write(n,' ');
   write(f,n);
  end;
 close(f);
 repeat until keypressed;
end.

Сообщение отредактировано: Lapp - 16.01.2010 23:35