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"...
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...
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;...
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 ?
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
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];...
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...
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...
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...
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
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 ...
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.
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';...
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];...
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...
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ę...
Do zadania 1: [url=http://pl.wikisource.org/wiki/Sorto...
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...
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,...
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...
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ć :)
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ć ?
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.
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...
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...
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...
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
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
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...
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...
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?...
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 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 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...
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;...
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"...
sortowanie pascal sortowanie alfabetyczne sortowanie automatyczne
sterownik twain router astra wymiana xiaomi
agregat prądotworczy krups kalibracja
Usuwanie błędu czujnika kosza w sterowniku Titanic Optymalny układ pompy ciepła i kotła gazowego
