Лабораторная работа: Обработка текстовых файлов

46.                                                                                                                                                         end;

47.                                                                                                                                                         Summ:=Sm;

48.                                                                                                                                                         end;

49.                                                                                                                                                         {процедура генерации сочетания из n по m, для чисел 1,2, ... , n}

50.                                                                                                                                                         Procedure GenerateSochet(var Sochet:Arr2; n,m:integer;var kol:integer);

51.                                                                                                                                                         var

52.                                                                                                                                                         ii,jj:integer;

53.                                                                                                                                                         begin

54.                                                                                                                                                         kol:=1;

55.                                                                                                                                                         { Генерация самого первого сочетания }

56.                                                                                                                                                         for ii:=0 to m do

57.                                                                                                                                                         Sochet[kol,ii]:=ii;

58.                                                                                                                                                         repeat

59.                                                                                                                                                         { Vivod(Sochet,nom,m);}

60.                                                                                                                                                         kol := kol+1;

61.                                                                                                                                                         for ii:=0 to m do

62.                                                                                                                                                         Sochet[kol,ii]:=Sochet[kol-1,ii];

63.                                                                                                                                                         ii:=m;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8