Problem u pacsalu, molim pomoc

[Nenad Zivic]

jel moze neko da resi ovaj zadatak:

Napisati program koji ispisuje sve kombinacije k-te klase od n elemenata.

Bio bih puno zahvalan.

 

[gadafi]

Probaj ovo, krajnje neoptimizovano, resenje:

program Kombinacije;

Var n,k,tot,i,j,l,njed : Integer;
    cifra : Array[1..100] Of Byte; //Smatramo da ce biti maksimalno 100 elemenata

begin
   n:=25;
   k:=3;
   tot:=1;
   For i:=1 To n Do tot:=tot*2;
   For i:=1 To tot Do
   Begin
      l:=i;
      //Pretvaramo broj l u binarni i brojimo koliko ima jedinica
      j:=0;
      njed:=0;
      While l>0 Do
      Begin
         j:=j+1;
         cifra[j]:=l mod 2;
         If cifra[j]=1 Then njed:=njed+1;
         l:= l div 2;
      End;
      If njed=k Then //Ako je broj jedinica jednak k (jer su kombinacije k-te klase)
      Begin
         For l:=1 To j Do
         If cifra[l]=1 Then Write(l,' ');
         WriteLn;
      End;
   End;
   ReadLn;
end.

Ako te zanima nesto vise, imas ovde.

 

[Nenad Zivic]

Obradovala me je mrtva petlja!

 

[gadafi]

Obradovala me je mrtva petlja!

Drago mi je sto se radujes, ali gde si video tu mrtvu?

 

[3MAJ86]

Danas je u trendu da se svačemu nadene pridev 'mrtvo', pa makar to bila i petlja u Paskalu

 

[gadafi]

Danas je u trendu da se svačemu nadene pridev 'mrtvo', pa makar to bila i petlja u Paskalu

Jos uvek mi nije odgovorio koja je mrtva.
Sve u svemu, od mene pomoc nece vise da dobije. Uradim mu kompletan program, a on, umesto da kaze hvala, pronalazi nekakve mrtve petlje!
Ako upise fakultet koji mislim da ce da upise, studiranje cu da mu pretvorim u nocnu moru :-devil-: Salim se ili ne?

 

[monteboy]

Drago mi je sto se radujes, ali gde si video tu mrtvu?

pa verovatno je mislio na ovaj delic

While l>0 Do
      Begin
         j:=j+1;
         cifra[j]:=l mod 2;
         If cifra[j]=1 Then njed:=njed+1;
         l:= l div 2;
      End;

stim sto je zamenio promenljivu 'l' sa 1

 

[gadafi]

pa verovatno je mislio na ovaj delic
.
.
.
stim sto je zamenio promenljivu 'l' sa 1

U tom slucaju je prevideo gresku u liniji:

1:= 1 div 2;