IT 3 Sem.
Pierwsze forum tech. gier sieciowych
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum IT 3 Sem. Strona Główna
->
At school
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
Forum IT
----------------
At school
After school
Hydepark
----------------
FFA
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>Gość</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 15:10, 20 Mar 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">WERSJA DZIALAJACA v.1.1a (c) Shadi <br /> <br />program bazy; <br />uses crt; <br /> <br />type <br />dane=record <br />imie:string[20]; <br />nazwisko:string[20]; <br />telefon:string[10]; <br />end; <br /> <br /> <br /> <br /> <br /> <br />var <br />wyb:char; <br />osoba:dane; <br />a:text; <br />rec,pyt,wiersz,b,c,d:string; <br /> <br />begin <br />clrscr; <br /> <br />writeln('Co chcesz zrobic? (podaj numer)'); <br />writeln('1: Utworz nowa baze danych'); <br />writeln('2: Dodaj wpis do istniejacej bazy danych'); <br />writeln('3: Odczytac baze danych'); <br />writeln('4: Znajdz dany rekord'); <br />writeln('5: Zakonczyc program'); <br />readln(wyb); <br /> <br />case wyb of <br />'1': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> rewrite(a); <br /> repeat <br /> writeln('Podaj dane:'); <br /> write('imie: '); <br /> readln(osoba.imie); <br /> write('nazwisko: '); <br /> readln(osoba.nazwisko); <br /> write('telefon: '); <br /> readln(osoba.telefon); <br /> <br /> writeln(a,osoba.imie); <br /> writeln(a,osoba.nazwisko); <br /> writeln(a,osoba.telefon); <br /> <br /> <br /> <br /> <br /> writeln('dodac nowy rekord? [t/n]'); <br /> readln(rec); <br /> until rec='n'; <br /> <br /> readln; <br /> close(a); <br /> end; <br /> <br />'2': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> append(a); <br /> write('imie: '); <br /> readln(osoba.imie); <br /> write('nazwisko: '); <br /> readln(osoba.nazwisko); <br /> write('telefon: '); <br /> readln(osoba.telefon); <br /> writeln(a,osoba.imie); <br /> writeln(a,osoba.nazwisko); <br /> writeln(a,osoba.telefon); <br /> reset(a); <br /> readln; <br /> close(a); <br /> end; <br /> <br />'3': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> reset(a); <br /> while not eof(a) do <br /> begin <br /> readln(a,wiersz); <br /> writeln(wiersz); <br /> end; <br /> readln; <br /> close(a); <br /> end; <br /> <br />'4': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> reset(a); <br /> writeln('nazwisko?: '); <br /> readln(c); <br /> writeln; <br /> writeln; <br /> while not eof(a) do <br /> begin <br /> <br /> readln(a,osoba.imie); <br /> <br /> readln(a,osoba.nazwisko); <br /> <br /> readln(a,osoba.telefon); <br /> <br /> if osoba.nazwisko=c then <br /> begin <br /> writeln(osoba.imie); <br /> writeln(osoba.nazwisko); <br /> writeln(osoba.telefon); <br /> end; <br /> writeln; <br /> end; <br /> <br /> end; <br /> <br />'5': begin <br /> readln; <br /> end; <br />end; <br />readln; <br />end.</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>Shadi to ja</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 13:52, 19 Mar 2007<span class="gen"> </span> Temat postu: baza danych z menu (opcja 4 do zrobienia)</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">program bazy; <br />uses crt; <br /> <br />type <br />dane=record <br />imie:string[20]; <br />nazwisko:string[20]; <br />telefon:string[10]; <br />end; <br /> <br /> <br /> <br /> <br /> <br />var <br />wyb:char; <br />osoba:dane; <br />a:text; <br />rec,pyt,wiersz,b,c,d:string; <br /> <br />begin <br />clrscr; <br /> <br />writeln('Co chcesz zrobic? (podaj numer)'); <br />writeln('1: Utworz nowa baze danych'); <br />writeln('2: Dodaj wpis do istniejacej bazy danych'); <br />writeln('3: Odczytac baze danych'); <br />writeln('4: Znajdz dany rekord'); <br />writeln('5: Zakonczyc program'); <br />readln(wyb); <br /> <br />case wyb of <br />'1': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> rewrite(a); <br /> repeat <br /> writeln('Podaj dane:'); <br /> write('imie: '); <br /> readln(osoba.imie); <br /> write('nazwisko: '); <br /> readln(osoba.nazwisko); <br /> write('telefon: '); <br /> readln(osoba.telefon); <br /> <br /> writeln(a,'imie: ',osoba.imie); <br /> writeln(a,'nazwisko: ',osoba.nazwisko); <br /> writeln(a,'telefon: ',osoba.telefon); <br /> <br /> <br /> <br /> <br /> writeln('dodac nowy rekord? [t/n]'); <br /> readln(rec); <br /> until rec='n'; <br /> <br /> readln; <br /> close(a); <br /> end; <br /> <br />'2': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> append(a); <br /> write('imie: '); <br /> readln(osoba.imie); <br /> write('nazwisko: '); <br /> readln(osoba.nazwisko); <br /> write('telefon: '); <br /> readln(osoba.telefon); <br /> writeln(a,'imie: ',osoba.imie); <br /> writeln(a,'nazwisko: ',osoba.nazwisko); <br /> writeln(a,'telefon: ',osoba.telefon); <br /> reset(a); <br /> readln; <br /> close(a); <br /> end; <br /> <br />'3': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> reset(a); <br /> while not eof(a) do <br /> begin <br /> readln(a,wiersz); <br /> writeln(wiersz); <br /> end; <br /> readln; <br /> close(a); <br /> end; <br /> <br />'4': begin <br /> clrscr; <br /> assign(a,'bazapro.txt'); <br /> reset(a); <br /> writeln('nazwisko?: '); <br /> readln(c); <br /> while not eof(a) do <br /> begin <br /> readln(a,c); <br /> end; <br /> writeln(a,c); <br /> end; <br /> <br />'5': begin <br /> readln; <br /> end; <br />end; <br />readln; <br />end.</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