Sojusz Fallen
Fallen
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Sojusz Fallen Strona Główna
->
TP
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 CET (Europa)
Skocz do:
Wybierz forum
Klasowe - Technikum nr 7 Zabrze
----------------
Ściągi, Zadania itp.
Piastowie
Matura 04.05.2012 - 22.05.2012 - W trakcie...
Konkursy
III Rzeczpospolita
Matura - Lektury
OGame Wewnętrzne
----------------
Handel
Wojny i Pakty
Farmy i Skany
Nasze Najlepsze RW
Zmiany i Rozmowy o OGame
Statystyki
Metal za kryształ
Kryształ za deuter
Deuter za kryształ
Metal za deuter
Deuter za metal
Informatyka Zaawansowana
OB
SOiSK
Specjalizacja
PSiO
UTK
Angol
Ang.Zaw.
Fiza
Gegra
Hista
Mata
Niemiec
Polski
PP
Religia
WOS
Biola
Chemia
Władcy
Lektury
Olimpiada o Wynalazczości
TP
C
C++
PHP
Walka o Niepodległość
Java
Hyde Park
----------------
Zegar
Gadka Szmatka
Dowcipy
Gry Komputerowe
Porozmawiajmy o OGame
Sport
Filmy i TV
Nowinki Komputerowe i Komorkowe
Muza
Inne Unia
----------------
Nasza Gra na Innych Uniach
Archiwum
----------------
U60 i Akademia Fallen
U38
Chwała Fallen
U1
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>Ricko</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/subBlack/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pon 18:42, 14 Maj 2012<span class="gen"> </span> Temat postu: Matura 2011</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"><span style="font-weight: bold">Matura 2011</span> <br /> <br />Część I <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program pobiera liczbę sekund dziesiętnie i wypisuje ilość jedynek w przypadku zamiany na kod binarny: <br /> <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program jedynki; <br /> <br />uses crt; <br /> <br />var <br />s,l:integer; <br /> <br />begin <br />clrscr; <br />writeln('Podaj liczbe sekund...'); <br />readln(s); <br />l:=0; <br /> <br />while s>=1 do <br /> begin <br /> if s mod 2 = 1 then <br /> l:=l+1; <br /> <br /> s:=s div 2; <br /> end; <br /> <br /> writeln('Liczba jedynek to: ',l); <br />readln; <br />end. <br /></td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program wypisuje TAK przypadku liczb pierwszych, a NIE w przypadku liczb złożonych <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program pierw; <br /> <br />uses crt; <br /> <br />var <br />i,n:integer; <br /> <br />begin <br />clrscr; <br />readln(n); <br />i:=2; <br /> <br />repeat <br />begin <br /> if n mod i = 0 then <br /> begin <br /> writeln('NIE'); <br /> break; <br /> end <br /> else <br /> i:=i+1; <br />end; <br />until <br /> i>=n; <br /> <br />if i = n then <br />writeln('TAK'); <br />readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Rozkład danej liczby na czynniki pierwsze --> Zadanie z Matury 2010, gdzie trzeba było wypisywać dzielniki liczb: <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program mat3; <br /> <br />uses crt; <br /> <br />var <br />n,i,j:integer; <br /> <br />begin <br />clrscr; <br />writeln('Podaj liczbe'); <br />readln(n); <br /> <br />for i:=2 to n do <br />if n mod i = 0 then <br />begin <br />n:=n div i; <br />writeln(i); <br />i:=i-1; <br />end; <br />readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br />Część II <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program pobiera dane z pliku hasła.txt, następnie wykonuje 3 polecenia: <br />a)Sumuje parzyste i nieparzyste wyrazy i zapisuje je w pliku wyniki4a.txt <br />b)Znajduje palindromy i zapisuje je w pliku wyniki4b.txt <br />c)Wyszukuje hasła, w których sąsiednie litery zamienione w kodzie ASCII na liczby dają 220 i zapisuje je w pliku wyniki4c.txt <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program hasla; <br /> <br />uses crt; <br /> <br />const <br />plik='hasla.txt'; <br />wyn4a='wynik4a.txt'; <br />wyn4b='wynik4b.txt'; <br />wyn4c='wynik4c.txt'; <br /> <br />var <br />i,parz,nieparz,d,l:integer; <br />s:string; <br />w1,w2,w3,p:text; <br /> <br />begin <br />clrscr; <br />assign(p,plik); <br />assign(w1,wyn4a); <br />assign(w2,wyn4b); <br />assign(w3,wyn4c); <br />reset(p); <br />rewrite(w1); <br />rewrite(w2); <br />rewrite(w3); <br />parz:=0; <br />nieparz:=0; <br /> <br />while not eof(p) do <br /> begin <br /> readln(p,s); <br /> <br /> {parzyste i nieparzyste} <br /> if length(s) mod 2 = 0 then <br /> parz:=parz+1 <br /> else <br /> nieparz:=nieparz+1; <br /> <br /> {palindromy} <br /> d:=length(s); <br /> l:=0; <br /> for i:=1 to d div 2 do <br /> begin <br /> if s[i]=s[d] then <br /> begin <br /> l:=l+1; <br /> d:=d-1; <br /> end; <br /> end; <br /> if l=length(s) div 2 then <br /> writeln(w2,s); <br /> <br /> {ascii} <br /> for i:=1 to length(s)-1 do <br /> if ord(s[i])+ord(s[i+1]) = 220 then <br /> writeln(w3,s); <br /> <br /> end; <br /> <br />writeln(w1,'Parzyste: ',parz); <br />writeln(w1,'Nieparzyste: ',nieparz); <br />writeln('Zapisano parzyste i nieparzyste'); <br />writeln('Wykonano palindromy'); <br />writeln('Wypisano hasla spelaniajce warunki ASCII'); <br /> <br />close(w1); <br />close(w2); <br />close(w3); <br />close(p); <br /> <br />readln; <br />end.</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/subBlack/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>Ricko</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/subBlack/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 22:07, 11 Maj 2012<span class="gen"> </span> Temat postu: Matura 2010</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"><span style="font-weight: bold">Matura 2010</span> <br />Część I <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Mamy podany sposób opisujący pewną metodę szyfrowania, tworzymy do niego algorytm, pseudokod lub program: <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program szyfr; <br /> <br />uses crt; <br /> <br />var <br />i,k,j:integer; <br />s,w:string; <br /> <br />begin <br /> clrscr; <br /> i:=1; <br /> w:=''; <br /> k:=2; <br /> <br /> writeln('Podaj slowo'); <br /> readln(s); <br /> <br /> while i<=k do <br /> begin <br /> j:=i; <br /> <br /> while j<=length(s) do <br /> begin <br /> w:=w+s[j]; <br /> j:=j+k; <br /> end; <br /> <br /> i:=i+1; <br /> end; <br /> <br /> writeln(w); <br /> readln; <br />end. <br /></td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Mamy na podstawie podanego szyfrowania słów napisać program wykonujący taką samą czynność np. MATURA zamieniania jest na AMUTAR <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program mat2; <br /> <br />uses crt; <br /> <br />var <br />s,w:string; <br />i:integer; <br /> <br />begin <br />clrscr; <br />w:=''; <br /> <br />writeln('Podaj slowo'); <br />readln(s); <br /> <br />for i:=1 to length(s) do <br /> <br />begin <br /> if i=length(s) then <br /> w:=w+s[i] <br /> else <br /> begin <br /> w:=w+s[i+1]+s[i]; <br /> end; <br /> i:=i+1; <br />end; <br /> <br />writeln(w); <br />readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program ma za zadanie wypisywać wszystkie dzielniki podanej liczby: <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program mat3; <br /> <br />uses crt; <br /> <br />var <br />n,i,j:integer; <br /> <br />begin <br />clrscr; <br />writeln('Podaj liczbe'); <br />readln(n); <br /> <br />for i:=2 to n do <br />if n mod i = 0 then <br /> begin <br /> n:=n div i; <br /> writeln(i); <br /> i:=i-1; <br /> end; <br />readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br />Część II <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program pobiera dane z pliku, sprawdza czy słowa są palindromami i te, które spełniają warunek zapisuje do pliku <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program pal; <br /> <br />uses crt; <br /> <br />const <br />plik='dane2.txt'; <br />plik2='zadanie4.txt'; <br /> <br />var <br />F,F2:text; <br />i,d,l:integer; <br />slowo:string; <br /> <br />begin <br />clrscr; <br />assign(F,plik); <br />assign(F2,plik2); <br />reset(F); <br />rewrite(F2); <br />while not eof(F) do <br /> begin <br /> readln(F,slowo); <br /> d:=length(slowo); <br /> l:=0; <br /> for i:=1 to length(slowo) div 2 do <br /> if slowo[i]=slowo[d] then <br /> begin <br /> l:=l+1; <br /> d:=d-1; <br /> end; <br /> <br /> if l=length(slowo) div 2 then <br /> begin <br /> writeln(slowo); <br /> writeln(F2,slowo); <br /> end; <br /> end; <br />readln; <br />close(F); <br />close(F2); <br />end.</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/subBlack/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>Ricko</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/subBlack/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 22:05, 11 Maj 2012<span class="gen"> </span> Temat postu: Matura z Informatyki - Zadania</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"><span style="font-weight: bold">Matura 2009</span> <br />Cześć I <br />Treść: <br />Wykonanie programu na podstawie podanego algorytmu [Wyniki rzutu oszczepem]. Program wypisze TAK tylko w wypadku, gdy każdy rzut jest dłuższy od poprzedniego, w innym wypadku zostanie wypisane NIE: <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program wyniki; <br /> <br />uses crt; <br /> <br />const <br />n=8; <br /> <br />var <br />t:array[1..n]of real; <br />akt,nast:real; <br />i:integer; <br /> <br />begin <br />clrscr; <br />t[1]:=60.51; <br />t[2]:=61.34; <br />t[3]:=61.85; <br />t[4]:=61.97; <br />t[5]:=62.79; <br />t[6]:=63.00; <br />t[7]:=63.81; <br />t[8]:=63.88; <br />akt:=t[1]; <br />for i:=1 to n do <br /> begin <br /> nast:=t[i+1]; <br /> <br /> if i=n then <br /> begin <br /> writeln('TAK'); <br /> break; <br /> end; <br /> <br /> if nast>akt then <br /> akt:=nast <br /> else <br /> begin <br /> writeln('NIE'); <br /> break; <br /> end; <br /> end; <br />readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Modyfikacja poprzedniego zadania polegająca na wypisywaniu największego wyniku: <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program maxwyn; <br /> <br />uses crt; <br /> <br />const <br />n=8; <br /> <br />var <br />t:array[1..n]of real; <br />akt,nast,max:real; <br />i:integer; <br /> <br />begin <br />clrscr; <br />t[1]:=60.51; <br />t[2]:=61.34; <br />t[3]:=61.85; <br />t[4]:=61.97; <br />t[5]:=62.79; <br />t[6]:=63.00; <br />t[7]:=63.81; <br />t[8]:=63.88; <br />max:=0; <br />for i:=1 to n do <br /> begin <br /> if t[i]>max then <br /> max:=t[i]; <br /> end; <br />writeln(max); <br />readln; <br />end. <br /></td> </tr> </table> <span class="postbody"> <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program zamieniające kwoty dwójkowe na dziesiętne (razem z groszami): <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program sklep; <br /> <br />uses crt; <br /> <br />var <br />s,suma:string; <br />i,j,k,zl,gr,p:integer; <br /> <br />begin <br />clrscr; <br />writeln('Podaj kwote binarnie'); <br />readln(s); <br /> for i:=1 to length(s) do <br /> if (s[i]=',') OR (s[i]='.') then <br /> begin <br /> k:=i; <br /> break; <br /> end <br /> else <br /> k:=length(s)+1; <br /> <br /> if s[k-1]='1' then <br /> zl:=zl+1; <br /> <br /> for i:=k-2 downto 1 do <br /> if s[i]='1' then <br /> begin <br /> p:=1; <br /> j:=k-1-i; <br /> repeat <br /> begin <br /> p:=p*2; <br /> j:=j-1; <br /> end; <br /> until <br /> j=0; <br /> zl:=zl+p; <br /> end; <br /> <br /> if k<>length(s)+1 then <br /> begin <br /> if s[length(s)-1]='1' then <br /> gr:=50; <br /> <br /> if s[length(s)]='1' then <br /> gr:=gr+25 <br /> end; <br /> <br /> writeln('Podana kwota dziesietnie to: ',zl,',',gr); <br /> <br /> readln; <br />end.</td> </tr> </table> <span class="postbody"> <br /> <br />Część II <br /> <br /><span style="font-weight: bold">Treść:</span> <br />Program ma zadanie wczytać liczby z pliku i wyszukać te, które są kwadratami liczb pierwszych <br /> <br /></span> <table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"> <tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">program pierwsze; <br /> <br />uses crt; <br /> <br />const <br />plik='liczby.txt'; <br /> <br />var <br />f:text; <br />i,k:integer; <br />liczba,n:longint; <br /> <br />begin <br />clrscr; <br />assign(f,plik); <br />reset(f); <br />writeln('Wczytywanie liczb z pliku'); <br />while not eof(f) do <br /> begin <br /> read(f,liczba); <br /> n:=round(sqrt(liczba)); <br /> if n*n = liczba then <br /> begin <br /> k:=0; <br /> for i:=1 to n do <br /> begin <br /> if n mod i = 0 then <br /> k:=k+1; <br /> end; <br /> <br /> if k=2 then <br /> writeln(liczba); <br /> end; <br /> end;; <br />readln; <br />end. <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/subBlack/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
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj