zagwozdka - pętla for i ustawianie zmiennej logicznej... - Thread - go-pugleaf

Thread View: pl.comp.lang.pascal

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Krzysztof W. Mon, 21 Dec 2009 08:47

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

#92929

Author: 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

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

#92930

Author: Mirek
Date: Mon, 21 Dec 2009 10:27

39 lines
2401 bytes

On pon, 21 gru 2009 09:47:22 in article news:<hgncmq$26b$1@news.onet.pl>
Krzysztof W. wrote:
> Wersja "ładniejsza" ma wyświetlać ilość powtórzeń danego 
> elementu tylko raz. Kod wygląda tak:

Ładniejsza wersja to by była, gdybyś miał złożoność mniejszą
niż kwadratową ;)
 
>                  for k:=1 to i-1 do
>                     if  (tablica[k]=tablica[i]) then
>                                                  begin
>                                                  powtorzenie:=true;
>                                                  break;
>                                                  end
>                                                 else powtorzenie:=false;
[...] 
> Czy ktoś potrafi mi wyjaśnić, dlaczego MUSZĘ wstawić to nieszczęsne 
> przerwanie pętli(BREAK) po ustawieniu zmiennej na true?

Dlaczego nieszczęsne?

Nieszczęsna (czytaj niepotrzebna) jest ta pętla.
Ten sam rezultat otrzymasz zastępująć pętlę instrukcją:
   powtorzenie:=ile>1;

Pomijam fakt nie zainicjowania zmiennej powtorzenie przed pętlą :(

> 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

Ciekawostką jest twoje rozumowanie.

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
:)

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

#92931

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads