GAECHKA
Твоя помощница в решении задач

Нужно разобраться в коде программы

Добрый день, помогите пожалуйста разобраться в коде программы (код не мой). Желательно поподробнее.


const 
 n=5; k=3; n1=100;
type 
 t=array[1..n1] of integer; 
var 
 x,min,max : t; 
 i,j,r:integer; 
 begin 
for j:=1 to k do 
 begin 
 max[j]:=n-j+1;
 min[j]:=k-j+1;
 x[j]:=min[j] 
 end; 
 writeln('Сочетания из ',n,' эл-тов по ', k, ' элементов'); 
while i=k do 
 begin 
 for j:=k downto 1 do write(x[j], ' '); writeln; 
 r:=r+1; i:=1; 
 while (i=k) and (x[i]=max[i]) do i:=i+1; 
 if i=k then x[i]:=x[i]+1;
 for j:=i-1 downto 1 do 
 begin 
 min[j]:= x[j+1]+1; 
 x[j]:=min[j] 
 end 
 end; 
writeln('Общее число сочетаний равно r = ', r)
end.
0
вопрос задан

Источник


2 ответа
Fenix0119, а что именно вам нужно объяснить?
В самом код программы объяснить, сидел сам разбирался, только пол кода смог понять