🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

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

#92929
From: Krzysztof W.
Date: Mon, 21 Dec 2009 08:47
33 lines
2162 bytes
Witam szanownych grupowiczów.

Jest sobie program, który przy pomocy pętli for sprawdza wszystkie 
elementy tablicy pod kątem powtórzeń - ile razy dany element występuje w 
tablicy. Wersja "ładniejsza" ma wyświetlać ilość powtórzeń danego 
elementu tylko raz. Kod wygląda tak:

for i:=1 to n do begin
                  ile:=1;
                  for k:=1 to n do
                    if (tablica[k]=tablica[i]) and (k<>i) then inc(ile);

                  for k:=1 to i-1 do
                     if  (tablica[k]=tablica[i]) then
                                                  begin
                                                  powtorzenie:=true;
                                                  break;
                                                  end
                                                 else powtorzenie:=false;
                  if powtorzenie=false then
                       writeln('Element nr ',i,' = ',tablica[i],' 
wystepuje w tablicy ',ile, ' raz(y).');
                  end;


Czy ktoś potrafi mi wyjaśnić, dlaczego MUSZĘ wstawić to nieszczęsne 
przerwanie pętli(BREAK) po ustawieniu zmiennej na true? bez tego program 
zachowuje się tak, jakby polecenie powtorzenie:=true "przestawiało" 
zmienną po każdym przebiegu pętli. Czyli jak coś było true i znowu ma 
być true to wychodzi false... Ot, ciekawostka :-D

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

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: zagwozdka - pętla for i ustawianie zmiennej
 logicznej...
Date: Mon, 21 Dec 2009 09:47:22 +0100
Organization: http://onet.pl
Lines: 33
Message-ID: <hgncmq$26b$1@news.onet.pl>
NNTP-Posting-Host: fhe122.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1261385242 2251 83.13.186.122 (21 Dec 2009 08:47:22 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Mon, 21 Dec 2009 08:47:22 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.23 (Windows/20090812)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit