FAQ
•
Szukaj
•
Użytkownicy
•
Grupy
•
Galerie
•
Rejestracja
•
Profil
•
Zaloguj się, by sprawdzić wiadomości
•
Zaloguj
Napisz odpowiedź
Forum TIBIA forum Strona Główna
»
O wszystkim i o niczym
» Napisz odpowiedź
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
$1
Kod potwierdzający:
$3
Przegląd tematu
Autor
Wiadomość
wolfgram
Wysłany: Pon 21:59, 05 Mar 2007 Temat postu:
Kurde czytając te teksty mam wrażenie że pisała je jedna osoba ale co tam, niezłe teksty. Hrh
Gość
Wysłany: Pon 11:29, 05 Mar 2007 Temat postu:
wszystko jak trzeba
program MaxMin_Rekurencja;
type Tablica=array[1..100] of integer;
var x:Tablica;
n,max,min:integer;
procedure Czytaj(n:integer; var x:Tablica);
var i:integer;
begin
for i:=1 to n do
begin
randomize;
x[i]:=random(1000);
writeln(x[i],' ');
end
end;
procedure MaxMinRek(i,j:integer;var max,min:integer);
var k,max1,max2,min1,min2:integer;
begin
if i=j then
begin
max:=i; min:=i end
else
if i+1=j then
if x[i]>=x[j] then
begin max:=i;
min:=j
end
else
begin
max:=j;
min:=i
end
else
begin
k:=(i+j) div 2;
MaxMinRek(i,k,max1,min1);
MaxMinRek(k+1,j,max2,min2);
if x[max1]>=x[max2] then
max:=max1
else
max:=max2;
if x[min1]<=x[min2]
then min:=min1
else min:=min2
end
end;
begin
writeln('Podaj z ilu elementow sklada sie tablica:');
readln(n);
Czytaj(n,x);
MaxMinRek(1,n,max,min);
write('maksimum = ');
writeln(x[max]);
write('minimum = ');
writeln(x[min]);
readln;
readln
end.
pan weisiek
Wysłany: Pon 11:26, 05 Mar 2007 Temat postu:
wlasnie!!! nie wiecie co to zycie bo nie wiecie co to tibia!
Andżej
Wysłany: Pon 11:24, 05 Mar 2007 Temat postu:
prze*ebane!!
Kur*a lamerzy pieprzeni, nie macie życia normalnego, to psujecie innym!!
ściągnijcie se tibie i zacznijcie czerpac z życia!!
współczuje wam
pan wiesiek
Wysłany: Pon 11:21, 05 Mar 2007 Temat postu:
NIE!!! co ja bede robil w czasie wolnym od tibia jak skasuja to forum!?!??!
andżej
Wysłany: Pon 11:19, 05 Mar 2007 Temat postu:
o w morde!!!!
ty oni chyba naprawde piszą juakieś procedury żeby zniszczyc to forum!!
słyszałem że jest taki virus co niszczy serwer i komputery wszystki uzytkowników!!!!
I jak ja wtedy bede mógł expic??!!
mełgełe
Wysłany: Pon 11:14, 05 Mar 2007 Temat postu:
program MaxMin_Rekurencja;
type Tablica=array[1..100] of integer;
var x:Tablica;
n,max,min:integer;
procedure Czytaj(n:integer; var x:Tablica);
var i:integer;
begin
for i:=1 to n do
begin
write('Podaj element tablicy nr ',i,': ');
read(x[i])
end
end;
procedure MaxMinRek(i,j:integer;var max,min:integer);
var k,max1,max2,min1,min2:integer;
begin
if i=j then
begin
max:=i; min:=i end
else
if i+1=j then
if x[i]>=x[j] then
begin max:=i;
min:=j
end
else
begin
max:=j;
min:=i
end
else
begin
k:=(i+j) div 2;
MaxMinRek(i,k,max1,min1);
MaxMinRek(k+1,j,max2,min2);
if x[max1]>=x[max2] then
max:=max1
else
max:=max2;
if x[min1]<=x[min2]
then min:=min1
else min:=min2
end
end;
begin
writeln('Podaj z ilu elementow sklada sie tablica:');
readln(n);
Czytaj(n,x);
MaxMinRek(1,n,max,min);
write('maksimum = ');
writeln(x[max]);
write('minimum = ');
writeln(x[min]);
readln;
readln
end.
Gość
Wysłany: Pon 11:12, 05 Mar 2007 Temat postu:
ktoś to zeskanował? to wirus? Bo nie chce tracixc mojego plate seta ;(
Andżej
Wysłany: Pon 11:11, 05 Mar 2007 Temat postu:
nie no bez przesady, fakt jestem dobry w tibie i dostałem 5 z zaliczenia z word'a w szkole, ale tam hakerem od razu...
ale moj brat to jest taki hardkorowy ze weź wogóle...
kiedyś mi gg zhakował, nie wiem jak on to robi, ale niezły hardkor!!
pan wiesiek
Wysłany: Pon 11:08, 05 Mar 2007 Temat postu:
idz stont! Andżeju
Forum TIBIA forum Strona Główna
»
O wszystkim i o niczym
» Napisz odpowiedź
Skocz do:
Wybierz forum
Tibia
----------------
Bronie
Questy
Sklepy i handel
Postacie
Potwory
Problemy techniczne
Miasta
Magia
Cipsoft
Programy
OTS
----------------
Wszystko o OTS
Wasze OTS-y
Problemy
Wasze opinie i sugestie
----------------
Strona spoko gildia
Forum
Inne
----------------
Gry
O wszystkim i o niczym
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001/3 phpBB Group ::
FI Theme
:: Wszystkie czasy w strefie EET (Europa)
Regulamin