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

39. idx,i,Sm:integer;

40. begin

41. Sm:=0;

42. for i:=1 to m do

43. begin

44. idx:= Idxs[nom,i];

45. Sm:=Sm + Chisla[idx];

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;

64. while (Sochet[kol,ii]=(n-m+ii))and(ii>0) do

65. ii:=ii-1; { поиск элемента для изменения }

66. Sochet[kol,ii]:=Sochet[kol,ii]+1;

67. for jj:=ii+1 to m do