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: Nie 12:38, 08 Maj 2011<span class="gen"> </span> Temat postu: Słowa - Informatyka (R)</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody"><span style="font-weight: bold"><span style="font-size: 16px; line-height: normal"><span style="color: red">Słowa</span></span></span> <br /> <br /><span style="font-size: 14px; line-height: normal"><span style="color: orange"><span style="font-weight: bold">a)Pobranie słów z pliku <span style="font-style: italic">slowa.txt</span> <br />b)Zapisanie pobranych słów "od tyłu" do pliku <span style="font-style: italic">hasla_a.txt</span> <br />c)Znalezienie najdłuższego słowa i zapisanie go wraz z jego długością do pliku <span style="font-style: italic">slowa_a.txt</span></span></span></span> <br /> <br /><span style="font-weight: bold">Źródło:</span> <span style="font-style: italic">Praca na lekcji informatyki rozszerzonej</span> <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 slowa; <br /> <br />uses crt; <br /> <br />var <br />dane,wynik1,wynik2:text; <br />slowo,slowo_max,slowo_min:string; <br />min,max:integer; <br /> <br /> <br />procedure odwroc(var slowo:string); <br />var <br />pomoc:string; <br />i:integer; <br /> <br />begin <br />pomoc:=''; <br />for i:=length(slowo) downto 1 do <br />pomoc:=pomoc+slowo[i]; <br />slowo:=pomoc; <br />end; <br /> <br />begin <br />clrscr; <br />assign(dane, 'slowa.txt'); <br />assign(wynik1, 'hasla_a.txt'); <br />assign(wynik2, 'slowa_a.txt'); <br /> <br />reset(dane); <br />rewrite(wynik1); <br />rewrite(wynik2); <br /> <br />min:=31; <br />max:=0; <br /> <br />slowo_min:=slowo; <br />slowo_max:=slowo; <br /> <br />while not Eof(dane) do <br /> begin <br /> readln(dane, slowo); <br /> odwroc(slowo); <br /> writeln(wynik1,slowo); <br /> <br /> if length(slowo) > max then <br /> begin <br /> max:=length(slowo); <br /> slowo_max:=slowo; <br /> end; <br /> <br /> if length (slowo) < min then <br /> begin <br /> min:=length(slowo); <br /> slowo_min:=slowo; <br /> end; <br /> <br /> end; <br /> <br /> writeln(wynik2, 'Max: ' ,max, ' ' ,slowo_max); <br /> writeln(wynik2, 'Min: ' ,min, ' ' ,slowo_min); <br /> <br />close(dane); <br />close(wynik1); <br />close(wynik2); <br /> <br />writeln('ZROBIONO!'); <br />readln; <br /> <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> </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