Wpisy 2 518 206 – 2 518 305
17 grudnia 2015 18:29 → 17 grudnia 2015 21:18, 100 wpisów
o 14 wlazlo 44,45,47,35,38,43,58,59 nie wlazlo 48 49 jakies 2 kosze jeszcze
wizardz ...zali rozumu 3/3 ty nic nie trafisz ani kiedy ..patrz twój profil same zeroo
wizard - to może do tej 28, jeszcze 15 - bo jak o 15:00 wysyłałem?
38.44.47.38.35 nie zdziwie sie jak ponownie sie usmiechna 48 28 26 33 78 72 jakies zberezne liczby zaraz podam jak mi jakas pikna wpadnie
majpanie ..czemu złapałeś osoba barbi @... a powiedz widze ty wogóle nie grasz i jak
42 39 06 31 55 dobra starczy bo jeszcze wszystkie 80 napisze cos z tego trza wybrac
co ty 3-5 liczb nie trafisz? z tako iloscio naj czarodziejow w jednym miejscu
niemozliwe
niemozliwe
wobro nalerzy do kazdego od czegos trza umrzec nawet od 69 choc to cudowna przyjemna smierc
zreszta wracajac do kaftana mozna w nim wyladowac widzac wylosowane 6/6 w duzego
dobra bo trza cos zatypic skreslic sie poslac i isc do pracy na przedostatnia byc moze nocke zaczynalem od nd ale cos krakaja ze jeszcze z pt na so
a co myślałeś, że robi kulki do MM na 14.00 do jutrzejszego losowania?
gryks76 - jakbyś nie gadał do zwierzaka to wtedy to byłoby nienormalne trzeba jak najwięcej rozmawiać - chociaż udają, że nie rozumieją
20 liczb na Lotto dla wszystkich na mp:11,13,15,18,24,39,9,17,16,19,27,37,8,15,19,20,28,36,21,30.Grasz nimi,tylko na własną odpowiedzialność
majpanie ..isc ..isc ..isc @ barbi ..ja dzidaa ..teraz oglądam obok TV ..jestem w łózku
jeszcze 55 minut
SIERPIEŃ PRZED ZIĘBICAMI
4,22,28,33,45,47 //stare 15 mln kumulacja
1,4,23,33,48,49 //stare 20 mln kumulacja
6,16,21,30,47,48 //stare 25 mln kumulacja
1,14,23,31,33,35 //stare 35 mln jedna wygrana
4,22,28,33,45,47 //stare 15 mln kumulacja
1,4,23,33,48,49 //stare 20 mln kumulacja
6,16,21,30,47,48 //stare 25 mln kumulacja
1,14,23,31,33,35 //stare 35 mln jedna wygrana
GRUDZIEŃ 2015
4,5,26,27,30,34 //nowe 15 mln kumulacja
2,7,10,18,29,33 //nowe 20 mln kumulacja
x,x,x,x,x,x //nowe 25 mln kumulacja albo wygrana
if wygrana -> end
else go to nowe 35 mln
{y,y,y,y,y,y} //nowe 35 mln kumulacja
4,5,26,27,30,34 //nowe 15 mln kumulacja
2,7,10,18,29,33 //nowe 20 mln kumulacja
x,x,x,x,x,x //nowe 25 mln kumulacja albo wygrana
if wygrana -> end
else go to nowe 35 mln
{y,y,y,y,y,y} //nowe 35 mln kumulacja
naprawdę ciężko coś powiedzieć więcej na temat dzisiejszych liczb
34 pewniak? naprawdę ciężko prognozować...
34 lubi 43, ale czasem nie lubi, i wtedy rozrzuca po 10-tkach albo 30-tkach
a może warto iść i zagrać 5 min przed 21:00 na quick pick'a... <zastanawia się>
43,35
nie wycofuje się z 43,35 -> napewno zmienili algorytm...
Pilka nozna - 2.Anglia - Wolverh.-Leeds
10
SUPEROFERTA - Czwartek - Feyenoord-Tilburg
1
Pilka nozna - Hiszpania - puchar - Villarreal-Huesca
1
Pilka nozna - Hiszpania - puchar - Granada-Leganes
10
Pilka nozna - Wlochy - puchar - Sampdoria-AC Milan
10
10
SUPEROFERTA - Czwartek - Feyenoord-Tilburg
1
Pilka nozna - Hiszpania - puchar - Villarreal-Huesca
1
Pilka nozna - Hiszpania - puchar - Granada-Leganes
10
Pilka nozna - Wlochy - puchar - Sampdoria-AC Milan
10
co to za język "if wygrana -> end
else go to nowe 35 mln
{y,y,y,y,y,y} //nowe 35 mln kumulacja" - basic
else go to nowe 35 mln
{y,y,y,y,y,y} //nowe 35 mln kumulacja" - basic
Program Stosdlammax;
const NMax=2;
Type float=double;
TArr=array[0..NMax-1,0..NMax-1] of float;
PElement=^TElement;
TElement = record
poprz Element;
X :TArr;
end;
TStos=PElement; {wskażnik na wierzcholek stosu}
procedure NaStos(var St :TStos; _X :TArr); {X-dane nowego elementu}
var w Element;
begin
new(w);
w^.X:=_X;
w^.poprz:=St;
St:=w;
end;
procedure ZeStosu(var St :TStos; var _X :TArr);
var w Element;
begin
if (St=nil) then EXIT; {BLAD}
w:=St;
_X:=w^.X;
St:=w^.poprz;
Dispose(w);
end;
procedure Dodaj(var St :TStos);
var i, j :0..NMax-1;
T :TArr;
begin
ZeStosu(St, T);
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do
St^.X[i,j]:=St^.X[i,j]+T[i,j];
end;
const NMax=2;
Type float=double;
TArr=array[0..NMax-1,0..NMax-1] of float;
PElement=^TElement;
TElement = record
poprz Element;
X :TArr;
end;
TStos=PElement; {wskażnik na wierzcholek stosu}
procedure NaStos(var St :TStos; _X :TArr); {X-dane nowego elementu}
var w Element;
begin
new(w);
w^.X:=_X;
w^.poprz:=St;
St:=w;
end;
procedure ZeStosu(var St :TStos; var _X :TArr);
var w Element;
begin
if (St=nil) then EXIT; {BLAD}
w:=St;
_X:=w^.X;
St:=w^.poprz;
Dispose(w);
end;
procedure Dodaj(var St :TStos);
var i, j :0..NMax-1;
T :TArr;
begin
ZeStosu(St, T);
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do
St^.X[i,j]:=St^.X[i,j]+T[i,j];
end;
procedure Mnoz(var St :TStos);
var i, j, k :0..NMax-1;
B {czynnik}, C {wynik} :TArr;
begin
ZeStosu(St, B); {2-gi czynnik}
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do begin
C[i,j]:=0;
for k:=0 to NMax-1 do
C[i,j]:=C[i,j]+St^.X[i,k]*B[k,j];
end;
{zdejmij ze stosu 2-gi czynnik, a potem tam wynik}
ZeStosu(St, B);
NaStos(St, C);
end;
procedure Wyswietl(Nagl:string; A :TArr);
{Wyswietla element wskazywany przez W, na pocz. wyswietla Nagl}
var i, j :0..NMax-1;
begin
writeln(Nagl);
for i:=0 to NMax-1 do begin
for j:=0 to NMax-1 do
write(A[i,j]:6:1,' ';
writeln;
end;
writeln;
end;
procedure InicjujDowolnie (var A :TArr);
var i, j :0..NMax-1;
begin
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do
A[i,j]:=random(10) -5.0;
end;
var i, j, k :0..NMax-1;
B {czynnik}, C {wynik} :TArr;
begin
ZeStosu(St, B); {2-gi czynnik}
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do begin
C[i,j]:=0;
for k:=0 to NMax-1 do
C[i,j]:=C[i,j]+St^.X[i,k]*B[k,j];
end;
{zdejmij ze stosu 2-gi czynnik, a potem tam wynik}
ZeStosu(St, B);
NaStos(St, C);
end;
procedure Wyswietl(Nagl:string; A :TArr);
{Wyswietla element wskazywany przez W, na pocz. wyswietla Nagl}
var i, j :0..NMax-1;
begin
writeln(Nagl);
for i:=0 to NMax-1 do begin
for j:=0 to NMax-1 do
write(A[i,j]:6:1,' ';
writeln;
end;
writeln;
end;
procedure InicjujDowolnie (var A :TArr);
var i, j :0..NMax-1;
begin
for i:=0 to NMax-1 do
for j:=0 to NMax-1 do
A[i,j]:=random(10) -5.0;
end;
Procedure Pause; begin write('Nacisnij ENTER...' :60); readln;
var St :TStos;
var A,B,C :TArr;
procedure TestStNil; begin
if (St<>nil) then writeln ('program zawiera body!' );
end;
BEGIN
writeln(#13#10,'=== Stos i odwrotna notacja polska ===';
St:=nil;
Randomize; InicjujDowolnie(A) InicjujDowolnie(B);
Wyswietl('A:',A); Wyswietl('B:',B);
NaStos(St,A);
NaStos(St,B);
Dodaj(St);
ZeStosu(St,C); Wyswietl('C=A+B',C);
TestStNil; Pause;
NaStos(St,A);
NaStos(St,B);
Odejmij(St);
ZeStosu(St,C); Wyswietl('C=A-B',C);
TestNil; Pause;
NaStos(St,A);
NaStos(St,B);
Mnoz(St);
ZeStosu(St,C); Wyswietl('C=A*B',C);
TestStNil; Pause;
NaStos(St,A);
NaStos(St,B);
NaStos(St,C);
Dodaj(St);
Mnoz(St);
ZeStosu(St,C); Wyswietl('C=A*(B+C)',C);
var St :TStos;
var A,B,C :TArr;
procedure TestStNil; begin
if (St<>nil) then writeln ('program zawiera body!' );
end;
BEGIN
writeln(#13#10,'=== Stos i odwrotna notacja polska ===';
St:=nil;
Randomize; InicjujDowolnie(A) InicjujDowolnie(B);
Wyswietl('A:',A); Wyswietl('B:',B);
NaStos(St,A);
NaStos(St,B);
Dodaj(St);
ZeStosu(St,C); Wyswietl('C=A+B',C);
TestStNil; Pause;
NaStos(St,A);
NaStos(St,B);
Odejmij(St);
ZeStosu(St,C); Wyswietl('C=A-B',C);
TestNil; Pause;
NaStos(St,A);
NaStos(St,B);
Mnoz(St);
ZeStosu(St,C); Wyswietl('C=A*B',C);
TestStNil; Pause;
NaStos(St,A);
NaStos(St,B);
NaStos(St,C);
Dodaj(St);
Mnoz(St);
ZeStosu(St,C); Wyswietl('C=A*(B+C)',C);
Wydział Podstawowych Problemów Techniki
Politechniki Wrocławskiej
Jak skreślać aby wygrać?
Badanie zachowań i strategii graczy w toto-lotka
http://www.ioz.pwr.wroc.pl/pracownicy/weron/prace/Kulinska08.pdf
Politechniki Wrocławskiej
Jak skreślać aby wygrać?
Badanie zachowań i strategii graczy w toto-lotka
http://www.ioz.pwr.wroc.pl/pracownicy/weron/prace/Kulinska08.pdf
co? to za taki szajs dają dyplom?
chyba kogoś mocno pogięło...
ponadto wykresy słupkowe są nieczytelne -> brak legendy i odpowiednich oznaczeń...
Witajcie. Hej.
Dawać losowanie.
