Wpisy 2 518 294 – 2 518 393
17 grudnia 2015 20:55 → 17 grudnia 2015 21:52, 100 wpisów
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.
Vasil.
Jutro mam wolny dzień, dzisiaj musiałem 'trochę'popracować.
Jutro mam wolny dzień, dzisiaj musiałem 'trochę'popracować.
TS pamiętaj, to trzeba wylosować dzisiaj albo jutro.
23 lub 33.
23 lub 33.
Jutro rano będę na Multipasko.
Chętnym sprawdzę liczby.
Vasil:
Twoje liczby sprawdzę jako najpierwsze.
O ile je podasz .
Chętnym sprawdzę liczby.
Vasil:
Twoje liczby sprawdzę jako najpierwsze.
O ile je podasz .
Teraz:
Rzeszów: +1./jeden/
Poznań: +10.
Rzeszów: +1./jeden/
Poznań: +10.
Brjan:
czesc...u mnie nie widac losowania
moze juz wylosowali
Medea.
juz leci lipa.....co za gra
skoro losowanka nie widac wylosują w ciemno 1-2-3-4-5-6
i bedzie 1500 100 900 szóstek
i bedzie 1500 100 900 szóstek
co z losowaniem,.....nic, juz po losowaniu pewnie....
CO jest z losowaniem? gdziekolwiek widac ?
jedyna nadzieja w Pasko...ze poda nam co wylosowali
na jakim kanale losowanie ?
781.
846.
Zapraszamy wszystkich na http://www.system12.pl Lotto przez Internet Gry grupowe
wywiad przeprowadzają z Hołowczycem...takie TELE ECHO
934.
Ale nogiale kieca sory za spuznienie sie
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
Dopisano wyniki Lotto - 12,17,18,19,21,28
Ale oczyale liczbyale nie moje
Dopisano wyniki Lotto Plus - 01,07,10,13,29,33
Typowania Lotto Plus
Użytkownik duszka wytypował 5/12Użytkownik bubcia1999 wytypował 5/12
Użytkownik mirnam61 wytypował 5/12
Użytkownik instant01 wytypował 5/12
12, 17, 18, 19, 21, 28 LOTTO
1, 7, 10, 13, 29, 33 LOTTO PLUS
1, 7, 10, 13, 29, 33 LOTTO PLUS
całe szczescie ze nie trafiłam w lotto, bo mafie by mnie rozdarły....
Dopisano wyniki Mini Lotto - 01,15,17,27,37
W koncu liczby a gdzie moje
Analiza stałych zestawów liczbowych Mini Lotto
Zykfryt69 4/5
a multi ma ktos???
nie bedzie 40 mln....a jak będzie to wiadomo co robią.....
Dopisano wyniki Multi Multi
06,11,16,20,22,25,30,32,38,47,51,53,54,58,59,62,68,70,71,78
Plusem jest liczba: 62
06,11,16,20,22,25,30,32,38,47,51,53,54,58,59,62,68,70,71,78
Plusem jest liczba: 62
Analiza stałych zestawów liczbowych Multi Multi
Przeanalizowano 6712 zestawów od 906 typujących.Łączna wygrana przy grze bez opcji "Plus": 4 292 zł
Łączna wygrana przy grze z opcją "Plus": 9 360 zł
TOP 5 zestawów Multi Multi:
- Andrzej40 - koszt gry: 50,00 zł, wygrana: 704 zł = 14,08 x koszt gry
- toTY - koszt gry: 5,00 zł, wygrana: 48 zł = 9,60 x koszt gry
- gaja - koszt gry: 2,50 zł, wygrana: 20 zł = 8,00 x koszt gry
- luleńka - koszt gry: 40,00 zł, wygrana: 320 zł = 8,00 x koszt gry
- armageddon303 - koszt gry: 50,00 zł, wygrana: 282 zł = 5,64 x koszt gry
W przypadku kumulacji Lotto zapraszamy do gier grupowych już od 1,23 zł Można grać kuponami nawet z 12 liczbami Zapraszamy na http://www.system12.pl