Re: Algorytm

Article View: pl.comp.lang.asm

Article #1990

#1990

From: Wojciech Muła
Date: Wed, 12 Aug 2009 08:43

47 lines
1862 bytes

On Tue, 11 Aug 2009 19:56:36 +0200 "Remek" <wiasmed@neostrada.pl> wrote:

> > Zaprogramowanie tego jest
> > banalne, tylko pytanie, czy rzeczywiście chcesz wszystkie możliwe
> > ciągi?
> 
> Banalne? Na razie nie dla mnie. Możesz coś podpowiedzieć? Powinny być
> generowane bezbłędnie wszystkie kombinacje.

Tak pi*drzwi:

hasło_idx : array[1..k] of integer;
literki   : array[0..n-1] of char;

for i := 1 to k do
	hasło_idx[i] := 0;
endfor

{ generowanie kolejnych wariacji }
i := 0;
while true do
	{ wypisanie hasła }
	for j := 1 to k do
		print_char(literki[hasło_idx[j]]);
	endfor

	{ kolejna wariacja }
	i := 1;
	while true do
		hasło_idx[i] += 1;
		if hasło_idx[i] = n then
			hasło_idx[i] := 0;
			i := i + 1;
			if i = k then
				goto koniec;
		else
			break;
		endif
	endwhile
endwhile

koniec:

w.

-- 
Kupię: http://wm.ite.pl/kupie.html

Technical Details

Message-ID: <20090812104324.266acbb4@cat.tac>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!cat.tac!not-for-mail

References: <h5ntj1$85e$1@inews.gazeta.pl> <20090811010543.7d10bf8b@cat.tac> <h5sbcq$7ks$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!newsfeed.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!cat.tac!not-for-mail
From: Wojciech Muła
 <wojciech_mula@poczta.null.onet.pl.invalid>
Newsgroups: pl.comp.lang.asm
Subject: Re: Algorytm
Date: Wed, 12 Aug 2009 10:43:24 +0200
Organization: http://www.republika.pl/wmula
Lines: 49
Message-ID: <20090812104324.266acbb4@cat.tac>
References: <h5ntj1$85e$1@inews.gazeta.pl> <20090811010543.7d10bf8b@cat.tac> <h5sbcq$7ks$1@inews.gazeta.pl>
NNTP-Posting-Host: adas127.neoplus.adsl.tpnet.pl
Mime-Version: 1.0
X-Trace: nemesis.news.neostrada.pl 1250067265 10473 83.11.254.127 (12 Aug 2009 08:54:25 GMT)
X-Complaints-To: usenet@news.neostrada.pl
NNTP-Posting-Date: Wed, 12 Aug 2009 08:54:25 +0000 (UTC)
X-Newsreader: Claws Mail 3.7.2 (GTK+ 2.16.5; i486-pc-linux-gnu)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message