Po pierwsze, to z tego co zrozumiałem, to potrzebujesz kod źródłowy, a nie plik wykonywalny, tak? Bo jeżeli tak, to jest to post w stylu: Napiszcie mi taki program, bo ja sam nie umiem. Pozatym nie wiem czy dobrze zrozumiałem problem... Potrzebujesz program, który uporządkuje zbiór liczb, np rosnąco bądź malejąco? Napisz dokładniej, o co chodzi w tym...
Drodzy koledzy. A po co utrudniacie sobie życie, kupując poszczególne pola, skoro można przepisać cały rekord. Poza tym, sprawdzanie tylko pierwszej litery przy sortowaniu, to "lekka bzdura". Czy powinienem przenieść nazwisko jaką pierwsze w strukturze danych? To nie ma żadnego znaczenia. Skoro odwołujemy się do konkretnego pola w rekordzie, to "miejsce"...
Witam, Poniżej końcówka programu: // sortowanie repeat Pom:=False; for i:=1 to x-1 do if tablica[i+1].nip < Tablica[i].nip then begin Pom:=True; pomocnicza:=tablica[i+1]; tablica[i+1]:=tablica[i]; tablica[i]:=pomocnicza; end; until Pom=False; writeln ('posortowane wedlug nipa '); for i:=1 to x do writeln (tablica[i].nip); readln; end. Pozdrawiam
1. Po co dwa razy deklarujesz dokładnie taki sam typ danych? To niepotrzebne, a w pewnych sytuacjach może powodować błędy. 2. Z treści zadania wynika, że w drugiej tablicy masz mieć nie integer a wskaźniki do integer. Więc dwie deklaracje tablic są potrzebne, ale jednak nieco inne. 3. Po co to New i Dispose. Miała być tablica wskaźników, nigdzie nie...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
i chce aby sortowało od z do a Czyli random-owo wypełniamy kilka wierszy tabeli i sortujemy każdy osobno od a do z ?
program sortowanie; uses crt; var tab:array po pierwsze primo to kod pisz w znacznikach CODE. po drugie primo to strasznie pogmatwany ten twój kod. domyślam się, że chcesz zrobić sortowanie w kolejności rosnącej. Program Sortowanie; uses crt; var T:array[1..20] of integer; //wyswietlanie zawartosci tablicy na ekranie Procedure PokazTab;...
Przerobiłem twój program i troche go udoskonaliłem, np troszkę zautomatyzowałem zapis i odczyt - z menu nie jest już potrzebny. Nie jest całkiem dobry, ale się kompiluje i działa jeżeli użytkownik nie chce go zabić. Kompilowany na Borland Pascal. Teraz wygląda tak: [syntax=Pascal] program baza; uses crt; type ksiegarnia = record tytul, autor, rok, numer:string[20];...
Witajcie, miałem do napisania program, który miał odczytać liczby z pliku dane.dat, następnie wybrać z nich tylko liczby pierwsze i zapisać wynik do pliku wynik1.txt, a na sam koniec posortować liczby pierwsze od największej do najmniejszej a wynik zapisać do pliku wynik2.txt. Kodzik mam, i działa on do momentu wybierania liczb pierwszych, niestety...
Pytanie zadane trochę mało precyzyjnie, bo sortujemy pliki czy tablice, jeśli pliki to jak wielkie?co do bąbelków to dobre są, ale w szampanie. Możn wykorzystać jakąś armatę SQL np. Sortowanie w pamięci jest znacznie prostrze, jeśli chodzi o pliki, to nie zawsze cały musi zmieścić się w pamięci, wystarczy może odczytać jedno pole z rekordu (klucz) i...
Możesz przekazać funkcję porównującą do procedury sortującej przez parametr. To powinno częściowo rozwiązać twój problem, a nie są to jakieś nieudokumentowane cuda. Warumek: nagłówki przekazywanych procedur muszą być zadeklarowane i identyczne (zgodne z deklaracją). Robiłem to już w starszych wersjach Pascala (sortowanie jedną procedurą liczb i napisów),...
Wprowadziłem trochę ładu w ten chaos (czytaj : Twój kod :) ). Spróbuj w ten sposób : [syntax=pascal]uses crt; const N=4; var d: array[1..N] of integer; i,j,x : longint; begin textbackground(0); clrscr; textcolor(12); randomize; writeln(' liczby przed sortowaniem: '); for i:=1 to N do begin d[i] :=(random(3189)+6126); writeln (d[i] ) end; writeln(' liczby...
Algorytmów sortowania znajdziesz całą masę. Na przykład sortowanie bąbelkowe: http://pl.wikisource.org/wiki/Sortowanie... W przykładach porównuje się liczby, a nie ciągi tekstu, ale wystarczy napisać procedurkę porównującą dwa ciągi tekstowe. Porównujesz wtedy ciągi, ale sortujesz liczby - indeksy. Być może w Twojej odmianie Pascala...
http://free.of.pl/t/tpdoodek/zrodla.htm Tam powinieneś znaleźć wszystko. Z ciekawości ściągnąłem sortowanie i jest wszystko ładnie opisane. Powodzenia
Już wiem jaki miałem błąd - zjadłem jedno end; Dziękuję ;). Teraz tylko sortowanie. Na razie mi nie idzie, ale próbuję ;)
Witam! Mam za zadanie - Przygotować implementację sortowania przez łączenie z użyciem 3 kolejek. Napisałem taki programik i mam cały czas problemy z tym sortowaniem, nie daje rady tego napisać, próbowałem już kilka razy i nic z tego :( Prosiłbym o pomoc, jakieś wskazówki itp. Kod programu wygląda następująco: [syntax=pascal]program sortowanie; uses...
hejka mam prośbę czy ktoś może mi podać jak powinna wyglądać procedura czynie wiem jakie polecenie w Pascalu liczące ilość porównań liczb w sortowaniu bąbelkowym? program sort; const zakres=99; var Liczby:array[1..zakres] of integer; i,j,k,n,wybor:integer; procedure czytaj; begin writeln ('program kt˘rego zadaniem jest sortowanie...
Proszę wszystkich o pomoc nie wiem jak napisać program na tablicach aby wypisywał nazwy od najkrótszej do najdłuższej ?? czy ktos moze mi go napisać z góry dziękuje ...
Witam otóż mam problem z napisaniem programu w pascalu jego treść brzmi: Napisz program, który pobiera od użytkownika określoną przez niego liczbę rekordów danych osobowych (typu rekordowego) i umieszcza w pamięci (typ tablicowy). Następnie dane te powinny zostać posortowane wg jakiegoś klucza (np. wiek) i wyświetlić z tablicy całą, już posortowaną,...
Witam Ludzie pomocy - nie moge poradzic sobie z sortowaniem Chce posotrowac liczby real: 16.25 14.36 22.58 1.45 7.13 0.32 itd te dane czytam z pliku - to umie Jak zrobic to sortowanie od najmniejszej do największej Programy pisze trzy razy do roku , wiec nie jestem w tym bystry. Bardzo zależy mi na tym sortowaniu. Szukałem w 'Szukaj' ale nie bardzo...
Faktem jest, że SCL jest językiem "wysokiego" poziomu przypominającym trochę Pascal i można w nim programować (a nawet trzeba 'skomplikowane' algorytmy numeryczne np. sortowanie ) ale pewnych rzeczy nie da się w nim zrobić, albo jest to niecelowe. No i wtedy przesiadamy sie na stary i wszystko mogący zrobić z PLC podobny do asemblera język STL.
Trzeba by zrobić listę lub tablice ze stringami. Sortowanie może polegać w taki sam sposób jak sortowanie liczb (można porównywać kody ASCII - ich ułożenie rośnie wraz z kolejnymi literami alfabetu). Trzeba by tylko rozważyć sortowanie wg kolejnych liter (pewnie za pomocą rekurencji jakiejś). Zadanie dość typowe na pewno coś znajdziesz Google "sortowanie...
Hej potrzebuję pomocy z bazą danych w Pascalu. Potrzebuję aby program szukał osób po nazwisku i wieku i je wyświetlał(w osobnych procedurach), miał możliwość modyfikowania dane osoby, wypisywanie wybranego elementu i sortowanie względem wieku. Z góry dzięki za pomoc. [syntax=pascal]program baza_danych_osob; const MaxOsob = 100; Plik_Bazy_Danych = 'osoby.txt';...
Zmodyfikowałem odrobinkę twój kod. Od teraz, proszę zamieszczać ten kod (jeżeli będzie taka potrzeba) w wersji spakowanej, bo jest on dość długi co poważnie utrudnia przeglądanie wątku. 1. Pozmieniałem "odrobinkę" nazwy zmiennych. 2. Dodałem definicję rekordu dla klienta wypożyczalni. 3. Usunąłem zbędne tablice, zmienne globalne itd. 4. Dodałem funkcję...
arnoldziq. Ten minutnik ma liczyć minuty i sekundy. Alarm nie może włączać się na określoną godzinę. Minutnik mogę ustawić i cofnąć kodem. To jeszcze nie wszystko. Tam jeszcze trzeba dołożyć kilka rzeczy. Ale to na później. Wszystko musi działać jako tekst. Ten minutnik jest wyświetlany tekstem oraz ten kod sterujący. Czyli prościej tłumacząc, można...
Przy takim type (rekordowym) jak masz teraz, to sortowanie będzie olbrzymim problemem. Nie bardzo można posortować części rekordu. Teraz kwestia interpretacji tego zadania; czy za "typ rekordowy" uznamy: [syntax=pascal]type losowanie = record wyniki : array[1..6] of byte end; [/syntax] czy też nie. Jeżeli uznamy, ze to jest to o co chodziło nauczycielowi,...
Chciałem napisać program sortujacy lancuchy znakow na dlugosc i alfabetycznie. O ile z sortowaniem na dlugosc nie ma problemu to z alfabetycznym jest. Wszystko ladnie kompiluje, przy odpaleniu dziala normalnie i dopiero gdy porownuje ciagi znakow wywala errora. Kompilator: FPC 2.04 program sortowanie; var lan:array[1..151] of string[201];...
Do zadania 1: [url=http://pl.wikisource.org/wiki/Sorto...
http://pl.wikipedia.org/wiki/Sortowanie_... Dodano po 3 A żeby było smieszniej, na niemieckiej stronie algorytm w Javie łatwy to przetłumaczenia: http://de.wikipedia.org/wiki/Radixsort Po holendersku jest nawet w pascalu: http://nl.wikipedia.org/wiki/Radix_sort Po portugalsku C# i parę innych: http://pt.wikipedia.org/wiki/Radix_sort Na rosyjskiej...
Wielkie dzieki:). jakos se juz poradze. Goraco pozdrawiam Dodano po 41 A moze macie pomysl na usuwanie danych?? Pozdr:)
Witam ! Mam program w pascalu : program noclegi; uses crt; type THotel = record nazwa : string; pokoi : integer; miejscowosc : string; klasa : 1..5; end; const HOTELI = 20; var Hotele : array[1..HOTELI] of THotel; Baza : text; i : integer; begin ClrScr; Assign(Baza, 'HOTELE.TXT'); Reset(Baza); for...
Ponadto w mojej propozycji jest mniej porównań. W takim razie proszę napisz nam sortowanie bąbelkowe w pascalu na takim przykładzie co ja dałem i policzymy ile u ciebie będzie porównań. Bo przestaw(a sama zamiana tytułów (wg kol. lanky) zrobi ci tylko zamieszanie w bazie Rozumiem ,że powinienem od razu całego gotowca tu wstawić ?
Prosta implementacja Bubble Sort dla twoich danych : procedure sortuj_wg_tytulu; var i,j : integer; f1,f2 : film; p : file of film; begin {procedura sortowania rekordow z zapisem kolejnosci do pliku} {bardzo prosta, ale bardzo wolna } assign(p,'filmy.dat'); {otwieramy plik} reset(p); {reset...
Eh, no widzicie. Dalej nie mogę się odzwyczaić od Pascala :) Poprawię błędy w weekendzie i jak coś jeszcze będzie trzeba to dam znać :)
Witaj. Jeśli jest to możliwe to może podasz jakiś przykład. Nie mam pojęcia jak to deklarować w VB.6 cos takiego robiłem w Pascalu. Tu nie mam pojęcia jak zacząć. Może dasz jakiś przykład, jakiekolwiek sortowanie. Dzieki i pozdrawiam.
A sortowanie najprościej to chyba z tablicy klepnąć ( i szybkie sprawdzenie czy już podana liczba była wprowadzona). Klepałem coś takiego na zaliczeniach z turbo... tablica[np 100 elementow] zapisana zerami-> <<PETLA>> wprowadz liczbe X -> jeżeli tablica [x]=1 wróć -> tablica[x]=1 <<KONIEC PETLI>> potem wyświetlenie...
Piszę program, który docelowo ma pokazywać sortowanie bąbelkowe, oto mój bardzo skromy szkielet programu: [syntax=pascal]uses graph,crt; const n=20; var ster,tryb,i,j,p,x,k: integer; d: array[1..n] of integer; begin ster:=VGA; tryb:=VGAHi; InitGraph(ster,tryb, 'C:\TP\BGI'); randomize; setcolor(white); for i:=1 to n do d[i]:= random(100); outtextxy(1,1,'przed...
Bardzo nieładnie jest to napisane - naucz się używać w kodzie programu klawisza Tab i dodatkowych spacji przy pętlach/warunkach itp. Wydaje mi się że problem tkwi w tym iż w drugiej pętli for zwiększasz wartość zmiennej b, a wczytujesz do tablicy w której podstawiasz zmienną a - więc dla każdego z 10 przypadków zapisujesz w tym samym miejscu. Co do...
Z ciekawości są jakieś funkcje sortujące w Delphi ? Bo np w C quick sort działa dobrze ale trzeba mu wzorową funkcję za wzorzec
Witam i proszę o pomoc w rozwiązaniu tych zadań. Mam dokonać analizy problemu, narysować schemat blokowy zastosowanego algorytmu a następnie napisać program w języku Pascal, który: *Będzie obliczał wartość wielomianu stopnia n (n nie większe niż 5) o współczynnikach podanych przez użytkownika dla podanego x a następnie rysował wykres tego wielomianu...
Powiedz mi... Czy w jakimś kursie jest napisane jak usuwać, filtrować i sortować elementy w tablicach ? Raczej wątpię. Sortowanie to może coś by się znalazło. I tak nawiasem tu nie chodzi o wiek. Po prostu ja się zabiję jeżeli nie będę miał tego programu do piątku. Za brak czekają mnie dwie 1, a to się równa NDST na półrocze i to tylko z tego jednego...
Implementacji prostych algorytmów w pascalu jest sporo. Poszukaj sortowania, metoda zależy od Ciebie. Wpisz w google choćby "sortowanie bąbelkowe" a znajdziesz algorytmy lub nawet gotowe kody, nie ma filozofii przekształcić je na własne potrzeby wg. sugestii arnoldziq
Witam. Proponuje odwiedzic strone: http://omklnx.il.pw.edu.pl/~rgajewski/pa... Pozdrawiam. Dodano po 20 (sorki, ale tagi mi sie troche pokopaly :))
A po co tak kombinować ? Nie lepiej wczytywać po kolei zmienne i wtedy porównywać ? [syntax=pascal]writeln('Podaj kolejny element: '); readln(x[i]); if (x[i] > max ) max:= x[i]; if (x[i] < min ) min:= x[i];[/syntax] Warto pamiętać, aby na początku max i min miały wartość pierwszego elementu wczytanego do tablicy. A po co grupowanie na jakieś 2...
Jesli nie bylo napisane, ze ma nie byc powtorzen to nie ma co przkombinowywac na sile i doszukiwac sie tego czego nie ma. Zawsze mozna powiedziec, iz robilo sie zgodnie z instrukcja. Jesli autor nie pisal o tym, iz liczby nie maja sie powtarzac, to byc moze chcial utrudnic samo sortowanie, bo wtedy trzeba rozpatrywac rowniez przypadek taki kiedy liczby...
Ja myślałem to mniej więcej tak: Główny program z menu całym , dodawanie, kasowanie, sortowanie itd 1 plik- sprzedaż- przechowuje jak pisałels; ID towaru, ilosc jego id-dostawy itd 2 plik - kupno -inwentaryzacje produktów, ilsoc aktualnie składowana itd. Teraz, wybieram opcje sprzedazy towaru np 2 książki, po akceptacji ilosc w pliku kupno sie zmniejsza?...
Mam napisać "prosty" programik jako pracę zaliczniową (1 z 3). Problem polega na tym, że niwząb nie pamiętam już Pascala. Może ktoś pisał kiedyś coś podobnego i mógły sie podzielić... Treści: 1) Napisz program realizujący następujące zadania: -Zdefiniuj rekord, na który składają się dane o samochodach: marka, kolor, rok produkcji, uwagi - Wczytuje dane...
Pierwsze z brzegu zapytanie do [url=wiki]http://pl.wikipedia.org/wiki/S... [syntax=pascal] procedure bubbleSort( A : lista elementów do posortowania ) n = liczba_elementów(A) do for (i = 0; i < n-1; i++) do: if A[i] > A[i+1] then swap(A[i], A[i+1]) end if end for n = n-1 while n > 1 end procedure [/syntax]
Słowo "sortowanie" to był taki skrót myślowy bo sprawdzenia, który element jest wcześniej od innego używa się m.in. w sortowaniu. Ale na temat: Podsyłam funkcję, której podajesz dwie wartości ( string ) a zwraca zwróci wartość TRUE gdy wyraz pierwszy jest później w alfabecie niż drugi. Wielkość liter nie ma znaczenia. Dla wyrazów z polskimi literami...
Witam , mam problem ze sortowaniem . Program działał poprawnie dopóki nie dołączyłem sortowania . Program niby się uruchamia ale po naciśnięciu buttonu chwilkę łapie zawiasa i wywala jakieś dane od procesora . Nie wiem co jest grane . Dodam że samo sortowanie znalazłem w internecie i je tutaj chciałem wykorzystać . [syntax=pascal] unit sortowanie1;...
Witam wszystkich. Mam mały problem z napisaniem programu w Turbo Pascalu, program ma zawierać tablicę jednowymiarową do 1000, użytkownik decyduje czy chce wprowadzić następną liczbę czy też skończyć wprowadzanie, na końcu program bąbelkowo sortuje te liczby. Udało mi się napisać program który ma wszystko poza sortowaniem liczb. Szukałem w internecie...
kiedy pascal dochodzi do miejsca gdzie jest koniec liczb to zwraca zera za każde puste pole, ale kiedy zaro będzie wpisane jako liczba w pliku to już nie posortuję. Napisałem prog co sortuje liczby w pliku ale w tych liczbach nie może być zera, jak to zrobić aby prog brał pod uwagę zero? Ten kod źródłowy niestety nic mi nie mówi, ale jeszcze go poanalizuję....
mam książkę "Software Tools in Pascal" by Brian W. Kernighan (był chyba jeszcze jakiś współautor) kupiłem w antykwariacie już bez dyskietki, skaner mi zdechł, ale kiedyś widziałem gdzieś w sieci komplet źródeł z tej książki, mam polskie wydanie "Narzędzia programistyczne w języku pascal" oczywiście w księgarniach jest "The art of computer programming"...
pascal sortowanie sortowanie alfabetyczne sortowanie automatyczne
formatowanie seagate expansion samsung eject ściemniacz żarówek ledowych
schemat zapłonu polonez giełda kraków
Chłodziarka Electrolux - napięcie międzyfazowe, brak oświetlenia i termostatu Wzmacniacz włącza się i wyłącza - przyczyny i diagnostyka
