Forum Informatyczne Strona Główna
->
Pomoc
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:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
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
Regulamin
----------------
Regulamin
GRY!!!!!!
----------------
W co gracie online??moze zagramy razem?
Klany!!
Inne Gry
Kody do gier
Komputer!!
----------------
Nowości
Problemy
Sprzęt
Pomoc
Grafika
..:::INNE:::..
----------------
Hyde Park
Cos o sobie
Szkoła
Ankieta
Pomysły i prożby do Admów i Modów
@NEWS@
----------------
Nowości na forum
!!KOSZ!!
----------------
KOSZ
Toplisty
----------------
Toplista
Toplista
Toplista
Toplista
Licznik
----------------
licznik
Bannery
----------------
Banery
Banery
----------------
Baner
Ogloszenia
----------------
Ogloszenia
Bazar
----------------
Bazar
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>Johny</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/bsrf/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 19:36, 13 Sty 2011<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Jakbyś go sam napisał to byś wiedział co napisałeś.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/bsrf/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>dawid253F</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/bsrf/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Śro 8:29, 14 Kwi 2010<span class="gen"> </span> Temat postu: Potrzebuję opisu gotowego programu w Pascalu</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Prosił bym o opisanie tego programu zrobiłem go na podstawie innych on działa tak jak ma działać tylko potrzebuję opisu co robi poszczególna procedura a nawet linijka. Bardzo proszę o pomoc ponieważ sam nie dam sobie z tym rady. To jest ten program: <br /> <br />program bazaklubu; <br />uses graph,crt; <br />type pilkarz=record <br /> nazwa_pilkarza:string[20]; <br /> dane:record <br /> wiek:integer; <br /> narodowosc:string; <br /> iloscgoli:integer; <br /> pozycja:string; <br /> end; <br /> end; <br /> <br />var <br /> plik:file of pilkarz; <br /> os:pilkarz; <br /> i:string; <br /> sterownik,tryb:integer; <br /> <br />procedure dopisywanie; <br />begin <br /> clrscr; <br /> writeln; <br /> writeln('----Podaj nazwe pilkarza----'); <br /> readln(os.nazwa_pilkarza); <br /> writeln; <br /> writeln('----Podaj wiek----'); <br /> readln(os.dane.wiek); <br /> writeln; <br /> writeln('----Podaj narodowosc----'); <br /> readln(os.dane.narodowosc); <br /> writeln; <br /> writeln('----Podaj ilosc goli----'); <br /> readln(os.dane.iloscgoli); <br /> writeln; <br /> writeln('----Podaj pozycje na boisku zawodnika----'); <br /> readln(os.dane.pozycja); <br /> <br />reset(plik); <br /> seek(plik,filesize(plik)); <br /> <br />write(plik,os); <br /> close(plik); <br />end; <br /> <br />procedure lista; <br />begin <br /> clrscr; <br /> reset(plik); <br /> if filesize(plik)=0 then <br /> begin <br /> writeln; <br /> writeln('Brak wpisanych pilkarzy w bazie.'); <br /> delay(2000); <br /> exit; <br /> end; <br /> <br /> <br />while not eof(plik) do <br /> begin <br /> read(plik,os); <br /> writeln('---------------------------------------------'); <br /> textcolor(yellow); <br /> writeln('personalia'); <br /> textcolor(white); <br /> writeln(os.nazwa_pilkarza); <br /> textcolor(yellow); <br /> writeln('wiek:'); <br /> textcolor(white); <br /> writeln(os.dane.wiek); <br /> textcolor(yellow); <br /> writeln('kraj:'); <br /> textcolor(white); <br /> writeln(os.dane.narodowosc); <br /> textcolor(yellow); <br /> writeln('ilosc strzelonych goli:'); <br /> textcolor(white); <br /> writeln(os.dane.iloscgoli); <br /> textcolor(yellow); <br /> writeln('pozycja w grze:'); <br /> textcolor(white); <br /> writeln(os.dane.pozycja); <br /> writeln; <br /> writeln; <br /> <br /> <br /> end; <br /> writeln('koniec listy'); <br /> readln; <br /> close(plik); <br />end; <br /> <br />procedure szukaj; <br /> <br /> begin <br /> textcolor(yellow); <br /> clrscr; <br /> reset(plik); <br /> if filesize(plik)=0 then <br /> begin <br /> writeln; <br /> writeln('Baza danych jest pusta <img src="http://picsrv.fora.pl/images/smiles/icon_sad.gif" alt="Sad" border="0" />'); <br /> delay(500); <br /> exit; <br /> end; <br /> <br /> <br />while not eof(plik) do <br /> begin <br /> textcolor(yellow); <br /> write('Podaj nazwe zawodnika :'); <br /> readln(i); <br /> read(plik,os); <br /> if i=os.nazwa_pilkarza then <br /> begin <br /> writeln(' Zawodnik : ',os.nazwa_pilkarza); <br /> writeln(' Wiek : ',os.dane.wiek); <br /> writeln(' Kraj : ',os.dane.narodowosc); <br /> writeln(' Ilosc strzelonych goli : ',os.dane.iloscgoli); <br /> writeln(' Pozycja w grze :',os.dane.pozycja); <br /> end; <br /> end; <br /> readln; <br /> close(plik); <br />end; <br /> <br />procedure kasuj; <br />var n:integer; <br />begin <br /> clrscr; <br /> reset(plik); <br /> writeln; <br /> writeln('Podaj numer pilkarza ktorego chcesz usunac'); <br /> readln(n); <br />if (n<1>filesize(plik)) then <br /> begin <br /> writeln('Nieprawidlowy numer'); <br /> readkey; <br /> exit; <br /> end; <br /> <br />seek(plik,filesize(plik)-1); <br />read(plik,os); <br />seek(plik,n-1); <br />write(plik,os); <br />seek(plik,filesize(plik)-1); <br />truncate(plik); <br />writeln('Rekord nr ',n,' skasowany'); <br />readln; <br />close(plik); <br />end; <br /> <br />procedure menu; <br />var klawisz:char; <br />begin <br />repeat <br />clrscr; <br />textcolor(yellow); <br />writeln; <br />writeln; <br />writeln; <br />writeln; <br />writeln(' -------------------------------------------------- '); <br />writeln(' | *** FC BARCELONA *** | '); <br />writeln(' |___________________________________ | '); <br />writeln(' | | '); <br />writeln(' | | '); <br />writeln(' | | '); <br />writeln(' | ---Wybierz co chesz zrobic--- | '); <br />writeln(' | | '); <br />writeln(' | 1 - Dopisywanie kolejnego zawodnika | '); <br />writeln(' | 2 - Wyswietlenie listy pilkarzy | '); <br />writeln(' | 3 - Znajdz zawodnika | '); <br />writeln(' | 4 - Kasowanie zawodnika | '); <br />writeln(' | 5 - Wyjscie z programu | '); <br />writeln(' | | '); <br />writeln(' | | '); <br />writeln(' -------------------------------------------------- '); <br />klawisz:=readkey; <br /> <br />if klawisz='1' then dopisywanie; <br />if klawisz='2' then lista; <br />if klawisz='3' then szukaj; <br />if klawisz='4' then kasuj; <br />until klawisz='5'; <br />end; <br /> <br /> <br /> <br />begin <br />clrscr; <br />textcolor(yellow); <br />textbackground(green); <br /> <br /> <br />begin <br />sterownik:=detect; <br />initgraph(sterownik,tryb,'c:\S\BGI'); <br />settextstyle(3,0,6); <br />outtextxy(150,50,'FC BARCELONA'); <br />circle(300,200,20); <br />circle(290,195,2); <br />circle(310,195,2); <br />line(300,195,300,205); <br />ellipse(300,210,180,0,8,5); <br />line(300,220,300,310); <br />line(300,230,340,270); <br />line(300,230,260,270); <br />line(300,310,340,400); <br />line(300,310,260,400); <br />circle(360,380,20); <br />settextstyle(12,0,1); <br />outtextxy(345,378,'NIKE'); <br />rectangle(350,150,600,320); <br />line(350,150,360,130); <br />line(360,130,620,130); <br />line(600,150,620,130); <br />line(620,130,620,310); <br />line(620,310,600,320); <br />setfillstyle(7,15); <br />floodfill(400,200,15); <br />readln; <br />closegraph; <br />end; <br /> <br />assign(plik,'c:\gg\Dane'); <br /> <br />{$i-} <br />reset(plik); <br />if ioresult<>0 then rewrite(plik); <br />{$i+} <br />close(plik); <br /> <br />menu; <br /> <br />end.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/bsrf/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2002 phpBB Group, Theme by GhostNr1
Regulamin
