Article View: pl.comp.lang.pascal
Article #92929zagwozdka - pętla for i ustawianie zmiennej logicznej...
From: Krzysztof W.
Date: Mon, 21 Dec 2009 08:47
Date: Mon, 21 Dec 2009 08:47
33 lines
2162 bytes
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-mailShow 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