mełgełe

Gość

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);
MaxMubRek(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;

Gość

ale zajebiste! dzieki teamu mam 180 lvl elder knight!!! ktory rzuca UE podczas sylwestra u kolegi ! Polecam!!!

Gość

co slychac?

Gość

Po*ebani jesteście!!
co wy sobie robicie, tutaj jakieś wirusy wrzucacie!!
wiecie że to teraz mozna do więzienia pójść!!!!
A moj brat jest hakerem wiec jak jeszcze coś wżucicie to was zhakuje!!

Gość

sam jestes haker!

Gość

idz stont! Andżeju

Gość

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:12, 05 Mar 2007

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

Gość

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ść

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