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>Wojtek</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 14:10, 27 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Podstawy PASCALa – Kompendium <br /> <br /><a href="http://uoo.univ.szczecin.pl/~jakubs/kompendium.html" target="_blank">http://uoo.univ.szczecin.pl/~jakubs/kompendium.html</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> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Wojtek</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: Wto 14:08, 06 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Pascal tutorial: <a href="http://turbopascal.skryptoteka.pl/index-noflash.html" target="_blank">http://turbopascal.skryptoteka.pl/index-noflash.html</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> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Wojtek</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 14:05, 06 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">reset - otwiera istniejący plik i ustawia się na jego początku. <br /> <br />rewrite - czyści plik.</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>Wojtek</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: Wto 14:04, 06 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Liczy ilosc 'a' w pliku tekstowym <br /> <br />program aaaa; <br />uses crt; <br />var wiersz:string; <br />p:text; <br />a:char; <br />l:integer; <br /> <br />begin <br />clrscr; <br />assign(p,'text.txt'); <br />reset(p); <br />l:=0; <br />while not eof(p) do <br />begin <br />if a='a' then l:=l+1; <br />readln(p,a); <br />end; <br />writeln('ilosc wierszy: ',l); <br />readln; <br />close(p); <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="row1"><span class="name"><a name=""></a><b>Wojtek</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 13:50, 05 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Gabi wracaj szybko do zdrowia.</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>Wojtek</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:45, 05 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Liczy ilość wierszy <br /> <br />program aaaa; <br />uses crt; <br />var wiersz:string; <br /> p:text; <br /> a:string; <br /> l:integer; <br />begin <br />clrscr; <br />assign(p,'aaaa.txt'); <br />append(p); <br />readln(a); <br />writeln(p,a); <br />reset(p); <br />l:=0; <br />while not eof(p) do <br />begin <br />l:=l+1; <br />readln(p,wiersz); <br />writeln(wiersz); <br />end; <br />writeln('ilosc wierszy: ',l); <br />readln; <br />close(p); <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="row1"><span class="name"><a name=""></a><b>Hellbilly</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: Nie 20:17, 04 Lut 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">O żesz!? Ile tego <img src="http://picsrv.fora.pl/images/smiles/icon_smile.gif" alt="Smile" border="0" /> <br />Świetnie, że to dałeś! Przyda się napewno <img src="http://picsrv.fora.pl/images/smiles/icon_wink.gif" alt="Wink" border="0" /> <br />W ogóle to jestem chory i dlatego nie ma mnie w budzie (jakbyście się zastanawiali <img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" 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="row2"><span class="name"><a name=""></a><b>Wojtek</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: Wto 14:26, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Czy z podanych bokow moze powstac trojkat <br /> <br />program od; <br />uses crt; <br />var a,b,c,d,e:real; <br />begin <br />clrscr; <br />writeln('podaj wartosc odcinka a:'); <br />readln(a); <br />writeln('podaj wartosc odcinka b:'); <br />readln(b); <br />writeln('podaj wartosc odcinka c:'); <br />readln(c); <br /> <br />if (a<=0) or (b<=0) or (c<=0) then writeln('zla wartosc') else <br /> <br />begin <br />if (a+b>=c) and (b+c>=a) and (a+c>=b) then writeln('z podanych odcinkow mozne powstac trojkat') <br />else writeln('z odcinkow nie powstanie trojkat'); <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="row1"><span class="name"><a name=""></a><b>Wojtek</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 14:25, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Oblicza srednia 5 liczb <br /> <br />program dl; <br />uses crt; <br />var a,b,c,d,e,f,g:real; <br />begin <br />clrscr; <br />writeln('podaj pierwsza liczbe'); <br />readln(a); <br />writeln('podaj druga liczbe'); <br />readln(b); <br />writeln('podaj trzecia liczbe'); <br />readln(c); <br />writeln('podaj czwarta liczbe'); <br />readln(d); <br />writeln('podaj piata liczbe'); <br />readln(e); <br /> <br />f:=(a+b+c+d+e)/5; <br />g:=a+b+c+d+e; <br /> <br />writeln('suma tych liczb wynosi:', g:0:2); <br />writeln('srednia tych liczb wynosi:', f:0:2); <br /> <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>Wojtek</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: Wto 14:21, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Oblicza pole kola i prostakata <br /> <br />program pole; <br />uses crt; <br />var r,a,b,kpole,ppole:real; <br /> opcja:integer; <br />begin <br />clrscr; <br />writeln('Oblicz: (1)pole kola (2)pole prostokata'); <br />readln(opcja); <br />case opcja of <br />1: begin <br /> writeln('podaj promien kola'); <br /> readln(r); <br /> kpole:=3.14*r*r; <br /> writeln('pole kola wynosi:' ,kpole:0:2) <br /> end; <br />2: begin <br /> writeln('podaj bok A'); <br /> readln(a); <br /> if a<0 then writeln('zla wartosc'); <br /> writeln('podaj bok B'); <br /> readln(b); <br /> ppole:=a*b; <br /> writeln('pole prostokata wynosi:' ,ppole:0:2); <br /> end <br />else writeln('zla opcja'); <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="row1"><span class="name"><a name=""></a><b>Wojtek</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 14:18, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Dzielenie <br /> <br />program dzielacy; <br />uses crt; <br />var a,b,iloraz:real; <br />begin <br />clrscr; <br />writeln('podaj a='); <br />readln(a); <br />writeln('podaj b='); <br />readln(b); <br />if (b=0) then writeln ('nie dzielimy przez 0') <br />else begin <br />iloraz :=a/b; <br />writeln ('a/b=',iloraz:0:2); <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>Wojtek</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: Wto 14:15, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">program liczby; <br />uses crt; <br />var <br />l:char; <br /> <br />begin <br />clrscr; <br />writeln('podaj liczbe:'); <br />readln(l); <br /> <br />case l of <br />'0':writeln('zero'); <br />'1':writeln('jeden'); <br />'2':writeln('dwa'); <br />'3':writeln('trzy'); <br />'4':writeln('cztery'); <br />'5':writeln('piec'); <br />'6':writeln('szesc'); <br />'7':writeln('siedem'); <br />'8':writeln('osiem'); <br />'9':writeln('dziewiec'); <br />else writeln('liczba z poza zakresu'); <br />end; <br /> <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="row1"><span class="name"><a name=""></a><b>Wojtek</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 14:09, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Oblicza silnie <br /> <br />program rekurencja; <br />uses crt; <br />var n:integer; <br /> <br />function silnia(n:integer):integer; <br />begin <br />if n=0 then silnia:=1 <br />else <br />silnia:=n*silnia(n-1); <br />end; <br />begin <br />clrscr; <br />writeln('podaj liczbe'); <br />readln(n); <br />writeln; <br />writeln('silnia=',silnia(n)); <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>Wojtek</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: Wto 14:06, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">program potega; <br />uses crt; <br />var n,k:integer; <br /> <br />function pot(n,k:integer):integer; <br /> <br />begin <br />if (k=1) or (k=0) then <br />pot:=n <br />else <br />pot:=pot(n,k-1)*n; <br />end; <br /> <br />begin <br />clrscr; <br />writeln('podaj liczbe'); <br />readln(n); <br />writeln('do ktorej potegi'); <br />readln(k); <br />writeln('wynik=',pot(n,k)); <br /> <br />readln; <br /> <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="row1"><span class="name"><a name=""></a><b>Wojtek</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 14:04, 30 Sty 2007<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Program Arytmetyka; <br />Uses Crt; <br />Var a,b:integer; <br /> suma,roznica,iloczyn:integer; <br /> iloraz:real; <br />Begin <br /> clrscr; <br /> writeln ('Program wykonuje cztery dzialania arytmetyczne'); <br /> write ('Podaj a:'); <br /> readln (a); <br /> write ('Podaj b:'); <br /> readln (b); <br /> suma:=a+b; <br /> roznica:=a-b; <br /> iloczyn:=a*b; <br /> iloraz:=a/b; <br /> writeln (a,'+',b,'=',suma); <br /> writeln (a,'-',b,'=',roznica); <br /> writeln (a,'*',b,'=',iloczyn); <br /> writeln (a,':',b,'=',iloraz:5:3); <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