Wpisy 2 518 288 – 2 518 387

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

billgates007 - nie, algorytmu nie zmienili będzie 43,35

billgates007 - i przetłumacz troszkę swój kod z wpisu 2 518 279.

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

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;

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;

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

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

co? to za taki szajs dają dyplom?

chyba kogoś mocno pogięło...

ponadto wykresy słupkowe są nieczytelne -> brak legendy i odpowiednich oznaczeń...

Bill

Siemano

Mam pytanie.
Ale pewnie dasz nogę.

Witajcie. Hej.

Tak tak chodzi o Ciebie billgates007

Dawać losowanie.

Janosik

Zestawy czekały do sprawdzenia

Vasil.
Jutro mam wolny dzień, dzisiaj musiałem 'trochę'popracować.

TS pamiętaj, to trzeba wylosować dzisiaj albo jutro.
23 lub 33.

Janosik to jutro cos podam

Jutro rano będę na Multipasko.
Chętnym sprawdzę liczby.
Vasil:
Twoje liczby sprawdzę jako najpierwsze.
O ile je podasz .

Teraz:
Rzeszów: +1./jeden/
Poznań: +10.

Oks

WitamJuliaaMasz odpowiedż

Brjan:

Janosik

czesc...u mnie nie widac losowania

Nie wiem jak u was ale u mnie losowanie nie idzie

chwila prawdy nadchodzi
powodzonka

wszystkim obecnym

moze juz wylosowali

u mnie też niema

Medea.

juz leci lipa.....co za gra

Witam
Panie
Panowie

dotam no to mnie uspokoiłeś

i u mnie nie ma

Co z tym los.?

Jakiś MegaMocny hak namieszał?

skoro losowanka nie widac wylosują w ciemno 1-2-3-4-5-6
i bedzie 1500 100 900 szóstek

szambo

Wszystkim

medea76 fiolka

znowu jakaś wtyczka czy co

co z losowaniem,.....nic, juz po losowaniu pewnie....

sony,fiolka

telewizora w domu nie macie ???

sony, medusia

CO jest z losowaniem? gdziekolwiek widac ?

jak ktos oglada w TV niech przepisuje i podaje na czacie.

jedyna nadzieja w Pasko...ze poda nam co wylosowali

na jakim kanale losowanie ?

ani losowania, ani liczb

w mini 1,17,27,15,37 padło

Już działa w necie

781.

Leci KANT TSa

mini lotek

1-17-15-27-37

tvp.info

Coś tu śmierdzi

fiolka

Brjan...

Na TV IFO

zamiast losowania, rozmowy nocą

846.

Cholek w studio
coś kręcą żeby zamydlić

Zapraszamy wszystkich na http://www.system12.pl Lotto przez Internet Gry grupowe

Hołowczyc namawia do gry

Mini Lotto 17.12.2015 Czwartek
1 15 17 27 37

wywiad przeprowadzają z Hołowczycem...takie TELE ECHO

świeta 50000000

934.

Ale nogiale kieca sory za spuznienie sie

Czasu nie mają

czekaja z kumulacja do Swiat i wtedy jakas jedna osoba trafi hee z ich kliki.

24 mln 500 tys. w lotto

Plecie głupoty,że myśmy są mecenasami,a ja twierdzę ,że frajerami

W Polsce wszystko spada na psy

17,18,19,21,12

Po kumulacji

lotto

Ale oczyale liczbyale nie moje

12, 17, 18, 19, 21, 28 LOTTO
1, 7, 10, 13, 29, 33 LOTTO PLUS

całe szczescie ze nie trafiłam w lotto, bo mafie by mnie rozdarły....

co to za liczby, prawdziwi wałkomistrze

będzie kumulacja

W koncu liczby a gdzie moje

10 szóstek?

a multi ma ktos???

Będzie 40 mln ?

no i niema MM