 |
|
Autor |
Wiadomość |
pan wiesiek
Gość
|
Wysłany:
Pon 11:21, 05 Mar 2007 |
 |
NIE!!! co ja bede robil w czasie wolnym od tibia jak skasuja to forum!?!??!
|
|
|
|
 |
|
 |
Andżej
Gość
|
Wysłany:
Pon 11:24, 05 Mar 2007 |
 |
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 weisiek
Gość
|
Wysłany:
Pon 11:26, 05 Mar 2007 |
 |
wlasnie!!! nie wiecie co to zycie bo nie wiecie co to tibia!
|
|
|
|
 |
Gość
|
Wysłany:
Pon 11:29, 05 Mar 2007 |
 |
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.
|
|
|
|
 |
wolfgram
Administrator
Dołączył: 29 Kwi 2006
Posty: 69
Przeczytał: 0 tematów
Ostrzeżeń: 0/10
Skąd: Upper Silesia
|
Wysłany:
Pon 21:59, 05 Mar 2007 |
 |
Kurde czytając te teksty mam wrażenie że pisała je jedna osoba ale co tam, niezłe teksty. Hrh
|
Post został pochwalony 0 razy
|
|
 |
 |
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB
© 2001/3 phpBB Group :: FI Theme ::
Wszystkie czasy w strefie EET (Europa)
| |