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>stramik</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: Pon 18:33, 09 Cze 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">faktycznie slepy jestem <img src="http://picsrv.fora.pl/images/smiles/icon_smile.gif" alt="Smile" border="0" /> <br /> <br /> <br />_______________________________ <br /> <br />Zadeklaruj stałą o nazwie "Max"równą 110 .Zadeklaruj jako własny typ danych <br />o rozmiarze''TTab" tablicę statyczną o roamiarze określonym przez stałą max zawierającą <br />dane o typie integer. <br />Zadeklaruj zmienną ''Tab" w typie ''TTab"jako zmienną globalną ale widzianą tylko w programie głównym <br />w procedurach i funkcjach zmienna ma być widoczna. <br />Napisz procedurę o nazwie ''Losujdane", która wylosuje dane z zakresu od 1000 do 100. Tablica ma być <br />do procedury przekazana jako parametr. <br />Napisz procedurę o nazwie ''Kopiujdodrzewa", która wybierze z tablicy statycznej wszystkie liczby <br />nieparzyste oraz mniejsze od 500 i wstawi je do dynamicznego dzrzewa binarnego. <br />W tym zadaniu trzeba będzie dopisać procedurę odpowiedzialną za wstawienie elementów na dzrewo. <br />Wszystkie konieczne mają być przekazywane do procedur jako parametry. <br />Napisz procedurę o nazwie ''Działaj na drzewie", która policzy sumę wszystkich elementów na dzrewie. <br />.Wszystkie konieczne dane mają być przekazywane do procedur jako parametry. <br />Napisz procedurę o nazwie kopiuj do listy, która wybierze z tablicy statycznej <br />wszystkie liczby parzyste i wstawi je na koniec dynamicznej nieuporządkowanej listy dwukierunkowej(elementy mogą się powtarzać) <br />.W tym zadaniu trzeba napisać procedurę odpowiedzialną za wstawianie elementów na listę .Wszystkie konieczne dane mają być przekazywane do procedur jako <br />parametr.Napisz procedurę o nazwie ''Działaj na liście" zsumuje wartości elementów całkowicie podzielnych przez 3 utworzonej listy <br /> Napisz procedurę o nazwie ''Sortowanie" która sortuje dane w tablicy statycznej metodą bombelkową w kolejności malejącej. <br />Tablica ma być do procedury przekazywana jako parametr <br />Napisz procedurę wyświetlającą tablicę statyczną w rzędach po 10elementów.Tablica ma być do procedury przek.jako par. <br />Napisz prog główny uruchamiający wszystkie napisane procedury kolejności numeracji. <br />Prog nie musi mieć menu ani pytać o cokolwiek użytkownika.</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>Mardok</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: Pon 11:20, 09 Cze 2008<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Treść masz na pulpicie tam skopiowałem wszystkie TXT bodajże nazwa to "Leszek.txt" albo "Od Leszka.txt" <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" border="0" /> Szukaj po prawej <img src="http://picsrv.fora.pl/images/smiles/icon_razz.gif" alt="Razz" border="0" /></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>stramik</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: Pon 10:56, 09 Cze 2008<span class="gen"> </span> Temat postu: Program z kola u Trawki z ASD</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Niestety nie mam tresci chyba na kompie, bo nie moge jej znalezc, wiec jesli ktos pamieta to niech napisze <br /> <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 ASD_MatejaszekLeszek_Ter0; <br /> <br />{$APPTYPE CONSOLE} <br /> <br />uses <br /> SysUtils; <br /> <br />const <br /> max = 110; <br /> <br />type <br /> TTab = array[1..MAX] of integer; <br /> <br /> <br /> wsk = ^wezel; <br /> wezel = record <br /> s : integer; <br /> l : wsk; <br /> r : wsk; <br /> end; <br /> <br />TWsk = ^TLista; <br /> TLista = record <br /> ile : integer; <br /> nas,pop : Twsk; <br /> end; <br /> <br />procedure LosujDane(var t : TTab); <br />var i : integer; <br />begin <br /> for i:=1 to MAX do t[i]:=random(901)+100; <br />end; <br /> <br />procedure WstawDoDrzewa(var p : wsk; x : integer); <br />begin <br /> <br /> if p = nil then <br /> begin <br /> new(p); <br /> p^.s:=x; <br /> p^.l:=nil; <br /> p^.r:=nil; <br /> end <br /> else <br /> begin <br /> if x < p^.s then WstawDoDrzewa(p^.l,x) <br /> else WstawDoDrzewa(p^.r,x); <br /> end; <br /> <br />end; <br /> <br /> <br />procedure KopiujDoDorzewa(t : ttab; var d : wsk); <br />var i : integer; <br />begin <br /> for i:=1 to MAX do <br /> begin <br /> if (t[i] mod 2 = 1) or (t[i] < 500) then WstawDoDrzewa(d,t[i]); <br /> <br /> end; <br />end; <br /> <br />procedure dzialajnadzrewie(d : wsk); <br />var <br /> suma : integer; <br /> <br />procedure dzialaj(p : wsk); <br />begin <br /> suma:=suma + p^.s; <br /> if p^.l <> nil then dzialaj(p^.l); <br /> if p^.r <> nil then dzialaj(p^.r); <br />end; <br /> <br />begin <br /> suma:=0; <br /> dzialaj(d); <br /> writeln('Suma=',suma); <br />end; <br /> <br />procedure dodajdolisty(var pocz : TWsk; d : integer); <br />var <br /> ndata : TWsk; <br />begin <br /> New(ndata); <br /> if ndata = nil then exit; <br /> ndata.ile:=d; <br /> ndata.nas:=pocz; <br /> pocz:=ndata; <br /> pocz.pop:=nil; <br />end; <br /> <br /> <br />procedure kopujdolisty(t : ttab; var list : TWsk); <br />var i : integer; <br />begin <br /> for i:=1 to MAX do dodajdolisty(list,t[i]); <br />end; <br /> <br />procedure dzialajnaliscie(pocz : twsk); <br />var suma:integer; <br />begin <br /> suma:=0; <br /> while (pocz <> nil) do <br /> begin <br /> if (pocz.ile mod 3 = 0) then suma:= suma + pocz.ile; <br /> <br /> pocz:=pocz.nas; <br /> end; <br />end; <br /> <br />procedure sortowanie(var t : ttab); <br />var temp,i,j : integer; <br />begin <br /> for i:=1 to MAX-1 do <br /> for j:=1 to MAX-1 do <br /> if t[i] > t[i+1] then <br /> begin <br /> temp:=t[i]; <br /> t[i]:=t[i+1]; <br /> t[i]:=temp; <br /> end; <br />end; <br /> <br />var <br /> tab: ttab; <br /> drzewo : wsk; <br /> lista : twsk; <br />begin <br /> losujdane(tab); <br /> KopiujDoDorzewa(tab,drzewo); <br /> dzialajnadzrewie(drzewo); <br /> kopujdolisty(tab,lista); <br /> dzialajnaliscie(lista); <br /> sortowanie(tab); <br /> <br /> { TODO -oUser -cConsole Main : Insert code here } <br />end. <br /> <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