hojrak6

Ja polcam jechac tak by nie byc wczesniej. Ja niestety bylem 30 minut przed moim wejsciem, zeby sie dowiedziec od tych co juz mieli to za soba jakie komisja zadaje pytania itp. Oczywiscie takich osob jest wiecej. I stoisz ze znajomymi z ktorymi olewales kazdy spr, totalny luzik 3 lata sredniej, a przed matura wszyscy strasznie zdenerwowani i ty zaczynasz razem z nimi panikowac. Potem wchodzisz tak " posrany" ze nie mowisz polowy co miales powiedziec. U mnie po 3 osobach byly wyniki, wchodzisz patrzysz na swoja nauczycielke i odrazu widzisz czy wszyscy zdali z tej 3, u mnie byla bardzo usmiechnieta odrazu wiedzialem ze dalem tylko niewiedzialem na ile.

Witam Jezeli zaczynasz i masz juz ksiazke "Symfonia c++" J. Gębrosza to smialo mozesz od niej startowac. Mialem dosyc dawno w rekach 1 czesc i z tego co pamietam byla napisana zupelnie od podstaw. Rowniez mozesz na wstepie poprobowac sil w Pascalu czy delphi, tu moge polecic zolta biblie A. Marciniaka. Jezeli uczysz sie programowac bo chcialbys isc na studia informatyczne i wybral bys przypadkiem Politehnike Poznanska to radze jzu zaczac wkuwac na pamiec Zolta Biblie. Pozdrawiam

Moglbys mi pomuc z tym elementem losowym, bo niewiem jak sie za to zabrac. Mi sie caly czas wydaje ze to random dobrze losuje element losowy. Kumpel pisze to w c. On tez tak zmienil i mu sortuje to w 6 s. a mi po 2 godzinach niechce sortowac. Mi Tablice 5 tysiecy sotuje 65 sekund, a jemu tablice 250tys w 6 sekund.

No a wlasnie o to chyba chodzi zeby np liczba elementow w tablicy byla 5 i przykladowo sortowalo sie wedlug 4 elementu, bo jezeli bedzie spelniony warunek o ktorym mowisz to przeciez bedzie znowu srodkowy element. Chyba ze ja cos zle rozumiem.

Witam Mam takie pytanko, aby powyzszy kod quick sorta zmienic na quick sorta przez element losowy to wystarczy tylko zmienic podzial:= tab_sort[(Lewy + Prawy)div 2]; na Podzial:= tab_sort(random(lewy + prawy))?? bo dziala mi to dla tablicy do 5tys puzniej posortowanie trwa wieki. Musze posortowac tym tablice 250tys, a gdy ja zapuscilem to po 2 godzinach nadal program sortowal.

Mozesz jeszce oblukac to: znowu cos nie chce dzialac. Procedure quicksort(Lewy, Prawy: integer); Var i,j: integer; podzial, x:integer;begin i:=Lewy; j:=Prawy; podzial:= tab_sort[(Lewy + Prawy)div 2]; Repeat while tab_sort[i] < podzial do Inc(i); while podzial< tab_sort[j] do Dec(j); if i<= j then Begin x:=Tab_sort[i]; tab_sort[i]:=tab[j]; tab_sort[j]:= x; Inc(i); Dec(j); End; Until(i>j); if (lewy < j) then quicksort(lewy,j); if (i < prawy) then quicksort(i, prawy);end;procedure TForm1.Button8Click(Sender: TObject);var i: integer; a: string;BEGINquicksort(1,ilosc_el);for i:=0 to ilosc_el do a:=a + inttostr(tab_sort[i]) + ' ';Richedit7.Text:= a;END; Juz poprawilem, ponizszy kod dziala: procedure QuickSort(Lewy, Prawy : integer);var i, j : integer; podzial, x : integer;begin i := Lewy; j := Prawy; podzial := tab_sort[(Lewy+Prawy) div 2]; repeat while tab_sort[i] < podzial do Inc(i); while podzial < tab_sort[j] do Dec(j); if i <= j then begin x := tab_sort[i]; tab_sort[i] := tab_sort[j]; tab_sort[j] := x; Inc(i); Dec(j); end; until (i > j); if Lewy < j then QuickSort(Lewy, j); if i < Prawy then QuickSort(i, Prawy);end;procedure TForm1.Button8Click(Sender: TObject);var i: integer; a: string;BEGINquicksort(1,ilosc_el);for i:=0 to ilosc_el do a:=a + inttostr(tab_sort[i]) + ' ';Richedit7.Text:= a;END;

nadal cos nie tak. Teraz sie cos sortuje ale niewiem skad te liczby, sam zobacz: Do posortowania: 149 129 610 28 2 582 723 371 226 404 134 907 223 465 258 799 940 899 499 512 728 332 Po sortowaniu: 5 5 5 5 5 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 252 EDIT: Niemoge rowniez sobie poradzic z generacji liczb tak aby liczby rosly a pozniej malaly. Tak zwane zbocze czyli dla 20 elementow tablica wtgladala: 1,2,3,4,...10 20,19,18...11 dla 50 1,2,3,4..25,50,49,48....26 wydaje mi sie ze ponizszy algorytm jest dobry ale 2 czesc czyli zbocze opadajace pokazuje na wszystkich miejscach 1 liczbe czyli zamiast 20,19,18 jest 10,10,10 a w drugim przykladzie 25,25,25, zawsze 50% podanej liczby elementow. Begin for i:=0 to (ilosc_el div 2) do Tab[i]:=i; for j:=(ilosc_el div 2)+1 to ilosc_el do begin for k:= ilosc_el downto ilosc_el div 2 do Tab[j]:=k; end; end;

Tzn. program sie kompiluje dobrze ale podczas dzialania programu jak klikne na przycisk od sortowania to wyskakuje ten error. Jak zrobie z menu Run/Step over to wskazuje ta linie for i :=0 to High(temp) do

Cos nie dziala tylko niewiem co. Wyskakuje error ze niema dostepu to jakiegos adresu pamieci.

Witam Stoper juz zrobilem. Znalazlem w ksiazce helionu " Praktyczny kurs Delphi" jak to zrobic. Co do zmiennej ilosc_el to poprostu ilosc elementow tablicy ktora wprowadzam przez komponent EDIT. czuli poprostu tab_sort: [1 .. ilosc_el] of integer; Ogolnie juz mnie wkurza to sortowanie przez zliczanie, niewiem czmu duzo elementow sortuje a malo nie. Jeszce totalnie neiwiem jak sie zabrac za sortowanie stogowe (przez kopcowanie). Dzieki za odpowiedzi Pozdrawiam

Witram Ponizej jest sortowanie przez zliczanie. Niewiem dlaczego ale nie dziala mi to za dobrze. Dla malej liczby elementow nie dziala w ogole, poprostu sie przepisuje tablica wejsciowa. Dla wysokiej liczby elementow sortuje dobrze lecz np. na poczatku jest zbyt wiele 0 lub na koncu sie wysypuje i przepisuje jak leci bez sortowania. procedure TForm1.Button5Click(Sender: TObject);var i,c:integer;k:integer;pomoc: array [0..250000] of integer; a: string;beginfor i:=1 to ilosc_el do pomoc[i]:=0;for i:=1 to ilosc_el do inc(pomoc[tab_sort[i]]); c:=1;for i:=0 to ilosc_el do begin for k:=1 to pomoc[i] do begin tab_sort[c]:=i; inc(c); end; end;for i:=1 to ilosc_el do a:= a + inttostr(tab_sort[i])+ ' ';richedit5.Text:=a;end; A co do zegara to jhak go urzyc ?? na poczatku algorytmu robie timer1.enable:= true; a na koncu co trzeba zrobic zeby wyplul do labela1.caption czas trwania ?

