www.techinf1.fora.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum www.techinf1.fora.pl Strona Główna
->
dla grupy 1
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 EET (Europa)
Skocz do:
Wybierz forum
Turbo Pascal
----------------
dla grupy 1
dla grupy 2
programiki pisane 'po godzinach'
przykladowe zadania
rzeczy ktorych nie bralismy:)
WAŻNE-ZAGLADNIJ
troche trudniejsze-wyzsza szkola jazdy
C++
----------------
C + +
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>isar</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: Wto 19:41, 02 Wrz 2008<span class="gen"> </span> Temat postu: Rekordy</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">rekordy, co to takiego? otoz ku zdziwieniu(tych 'tępszych', bo ci normalniejsi pamietaja;P) nie bedziemy bic rekordow guinessa etc. <br /> <br />jezeli chcemy zapisac np 10osob, wraz z ich numerami telefonow, mozemy uzyc 20zmiennych co jest raczej zlym pomyslem, lub <br />tablicy, ale to tez bedzie klopotliwe, najprostrzym sposobem bedzie rekord <br /> <br />definiuje sie go tak: <br /> <br />Var <br /> <br /> nazwa_bazy : record {TU NIE MA SREDNIKA} <br />zmienne uzywane w bazie; <br />end; <br /> <br />do poszczególnych elementow bazy odwolujemy sie w ten sposob: <br />nazwa_bazy.nazwa_zmiennej_uzytej_w_bazie <br />czyli np <br />baza.numer:=111222333 <br /> <br /> <br />no to teraz program: <br />(zapewne sie 'rozjechal' bo na fora.pl teoretycznie "niepotrzebne" spacje sa usuwane...) <br /> <br />program Baza_Danych; <br />uses crt; <br />var <br />tmp,tmp2: integer; <br /> <br /> {BAZA} <br />BAZA : record <br />imie : array [1..30] of string ; <br />nr : array [1..30] of longint ; <br />end; <br /> <br /> {PLIKI} <br />f :text; <br />begin <br />writeln('ilu uczniow chcesz dopisac??'); <br />readln(tmp2); <br /> <br />{$-----------OBSLUGA-BAZY-DANYCH---------------} <br />{$} for tmp:=1 to tmp2 do {$} <br />{$} begin {$} <br />{$} writeln('podaj imie nr: ',tmp); {$} <br />{$} readln(baza.imie[tmp]); {$} <br />{$} clrscr; {$} <br />{$} writeln('podaj nr tel. ucznia: ',tmp); {$} <br />{$} readln(baza.nr[tmp]); {$} <br />{$} clrscr {$} <br />{$} end; {$} <br />{$---------------------------------------------} <br /> <br />writeln; <br />writeln(' DANE WPROWADZONE '); <br />writeln('dane zostana wyprowadzone: '); <br /> <br />{$--------------wypisywanie-zawratosci------------} <br />{$} for tmp:=1 to tmp2 do {$} <br />{$} begin {$} <br />{$} writeln('IMIE: ' ,baza.imie[tmp]); {$} <br />{$} writeln('NR UCZNIA: ' ,baza.nr[tmp]); {$} <br />{$} writeln; {$} <br />{$} end; {$} <br />{$------------------------------------------------} <br /> <br />{$-------wpisywanie-do-pliku---------} <br />{$} {$} <br />{$} assign(f,'BAZA Danych.TXT'); {$} <br />{$} rewrite(f); {$} <br />{$} for tmp:=1 to tmp do {$} <br />{$} begin {$} <br />{$} writeln(f,baza.imie[tmp]); {$} <br />{$} writeln(f,baza.nr[tmp]); {$} <br />{$} end; {$} <br />{$} close(f); {$} <br />{$-----------------------------------} <br /> <br />readln; <br />end. <br /> <br />to teraz po krotce, <br /> <br />czesc zatytulowana "obsluga bazy danych": <br /> <br />wyswietla "podaj imie numer"... po ten numer zebysmy wiedzieli ile juz wprowadzilismy ludzi(przy 20 mozna sie pogubic..) <br />i zapisuje imie delikwenta do jednej ze zmiennych bazy poprzez readln(baza.imie[tmp]) <br />pozniej to samo z numerem telefonu. <br /> <br /> <br />wypisywanie zawartosci: <br />tutaj wypiszemy wszystkich ludzi ktorych wprowadzilismy wczesniej. <br />writeln(baza.imie[tmp] < w ramach przypomnienia imie[tmp] jest to odnosnik do tablicy imie, i do elementu tablicy numer [tmp]. <br /> <br />i na koncu writeln; robiacy 1linie odstepu pomiedzy ludzmi. <br /> <br />i ostatnia czesc "wpisywanie do pliku" <br />nic prostrzego, skojarzamy BAZA danych.txt ze zmienna F(assign) <br />otwieramy plik(rewrite) <br />pozniej petla(tego tlumaczyc chyba nie musze..) <br />i zapisywanie calej bazy do pliku. <br />zamkniecie pliku(close<tez tlumaczyc nie musze bo bylo w "poscie pliki") <br /> <br />wszystko jest ladnie poustawiane i otoczone ramka dla lepszego rozeznania w programie(przy dluzszychb programach to raczej nie ma sensu lepiej robic wciecia.) <br /> <br />a normalnie w pascalu wyglada to tak: <br />przyokazji jako ciekawostke zobaczcie jakosc kolorow na zdjeciu zapisanym w formacie jpg. a u was na monitorze... jaki "syf"(wybaczcie za wyrazenie) to jpg;P <br /><a href="http://imageshack.us" target="_blank" class="postlink"><img src="http://img240.imageshack.us/img240/7441/beztytuuoe2.jpg" border="0" /></a></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