🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92931

Re: zagwozdka - pętla for i ustawianie zmiennej logicznej...

#92931
From: Krzysztof W.
Date: Mon, 21 Dec 2009 11:28
25 lines
1642 bytes
Mirek pisze:

> Ten sam rezultat otrzymasz zastępująć pętlę instrukcją:
>    powtorzenie:=ile>1;

Nie bardzo - wtedy z listy wywalę wszystkie, które się powtórzyły, a 
chodzi o nie wyswietlenie ilości powtórzeń dla elementu który był juz 
policzony wczesniej.

> Wynik tej pętli czyli wartość zmiennej _powtorzenie_ przy braku
> _break_ zależy jedynie od porównania w ostatnim kroku pętli.
> 
> Dla losowych danych z dużym prawdopodobieństwem będzie to false
> :)

Do tego przed chwilą doszedłem, że błąd był w samej konstrukcji pętli. 
Przerobiłem tą wewnętrzną tak:
powtorzenie:=false; //inicjacja, jak mówisz
for k:=1 to i-1 do
    if  (tablica[k]=tablica[i]) then
                 powtorzenie:=true;


-- 
Pozdrawiam, Krzysztof
Technical Details
Message-ID: <hgnm5n$u2c$1@news.onet.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
References: <hgncmq$26b$1@news.onet.pl> <hgnij5$196$1@inews.gazeta.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!not-for-mail
From: "Krzysztof W." <cysio123@interia.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: zagwozdka - pętla for i ustawianie zmiennej
 logicznej...
Date: Mon, 21 Dec 2009 12:28:54 +0100
Organization: http://onet.pl
Lines: 30
Message-ID: <hgnm5n$u2c$1@news.onet.pl>
References: <hgncmq$26b$1@news.onet.pl> <hgnij5$196$1@inews.gazeta.pl>
NNTP-Posting-Host: fhe122.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1261394935 30796 83.13.186.122 (21 Dec 2009 11:28:55 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Mon, 21 Dec 2009 11:28:55 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.23 (Windows/20090812)
In-Reply-To: <hgnij5$196$1@inews.gazeta.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit