Forum Romania Inedit
Romania Inedit - Resursa ta de Fun
|
Lista Forumurilor Pe Tematici
|
Forum Romania Inedit | Reguli | Inregistrare | Login
POZE FORUM ROMANIA INEDIT
Nu sunteti logat.
|
Nou pe simpatie:
Alexandraa. pe Simpatie.ro
 | Femeie
22 ani
Braila
cauta Barbat
26 - 80 ani |
|
danger
VETERAN
 Inregistrat: acum 18 ani
|
|
cine se pricepe bine lamatematica, programare, poate sa ma ajute si pemine laochestiune? este vorbe, din cate am inteles, de aranjamente. adica toate solutiile la: combionatii de 4 luate cate 9. este vreun program ceva? eu am ceva care imi arata invers adik lacombinari de 9 luate cate 4. sunt 120 desolutii pe care mi le desfasoara intr-un fisier text, dar la combinari de 4 luate cate 9 imi da0 solutii.
multumesc. sper ca amexplicat bine.
_______________________________________
|
|
| pus acum 10 ani |
|
|
quarantin3
Membru Puf
Inregistrat: acum 12 ani
|
|
te ajut eu, dar nu am inteles daca vrei combinari sau aranjamente
in plus, daca ai combinari de n, luate cate k, daca k>=n, e normal sa iti dea 0
uite:
Modificat de quarantin3 (acum 10 ani)
|
|
| pus acum 10 ani |
|
danger
VETERAN
Inregistrat: acum 18 ani
|
|
eu cred ca este vb de aranjamente. si un programel ceva care sa le desfasoare nu este?
_______________________________________
|
|
| pus acum 10 ani |
|
80Inanna
Moderator
 Din: Mitologie
Inregistrat: acum 18 ani
|
|
În matematică „combinări” și „aranjamente” au sensuri precise și diferite. Dacă nu aveți o imagine clară a ce aveți nevoie și nu faceți cererea în terminologia matematică exactă n-avem cum înțelege ce doriți.
_______________________________________
Verificati toate linkurile înainte de a descărca! UNELE sunt expirate.
Cataloage FILME românești și TEATRU românesc.
Eu pot descărca de pe: mediafire, zippyshare, uptobox, mega.
NU pot descărca de pe: depositfiles, uploaded, turbobit, letitbit.
|
|
| pus acum 10 ani |
|
danger
VETERAN
Inregistrat: acum 18 ani
|
|
deci... eu vreau sa combin urmatoarele:
1 2 3 4 5 6 7 8 9
1 1 1 1 ..................9
2 1 2 1 9
3 1 1 2 8
4 1 1 1 7 s.am.d. am vb cu un prof de mate care zice ca sunt aranjamente. ma gandeam ca este vreun program care sa desfasoare toate variantele
Modificat de danger (acum 10 ani)
_______________________________________
|
|
| pus acum 10 ani |
|
|
quarantin3
Membru Puf
Inregistrat: acum 12 ani
|
|
codul sursa pentru un program scris in limbajul de programare pascal care genereaza aranjamente:
====================================================
{generarea aranjamentelor}
program aranjamente; {iterativ}
type stiva=array [1..10] of integer;
var st:stiva;
ev,ass:boolean;
n,k,p:integer;
procedure init(k:integer;
var st:stiva);
begin
st[k]:=0;
end;
procedure succesor(var ass:boolean;var st:stiva;k:integer);
begin
if st[k]<n then
begin st[k]:=st[k]+1;
ass:=true;
end
else
ass:=false;
end;
procedure valid(var ev:boolean; var st:stiva; k:integer);
var i:integer;
begin
ev:=true;
for i:=1 to k-1 do
if st[i]=st[k] then
ev:=false;
if (st[k]<0) and (st[k-1]<0) then
ev:=false;
end;
function solutie(k:integer):boolean;
begin
solutie:=(k=p);
end;
procedure tipar;
var i:integer;
begin
for i:=1 to p do write (st[i]);
writeln;
end;
begin;
write ('n:=');
readln (n);
write ('p:=');
readln (p);
k:=1;init(k,st);
while k>0 do
begin
repeat
succesor (ass,st,k);
if ass then valid(ev,st,k);
until (not ass) or (ass and ev);
if ass then
if solutie(k) then tipar
else
begin
k:=k+1;
init(k,st)
end
else k:=k-1;
end;
readln;
end.
|
|
| pus acum 10 ani |
|
danger
VETERAN
Inregistrat: acum 18 ani
|
|
ms mult 
_______________________________________
|
|
| pus acum 10 ani |
|