| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
g5u
Junior
Data inscrierii: 08/Noi/2007
Mesaje: 4
|
 Trimis: 22/11/2007 16:46 Titlul subiectului: generarea submultimilor |
 |
|
| Cod: |
var n,s,i,sum:integer;
sol,nr,tip:array[1..10]of integer;
procedure init(k:integer);
begin
sol[k]:=0;
end;
function succesor(k:integer):boolean;
begin
if sol[k]<n then
begin
sol[k]:=sol[k]+1;
succesor:=true;
end
else succesor:=false;
end;
function valid(k:integer):boolean;
var i,s1:integer;
begin
valid:=true;
if (sol[k-1]>=sol[k]) and (k>1) then valid:=false;
end;
procedure tipar(k:integer);
var i:integer;
begin
for i:=1 to k do
write(sol[i],' ');
writeln;
end;
procedure back(k:integer);
begin
init(k);
while succesor(k) do
if valid(k) then begin
tipar(k); back(k+1); end;
end;
begin
readln(n);
for i:=1 to n do begin
write ('tip[',i,']=');readln(tip[i]);
end;
back(1);
readln;
end.
|
_________________
Andrei Valentin |
|
| Sus |
|
 |
tcapital
Junior
Data inscrierii: 21/Iul/2012
Mesaje: 4
Localitate: Great Britain
|
| Trimis: 30/08/2012 22:07 Titlul subiectului: |
|
|
| I love your style |
|
| Sus |
|
|
ossbe
Junior
Data inscrierii: 11/Sep/2012
Mesaje: 6
Localitate: Latvia
|
| Trimis: 19/09/2012 18:45 Titlul subiectului: |
|
|
| Hi!!! Nice post Thank for that) Besides my friends real agree with me)) Thank again! |
|
| Sus |
|
|
ossbe
Junior
Data inscrierii: 11/Sep/2012
Mesaje: 6
Localitate: Latvia
|
| Trimis: 20/09/2012 05:48 Titlul subiectului: |
|
|
| I had no idea how to approach this before-now I'm locked and laoedd. |
|
| Sus |
|
|
ossbe
Junior
Data inscrierii: 11/Sep/2012
Mesaje: 6
Localitate: Latvia
|
| Trimis: 20/09/2012 16:50 Titlul subiectului: |
|
|
| I red your post and tell my mother about it! And she sad @good post my sun! Don’t stop read this info and don’t forget about future of our planet)))@ |
|
| Sus |
|
|
ossbe
Junior
Data inscrierii: 11/Sep/2012
Mesaje: 6
Localitate: Latvia
|
| Trimis: 21/09/2012 04:50 Titlul subiectului: |
|
|
| This is simply amazing! |
|
| Sus |
|
|
|
FAQ
Cautare
Membri
Grupuri
Inregistrare
Profil
Mesaje private
Autentificare
