www.ispwsznysa.fora.pl
Informatyka Stosowania PWSZ NYSA
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.ispwsznysa.fora.pl Strona Główna
->
Algorytmy i struktury danych
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
Semestr VI (letni) 2010/2011
----------------
Ogólne
SW = Systemy wbudowane
SSO = Sieciowe systemy operacyjne
SRRP = Systemy rozproszonego i równoległego przetwarzania
KRSI = KRSI - kierunki rozwoju systemów inf
BSSK = Bezpieczeństwo sieci i systemów komputerowych
Semestr V (zimowy) 2009/2010
----------------
Podstawy sztucznej inteligencji
Zarządzanie przedsięwzięciami programistycznymi
Hurtownie danych
Komputerowe systemy sterowania
Programowanie w językach skryptowych
Zaawansowane zagadnienia sieci komputerowych
Angielski
OFF TOPIC
Semestr IV (letni) 2008/2009
----------------
Język angielski
Programowanie w Javie
Nowoczesne Systemy Baz Danych
Podstawy Inżynierii Oprogramowania
Podstawy Symulacji Systemów
Systemy Grafiki Komputerowej
Systemy Informatyczne
Archiwum
----------------
Programowania I
Podstawy systemów komputerowych PSK
Algebra liniowa z geometrią
Fizyka
Zarządzanie
Marketing
Problemy społeczne
Programowanie II (C)
Analiza matematyczna
Algorytmy i struktury danych
Logika dla informatyków
Podstawy elektroniki i miernictwa
Systemy operacyjne I
Teoria układów logicznych i cyfrowych
Architektura komputerów
Podstawy metod probabilistycznych
Podstawy baz danych
Podstawy sieci
Podstawy podejmowania decyzji
Systemy operacyjne II
Zarządzanie danymi informacyjnymi
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>roy</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 16:14, 29 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Zadanie 3 ver 2 <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">program trzy_new; <br />{$APPTYPE CONSOLE} <br /> <br /> <br />uses <br /> SysUtils; <br /> <br /> <br />type <br /> prekord = ^Trekord; <br /> Trekord = record <br /> dane: integer; <br /> dane2:real; <br /> nast: prekord; <br /> end; <br /> <br />procedure DodajPoLista(var pocz, ostatni, DoListy: prekord); <br />var <br /> NewOne: prekord; <br />begin <br /> New(NewOne); <br /> NewOne^.dane :=random(100); <br /> NewOne^.dane2 :=random*random(11); <br /> if pocz = nil then <br /> begin <br /> NewOne^.nast := nil; <br /> pocz := NewOne; <br /> ostatni := NewOne; <br /> end <br /> else <br /> begin <br /> NewOne^.nast := DoListy^.nast; <br /> DoListy^.nast := NewOne; <br /> end; <br /> DoListy := NewOne; <br />end; <br /> <br /> <br />procedure losuj(var pocz, ostatni: prekord;var n:integer); <br />var <br /> i: integer; <br /> <br />begin <br /> randomize; <br /> writeln('Ile elementow wylosowac? '); <br /> readln(n); <br /> for i := 1 to n do <br /> DodajPoLista(pocz, ostatni, ostatni); <br />end; <br /> <br /> <br /> <br /> <br />procedure drukuj(pocz:prekord); <br /> begin <br /> if pocz<>nil then <br /> begin <br /> if pocz.nast<>nil then drukuj(pocz.nast); <br /> writeln(' >>> ',pocz.dane,' - ',pocz.dane2:0:2,' <<<'); <br /> end; <br /> end; <br /> <br /> <br /> <br />procedure PrzestawElementNastepny(var pocz, ostatni, DoListy: prekord); <br />var <br /> pomoc, poprzedni: prekord; <br />begin <br /> if DoListy^.nast <> nil then <br /> begin <br /> if DoListy <> pocz then <br /> begin <br /> pomoc := DoListy^.nast; <br /> poprzedni := pocz; <br /> while poprzedni^.nast <> DoListy do <br /> poprzedni := poprzedni^.nast; <br /> DoListy^.nast := pomoc^.nast; <br /> poprzedni^.nast := pomoc; <br /> pomoc^.nast := DoListy; <br /> end <br /> else <br /> begin <br /> pomoc := DoListy^.nast; <br /> DoListy^.nast := pomoc^.nast; <br /> pomoc^.nast := DoListy; <br /> pocz := pomoc; <br /> end; <br /> if pomoc = ostatni then <br /> ostatni := DoListy; <br /> DoListy := pomoc; <br /> end; <br />end; <br /> <br /> <br /> <br />procedure Sortuj(var pocz, ostatni: prekord); <br />var <br /> DoListy: prekord; <br /> Przestawiono: boolean; <br />begin <br /> Przestawiono := True; <br /> while przestawiono do <br /> begin <br /> Przestawiono := False; <br /> DoListy := pocz; <br /> if DoListy <> nil then <br /> while DoListy <> ostatni do <br /> begin <br /> if DoListy^.dane > DoListy^.nast^.dane then <br /> begin <br /> PrzestawElementNastepny(pocz, ostatni, DoListy); <br /> Przestawiono := True; <br /> end; <br /> DoListy := DoListy^.nast; <br /> end; <br /> end; <br />end; <br />procedure sumuj(pocz:prekord;n:integer); <br /> var <br /> i,a:integer; <br /> b:real; <br /> begin <br /> a:=0; <br /> b:=0; <br /> for i:=1 to n do <br /> begin <br /> a:=a+pocz.dane; <br /> b:=b+pocz.dane2; <br /> pocz:=pocz.nast; <br /> end; <br /> writeln('>>> Suma liczb calkowitych: ',a,' <<<'); <br /> writeln('>>> Suma liczb rzeczywistych: ',b:0:2,' <<<'); <br /> end; <br /> <br />var <br /> pocz, ostatni: prekord; <br /> Znak: char; <br /> n:integer; <br /> <br />begin <br /> randomize; <br /> repeat <br /> writeln(chr(218),chr(196),' MENU:'); <br /> writeln(chr(195),chr(196),' 1 - Losuj elementy listy.'); <br /> writeln(chr(195),chr(196),' 2 - Sortuj liste.'); <br /> writeln(chr(195),chr(196),' 3 - Wydrukuj liste. '); <br /> writeln(chr(195),chr(196),' 4 - Sumuj dane z listy'); <br /> writeln(chr(192),chr(196),' Z - Zakoncz.'); <br /> readln(znak); <br /> case znak of <br /> '1':losuj(pocz, ostatni,n); <br /> '2':Sortuj(pocz, ostatni); <br /> '3':Drukuj(pocz); <br /> '4':sumuj(pocz,n); <br /> end; <br /> writeln; <br /> until znak = 'z'; <br /> <br /> dispose(pocz); <br /> writeln('<<< Pamiec wyczyszczono >>>'); <br /> readln; <br />end. <br /></td> </tr></table><span class="postbody"></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>roy</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 16:13, 29 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">program trzy; <br /> <br />{$APPTYPE CONSOLE} <br /> <br />uses <br /> SysUtils; <br />type <br /> prekord=^rekord; <br /> rekord=record <br /> treal:real; <br /> tint:integer; <br /> nast:prekord; <br /> end; <br />var <br /> n,b:integer; <br /> pocz:prekord; <br /> a:real; <br />procedure wpisz(var pocz:prekord; n:integer); <br /> var <br /> pomoc:prekord; <br /> i:integer; <br /> begin <br /> for i:=1 to n do <br /> begin <br /> if pocz<>nil then pomoc:=pocz else pomoc:=nil; <br /> new(pocz); <br /> pocz.treal:=random*100; <br /> pocz.tint:=random(11); <br /> pocz.nast:=pomoc; <br /> end; <br /> end; <br /> <br />procedure wypisz(pocz:prekord); <br /> begin <br /> if pocz<>nil then <br /> begin <br /> if pocz.nast<>nil then wypisz(pocz.nast); <br /> writeln(' - ',pocz.treal:0:2,' - ',pocz.tint); <br /> end; <br /> end; <br /> <br />procedure sumuj(pocz:prekord;n:integer; var a:real; var b:integer); <br /> var <br /> i:integer; <br /> begin <br /> for i:=1 to n do <br /> begin <br /> a:=a+pocz.treal; <br /> b:=b+pocz.tint; <br /> pocz:=pocz.nast; <br /> end; <br /> end; <br /> <br />{procedure sortuj(var pocz:prekord;n:integer); <br /> var <br /> i,j:integer; // #### # # ## ### <br /> pomoc:prekord; // # # # # # # # # <br /> begin // ### ## #### # # <br /> for i:=1 to n do // # # # # # # # <br /> for j:=1 to n do // ### #### # ## ### <br /> begin // # <br /> new(pomoc); <br /> if pocz.tint>pocz.nast.tint then <br /> pomoc:=@pocz.nast.tint; <br /> end; <br /> end; } <br /> <br />begin <br /> randomize; <br /> writeln('Podaj ilosc elementow'); <br /> readln(n); <br /> wpisz(pocz,n); <br /> wypisz(pocz); <br /> sumuj(pocz,n,a,b); <br /> writeln('Suma liczb rzeczywistych: ',a:0:2); <br /> writeln('Suma liczb calkowitych: ',b); <br /> {sortuj(pocz,n); } <br /> wypisz(pocz); <br /> readln; <br /> <br /> { TODO -oUser -cConsole Main : Insert code here } <br />end. <br /></td> </tr></table><span class="postbody"></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code"></td> </tr></table><span class="postbody"></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>roy</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 16:13, 29 Mar 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">program jeden; <br /> <br />{$APPTYPE CONSOLE} <br /> <br />uses <br /> SysUtils; <br />type <br /> tdana=real; <br /> plista=^tlista; <br /> tlista=record <br /> klucz:tdana; <br /> nast:plista; <br /> end; <br /> <br />var <br /> pocz:plista; <br /> opcja:char; <br /> d:tdana; <br /> <br />procedure NaStos(var pocz:plista; d:tdana); <br /> var <br /> pomoc:plista; <br /> begin <br /> if pocz<>nil then pomoc:=pocz else pomoc:=nil; <br /> new(pocz); <br /> pocz.klucz:=d; <br /> pocz.nast:=pomoc; <br /> end; <br /> <br />procedure ZeStosu(var pocz:plista; d:tdana); <br /> var <br /> pomoc:plista; <br /> begin <br /> if pocz<>nil then <br /> begin <br /> pomoc:=pocz; <br /> pocz:=pomoc.nast; <br /> dispose(pomoc); <br /> end <br /> else writeln('>>> Nie ma co usuwac <<<'); <br /> <br /> <br /> end; <br /> <br /> <br />procedure wypisz(pocz:plista); <br /> var <br /> i:integer; <br /> begin <br /> i:=1; <br /> repeat <br /> writeln('Element ',i,' - ',pocz.klucz:0:2); <br /> inc(i); <br /> pocz:=pocz.nast; <br /> until pocz=nil; <br /> end; <br /> <br />begin <br /> randomize; <br /> pocz:=nil; <br /> d:=0; <br /> repeat <br /> writeln(' Instrukcje na stosie'); <br /> writeln(' -d- dodaj '); <br /> writeln(' -u- usun '); <br /> writeln(' -w- wypisz '); <br /> writeln(' -k- koniec '); <br /> readln(opcja); <br /> <br /> case opcja of <br /> 'd':begin <br /> d:=random*random(101); //od 0 do 10 real <br /> NaStos(pocz,d); <br /> end; <br /> 'w':if pocz<>nil then wypisz(pocz); <br /> 'u':ZeStosu(pocz,d); <br /> end; <br /> until opcja='k'; <br /> dispose(pocz); <br /> writeln('>>> Pamiec zwolniono <<<'); <br /> readln; <br /> { TODO -oUser -cConsole Main : Insert code here } <br />end. <br /></td> </tr></table><span class="postbody"></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>roy</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 16:13, 29 Mar 2008<span class="gen"> </span> Temat postu: Lista 3</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Kod:</b></span></td> </tr> <tr> <td class="code">program dwa; <br /> <br />{$APPTYPE CONSOLE} <br /> <br />uses <br /> SysUtils; <br />type <br /> tdana=real; <br /> plista=^tlista; <br /> tlista=record <br /> klucz:tdana; <br /> nast:plista; <br /> end; <br /> <br />var <br /> pocz,kon:plista; <br /> opcja:char; <br /> d:tdana; <br /> <br />procedure DoKolejki(var pocz:plista;var kon:plista; d:tdana); <br /> var <br /> pomoc:plista; <br /> begin <br /> new(pomoc); <br /> pomoc.klucz:=d; <br /> pomoc.nast:=nil; <br /> if pocz=nil then <br /> begin <br /> pocz:=pomoc; <br /> kon:=pocz.nast; <br /> end <br /> else kon.nast:=pomoc; <br /> kon:=pomoc; <br /> end; <br /> <br />procedure ZKolejki(var pocz:plista;var kon:plista; d:tdana); <br /> var <br /> pomoc:plista; <br /> begin <br /> if pocz<>nil then <br /> begin <br /> pomoc:=pocz; <br /> pocz:=pomoc.nast; <br /> dispose(pomoc); <br /> end <br /> else writeln('>>> Nie ma co usuwac <<<'); <br /> <br /> <br /> end; <br /> <br /> <br />procedure wypisz(pocz:plista); <br /> var <br /> i:integer; <br /> begin <br /> i:=1; <br /> if pocz<>nil then <br /> repeat <br /> writeln('Element ',i,' - ',pocz.klucz:0:2); <br /> inc(i); <br /> pocz:=pocz.nast; <br /> until pocz=nil; <br /> end; <br /> <br />procedure wypisz2(pocz:plista); <br /> begin <br /> if pocz<>nil then <br /> begin <br /> if pocz.nast<>nil then wypisz2(pocz.nast); <br /> writeln(' - ',pocz.klucz:0:2); <br /> end; <br /> end; <br /> <br />begin <br /> randomize; <br /> pocz:=nil; <br /> kon:=pocz; <br /> d:=0; <br /> repeat <br /> writeln(' Instrukcje na stosie'); <br /> writeln(' -d- dodaj '); <br /> writeln(' -u- usun '); <br /> writeln(' -w- wypisz '); <br /> writeln(' -x- wypisz rek. '); <br /> writeln(' -k- koniec '); <br /> readln(opcja); <br /> <br /> case opcja of <br /> 'd':begin <br /> d:=random*random(101); //od 0 do 10 real <br /> DoKolejki(pocz,kon,d); <br /> end; <br /> 'w':wypisz(pocz); <br /> 'u':ZKolejki(pocz,kon,d); <br /> 'x':wypisz2(pocz); <br /> end; <br /> until opcja='k'; <br /> dispose(pocz); <br /> writeln('>>> Pamiec zwolniono <<<'); <br /> readln; <br /> { TODO -oUser -cConsole Main : Insert code here } <br />end. <br /></td> </tr></table><span class="postbody"></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj