TIBIA forum :: Przegląd tematu

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

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.

Wysłany: Pon 11:26, 05 Mar 2007 Temat postu:

wlasnie!!! nie wiecie co to zycie bo nie wiecie co to tibia!

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

Wysłany: Pon 11:21, 05 Mar 2007 Temat postu:

NIE!!! co ja bede robil w czasie wolnym od tibia jak skasuja to forum!?!??!

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??!!

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.

Wysłany: Pon 11:12, 05 Mar 2007 Temat postu:

ktoś to zeskanował? to wirus? Bo nie chce tracixc mojego plate seta ;(

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!!

Wysłany: Pon 11:08, 05 Mar 2007 Temat postu:

idz stont! Andżeju