Witam Mysle ze w memo a richedicie nie bedzie roznicy. Problem polegal na tym ze do richedita sklejalem w zlej petli. Zrobilem tak ze do innej petli wstawilem dodatkowa zmienna gdzie sklejalm do niej calosc i po za petelkami dalem richedit= zmienna; teraz 250tysiecy wypisuje sie w sekundke moze dwie. Teraz mam problem jak zrobic zegar zeby porownac te sortowania. Wiem ze gdzies tu na forum kiedys to bylo ale niemoge sie doszukac cos :( Chce tez wrzucic Progressbara ale niewiem jak sie za to zabrac. Jutro zaczne na ten temat przeszukiwac google, narazie zelezy mi na tym zegarze bo to potrzebuje do zadania a progressbar to taki dodatek sobie bedzie. Co prawda jeszcze nie udalo mi sie posortowac babelkowo 250tys bo nie wytrzymuje do konca :) za dlugo to trwa. Jak juz bede mial zegar to wtedy pozwole mu dokonczyc. Pozdrawiam

Witam Mam taki problem. Musze napisac program ktory sortuje na 5 roznych sposobow tablice 10tys - 250tys elementowa. Zrobilem sobie najpierw okienko w ktorym generuje losowo 250 tys i wlasnie wypisanie w tym okienku( samo wypisanie bez sortowania) trwa mniej wiecej 5 minut na richedicie lub 2 minuty na StringGridzie. Niewiem jak to przyspieszyc. Sortoweania jeszce nie napisalem bo narazie musze jakos sie z tym uporac. Na Richedicie zrobilem to tak; for i:0 to 250000 do tab[i]:= Random(1000);Richedit1.text := Richedit1.text + inttostr (tab[i]); A nna stringridzie: for i:=0 to 250000 do for x:= 0 to 100 do for y:=0 to 2000 do Begin tab[i]:= Random(1000); stringgrid1.cells[x,y] := tab[i]; Strasznie dlugo sie wypelniaja te okienka, co robie zle?? Z gory dziekuje za pomoc. Pozdrawiam

Witam Wlasnie kupilem Benq 1650. Chyba jedna serja im nie wyszla, kupilem nagrywarke wchodze do domu podlaczam a tu niechce mi tacka wyjechac. Pojechalem odrazu do servisu i odrazu wymiana na nowa( ta co oddawalem zaznaczylem zeby nie wcisneli mi tej samej) Wchodze do domu podlaczam i to samo tacka nie wyjezdza. W koncu w servisie sprawdzili nastepna i dzialala. Czy wam tez jak macie wlozona plyte ale z niej nie kozystacie lampka caly czas sie pali ?? Wczesniej mialem LG, SAMSUNGA i tam dioda palila sie tylko wtey jak byl odczyt z cd, po chwili jak sie juz nie korzystalo z cd to gasla a tu mi sie caly czas pali.

A ktora technologia dziala szybciej label flash czy light scribble ?

Witam Mam do wyboru te 4 nagrywarki: Lite-ON DVD+/-RW SHW-16H5S bulk http://www.znak.pl/index.php?cid=232&scid=...HW16H5S+bulk+bl Benq DVD+/-RW DW1655-0B3 LightScribe bulk http://www.znak.pl/index.php?cid=232&scid=...n1655-0B3+bu+bl Nec DVD+/-RW ND-3551A LabelFlash bulk http://www.znak.pl/index.php?cid=232&scid=...c3551A+bulk+cza LG DVD+/-RW GSA-H20L LightScribe bulk http://www.znak.pl/index.php?cid=232&scid=...dLGH20L+bulk+bl Zalezy mi na: - niezawodnosci (mialem samsunga po 5 miesiacach nieodczytywal i nie nagrywal cd a z dvd bylo ok) - ciszy - dobry label flash lub light scrible ( co lepsze??) Z gory dzieki za pomoc Pozdrawiam

Jak w temacie, gdzie moge kupic papryczki chili w Poznaniu? Kolo mnie nigdzie niema.

Witam Czy na win 64 bit chodza borland delphi, czy c++ albo corel ? Pozdrawiam

Dodaj ReadLn pomiedzy End; a End. if (a>5) then begin writeln ('miales podac liczbe z przedzialu od 1 do 5!'); readln; end; ReadLn; end.

Czym sie roznia te modele ?? Na poczatku myslalem ze tylko kolorem bo 4167B byla biala a 4167RB czarna ale pozniej znalazlem tez 4167B czarna wiec teraz niewiem.