|
TwojePC.pl © 2001 - 2025
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
jak zrobić wszystkie mozliwe kombinacje , rkowalcz 13/09/05 22:41
mam kilka tekstów (dokładnie 9, przyklad bedzie dla 3)
1 - tekst1
2 - tekst2
3 - tekst3
Czym zrobic wszystkie kombinacje tych tekstów (oczywiscie 9 tekstów :-) ), aby otrzymać wynik
tekst1
tekst1tekst2
tekst1tekst2tekst3
tekst1tekst3
tekst2
tekst2tekst3
tekst3
w jednym pliku ?- ręcznie... , john565 13/09/05 22:50
można makro zastosować w office,napisac krótki programik w jakimś pascalu,c++ czy basicu, nawet skryptem dosa chyba bys to rozwiązał
jedno pytanie gdy mamy 1 i 2
to wynik ma być
1
2
12
21
???f*ck - nie wynik ma , rkowalcz 13/09/05 22:53
byc
1
2
12- za apr eminutek podesle ci arkusz xls z rozwiązaniem , john565 13/09/05 23:01
:]]f*ck - no się chyba za dobrze oceniłem... , john565 13/09/05 23:19
coprawda niby działa ale nei tak jak powinno, zła koncepcja, no cóz moze inni sie wykażą ?
ja nnad swoim jescze popracuje ;]f*ck
- oto rozwiazanie , rkowalcz 14/09/05 00:33
w pascalu dla 9 tekstow:
program generowanie;
var
licz,b,j,bb : integer;
plik : Text;
begin
assign(plik,'test.txt');
rewrite(plik);
for b:=1 to 511 do
begin
bb:=b;
licz:=0;
repeat
licz:=licz+1;
j:=bb mod 2;
if (j=1) then
case licz of
1: Write(plik,'D1');
2: Write(plik,'D2');
3: Write(plik,'D3');
4: Write(plik,'D4');
5: Write(plik,'D5');
6: Write(plik,'D6');
7: Write(plik,'D7');
8: Write(plik,'D8');
9: Write(plik,'D9');
end;
bb:=bb div 2;
until bb=0;
Writeln(plik,'');
end;
close(plik);
end.
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2025, TwojePC.PL |
 |
|
|
|
