[M.....m]

Może ktoś zobaczyć co jest źle? Treść zadania pisane trochę z głowy

http://pastebin.com/Bm2sUrTU

#programowanie #pascal

[porque]

@Maxxtom: mogles jeszcze dac co Ci wypluwa kompilator ;) lub chociaz wspomniec jaki blad wyskakuje :) bo nie chce mi sie czytac :D

[k.....b]

@Maxxtom: słyszałeś o czymś takim jak wcięcia?

[Yahoo_]

@Maxxtom:

int/int daje inta (np. 7/2 =3) pewnie tu masz błąd.

[M.....m]

@porque: np przy l1=3 i l2=6 daje wynik 2.25 zamiast 4.5

[porque]

@Maxxtom: po pierwsze zliczanie tych liczb ile wystepuje ich, mogles w tej samej funkcji for walnac, a nie pisac od nowa druga, tylko dodajaca x, mogles jebnac x nizej pod suma, ta linjkie z tym x i juz :D

[porque]

@Maxxtom: jeszcze dla pewnosci bym dal potem podnianke tych intow na real :D

[porque]

@Maxxtom: btw pascal zaczyna liczyc od zera czy 1? :D i

[porque]

@Maxxtom: i wydaje mi sie ze masz w ogole poza ifem ta jedna rzecz :D albo brakuje zakonczenia do ifa :D endem :D bo masz if them i potem #!$%@? begin end dwa razy, tak mozna w ogole w pascalu? i ta druga pentle tez zlicza do ifa? czy po prostu robi to dwa razy :D i potem dlatego wychodzi od wiekszej liczby do mniejszej, zrob jak mowielm walnij ta linijke

[applicative_functor]

@Maxxtom: A czemu robisz to tak na około? Przecież to się sprowadza do policzenia średniej dwóch liczb. (l1 + l2)/2

[aRth]

@Maxxtom: Łatwe zadanie, a ty strasznie to sobie skomplikowałeś. Po co komu pętla do obliczania sumy, jak wzór na sumę kolejnych liczb naturalnych jest powszechnie znany. To zwykły ciąg arytmetyczny o różnicy 1. Jeśli l1 jest większe od l2 to zwróć (2*l1+(l2-l1))/2, w przeciwnym przypadku odwrotnie.

[Rincewind]

Przekombinowane to strasznie. Po co dwa różne przypadki dla

liczba1 < liczba2

i

liczba1 > liczba2

? Lepiej na początku sprawdzić, czy

liczba1 < liczba2

a jeśli nie to zamienić. Po drugie: po co zliczanie ilości liczb sumowanych? Przecież wynosi ona (uwaga)

liczba2 - liczba1

. :P

Proszę: http://ideone.com/1HFGW3

[Rincewind]

@Maxxtom: A w ogóle można to zrobić w jednej linijce (przy założeniu że

liczba1 < liczba2

):

dz := (liczba2 * (liczba2 + 1) - liczba1 * (liczba1 - 1)) / (2 * (liczba2 - liczba1));

:D

[M.....m]

@porque: dobra zmieniłem sume i x na real i działa :)

@Rincewind: masz racje, dzięki

[M.....m]

@Rincewind: jednak zliczanie ilości liczb jest przydatne bo przy l1=3 i l2=6 l2-l1=3 a tych liczb jest 4

[8211]

@Maxxtom: no to liczba2 - liczba1 + 1

[Rincewind]

@Maxxtom: No tak, bo przedział jest obustronnie domknięty. W takim razie jak napisał @8211:

liczba2 - liczba1 + 1

.

[Rincewind]

@Maxxtom: Co w zasadzie upraszcza formułę którą podałem w drugim poście do średniej arytmetycznej tych dwóch wyrazów:

dz := (liczba1 + liczba2) / 2;

:)