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"...
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 ?
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...
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...
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...
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
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ę...
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...
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...
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...
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.
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 ...
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...
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ę ;)
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 :))
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...
pascal sortować sortować stringi sortować struct
włączyć mikrofon elektroda rutylowe configuration manager client
iveco 35c13 schemat pralka ewf1060
Schemat modułu radia Denver WRD-50 – dostępność, typowa architektura, diagnostyka Sterowniki Medion Erazer X7830 MSN 30018156 Windows 10 64bit – Intel, NVIDIA, Realtek, Hotkey
