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
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...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
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"...
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...
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 ?
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ę...
Witam, nie bardzo nadazam za twoim rozumowaniem: - masz tablice z praypadkowymi wartosciami - znajdujesz minimum w tej tablicy i co ? ->"Teraz potrzebuję te minimum wpisać do drugiej tablicy(wskaźników) tyle razy(bez powtarzania sie wartosci), aby ona była posortowana od najmniejszego do największego." - co chcesz z tym zrobic ? Czy minimum to najmniejsza...
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,...
Ja tam w ogóle nie widzę wywołania procedury sortuj() - z parametrami, które przyjmuje... Po wciśnięciu klawisza 8 wywołujesz jakąś sort, której nie zdefiniowałeś... Poza tym nie siedzę w Pascalu, ale jakieś dziwne wydaje mi się to zagnieżdżenie procedury zamien_dane w sortuj.
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];...
Tutaj pomagamy, podpowiadamy, nie podajemy gotowych rozwiązań. Proszę o wkład własny.
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),...
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...
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...
Niestety nie mam czasu pisać gotowych algorytmów dla ciebie :( wielkosc - max ilosc ludzi wpisanych tu masz przykład sortowania bąbelkowego najprostrzego dla jednej tablicy musisz dodać pytanie wg czego chcesz sortować i wtedy zamiast tablica dajesz naprzykład Nazwisko i sortują nazwiska musisz odrazu sortować resztę czyli przestawić wartości w innych...
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...
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ć ?
Już wiem jaki miałem błąd - zjadłem jedno end; Dziękuję ;). Teraz tylko sortowanie. Na razie mi nie idzie, ale próbuję ;)
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
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...
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ć :)
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...
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
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...
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...
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.
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
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.
Witam, chciałem podzielić się z kimś i przy okazji rozwiązać jedno zadanie z pascal'a. Zadanie jest złożone. Znam podstawy pascal'a ale to zadanie mnie przewyższa. Nie chce też żeby ktoś mi je rozwiązał bo wtedy niczego nie połapie. Zadanie jest takie: Napisać program tworzący 15 elementową jednowymiarową statyczną tablice liczb. Tablica powinna być...
Witam. Proponuje odwiedzic strone: http://omklnx.il.pw.edu.pl/~rgajewski/pa... Pozdrawiam. Dodano po 20 (sorki, ale tagi mi sie troche pokopaly :))
Witam mam lekki problem dla was którzy siedzą w pascalu pewnie banalny ale dla mnie jak narazie nie do przeskoczenia gdzyż jestem początkujący, napisałem programik sortujący 20 liczb wszystko było by oka gdyby po segregacji liczby nie powtarzały sie jak to prze robic pomóżcie ... program sortowanie; uses crt; var tab:array Postaraj się ograniczyć ozdobniki...
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ę....
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...
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...
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...
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...
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"...
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...
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]
Problem został rozwiązany :D W rozwiązaniu pomógł mi ten [url=http://forum.4programmers.net/Delph... Wychodzi na to że jeżeli indeksujemy tylko po wartości jednego pola to każde pole musi mieć unikalną wartość, inaczej program nie wie co zrobić z tym fantem (bo które ma być pierwsze skoro są takie...
W pętli repeat na końcu dopisz wyrzucenie danych z tablicy na ekran typu printf / writeln czy jak to się robi w języku w którym piszesz. czyli: repeat ...(jeden krok sortowania babelkowego) writeln(wypisz tutaj dane z tablicy) until ... Jeżeli ma to być robione wolno krok po kroku, to dodatkowo w repeat dodaj jeszcze jakąś przerwę funkcja sleep/delay...
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?...
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...
kolega olekewaagata na samym poczatku napisal jak to zrobic. musisz miec tabele, w ktorej bedziesz zapisywal pary liczb, teraz jesli podczas losowania taka para juz jest losujemy jeszcze raz, jak nie ma dodajemy pare pseudokod losuj(a) <--+ losuj(b) | jesli a>b to zamien a i b miejscami | sprawdz_tablice(a,b) | jesli jest...
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...
Poprawiony program: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; var pytania:array[1..50] of pytanie; wybrane:array[1..10] of pytanie; i,j,pom,prawidlowo:integer; wybrano:string; begin pytania[1].pytanie:='Polecen...
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...
Już dawno nie bawiłem się w Delphi ale jak dobrze pamietam używa sie tam Pascala. 1. Więc jeśli się nie myle pliki powinno otwierać cię tak jak w Pascalu. var pliki:array[1..16] of string; i:integer; p:text; liczba:integer; begin {tu sie powinno znaleść wypełnienie tablicy ścierzkami dostępu} for i:=1 to 16 do begin...
.identyfikator2); read(oceny,ucz Proszę pamiętać o używaniu znaczników . Opcja Listing kodu . Ostatni raz zwracam uwagę, kolejny post wyląduje w koszu. - arnoldziq
Witam, mam problem: napisałem program w turbo pascalu. Tworzy katalog plyt dvd. Problem jest taki, że nie działa i nie wiem, co może być nie tak(pewnie jest problem z ostatnimi linikami: menu). Proszę o pomoc. To mój program: Program Katalog_Plyt; uses Crt; type string30=string[30]; string25=string[25]; Plyta=record Tytul:string[30]; Rezyser:string[25];...
a może da się to sformułować jaśniej, bo jeśli miałbym to przetłumaczyć to wychodzi: jeśli i=1 (czyli 2. element tablicy) jest większy od 1. elementu tablicy to .... no właśnie to co - bo potem znowu jest if ??? Funkcja jest prosta tyle że nie jest to już pascal więc trzeba pomyśleć :idea: if(tab[i]>tab[0]&... #JEŻELI(1)...
Na początek podpowiadam algorytm: Algorytmy sortowanie plików sekwencyjnych - łączenie proste (pozostałe algorytmy to jego modyfikacje), składa się z dwóch etapów: Podział: otwieramy plik do odczytu (p1), a dwa do zapisu (p2,p3), zapisujemy pierwszą liczbę (element) a pliku p1 do p2, bierzemy kolejną liczbę, jeśli większa bądź równa zapisujemy do p2,...
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';...
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...
Witam, mam do stworzenia "bazę danych". Na typie rekordowym. Mam mieć w niej kilka procedur: -dodającą użytkowników; -usuwającą użytkowników; -wyszukującą za pomocą nr PESEL; -sortującą po nazwisku rosnąco Oraz dwie funkcję: -sprawdza czy ludzie wprowadzeni są pełnoletni; -sprawdza czy jest podana (at) w mailu; Elementy mają być wprowadzane pojedynczo....
„ ...mniejsza o to... ” no pięknie. ;-) Zobacz np. 12 rozdział w www.dspguide.com. Albo Próbki umieść w tablicy X w następującej kolejności: 0,2,4,...,n-2,1,3,...n-1 (parzyste w części RE procedure oddsort(ncap:integer; var y:longvector); //w miejscu sortuje ciąg, tab by uzyskać 0,2,4,...,n-2,1,3,...n-1 var tcap, t, j, k:integer;...
wielkie dzięki ;) tylko mam problem z tym sortowaniem bo myślę że napisałem wszystko dobrze jednakże nie sortuje ... mógł by ktoś pomóc ?? i mam pytanie czy jest jakaś procedura/funkcja do zatrzymywania wyświetlanego tekstu ??(chodzi o to żeby np. wyświetliło 1 osobę po kliknięciu następną itd. a nie od razu wszystkie i widać tylko ostatnie) Dodano...
Witam, czy może mi ktoś pomóc w narysowaniu schematu blokowego tych 2 programów? Pozdrawiam serdecznie i z góry dziękuję. program 1: Program Zgadywanka; uses crt; var pr,li,a,b,x:integer; c:char; label new,zle; begin new: clrscr; randomize; li:=random(70+1)+10; pr:=0;a:=10; b:=80; repeat pr:=pr+1; writeln('Podaj...
Zasady pisania postów : Jakie posty nie będą akceptowane w tym dziale : • Tematy nie dotyczące pisania programów. • Jeżeli to możliwe, proszę, w tytule postu umieszczać nazwę języka programowania, którego post dotyczy; JAVA,Pascal,C++ itd. • Wszystkie kody źródłowe, zamieszczone w postach, muszą znajdować się w znacznikach syntax...
Najczęściej zadawane pytania : Jaki język programowania wybrać? Wszystkich, których interesuje to pytanie, kieruję do wyszukiwarki forum, lub do dokładnego przejrzenia tego wątku : - Jaki język programowania wybrać ? Obsługa Portu LPT : - LPT FAQ - VisualBasic6 i INNE RS232 pod Linux : - Serial-Programming-HOWTO.pdf Visual Basic : - 0-255 ASCII Przez...
pascal sortować sortować stringi sortować struct
volvo silnika zbiornik zmywarka wskazania termometru zewnętrznego
scania centralny zamek scania centralny zamek
Czujniki w parowniku lodówki Samsung - ile ich jest? Wiązka do haka Mazda 3 BL 2009-2013: Wybór i Montaż