[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
mình đã chạy chương trình pascal trong đó tính toán lợi thế/ bất lợi của tất cả chiến thuật chơi bầu cua (mỗi ô từ 0 - 20) để xem có cách nào để thắng thế trong bầu cua không
chương trình:
và cách chơi hay nhất là... không chơi
tất cả cách khác treo trung bình sẽ bị lỗ, số đằng sau là số lãi lỗ trung bình của người chơi sau khi chơi 216 cái (tính 1 lần chơi thì tự chia cho 216)
cách hay nhì là chỉ đặt 1 ô 1k, trung bình 1 lần sẽ mất 17/216 ≈ 0.0787037 (tầm 79 đồng) (trung bình sau 216 lần sẽ mất 17k, từ 216k vốn còn 199k)
=> người không chơi là người thắng =)))
các chiến thuật còn lại mình để ở đây
chương trình:
program bc;
uses crt;
var //tieno: array[1..6] of byte;
t1, t2, t3, t4, t5, t6, xucxac1, xucxac2, xucxac3: byte;
kqo: array[1..6] of shortint;
//xucxac: array[1..3] of byte;
sum, best: int32;
count: byte;
f: text;
begin
clrscr;
readln;
best:=-1000000000;
assign(f, 'ketqua.txt');
rewrite(f);
for t1 := 0 to 20 do
for t2 := t1 to 20 do
for t3 := t2 to 20 do
for t4 := t3 to 20 do
for t5 := t4 to 20 do
for t6 := t5 to 20 do
begin
sum:=0;
for xucxac1:= 1 to 6 do
for xucxac2:= 1 to 6 do
for xucxac3:= 1 to 6 do
begin
for count:= 1 to 6 do kqo[count]:=0;
kqo[xucxac1]:=kqo[xucxac1]+1;
kqo[xucxac2]:=kqo[xucxac2]+1;
kqo[xucxac3]:=kqo[xucxac3]+1;
for count:= 1 to 6 do if kqo[count] = 0 then kqo[count]:= -1;
sum:= sum+ t1*kqo[1]+t2*kqo[2]+t3*kqo[3]+t4*kqo[4]+t5*kqo[5]+t6*kqo[6];
end;
writeln(f, t1:2, ',', t2:2, ',', t3:2, ',', t4:2, ',', t5:2, ',', t6:2, ':', sum:4, ' ');
writeln(t1:2, ',', t2:2, ',', t3:2, ',', t4:2, ',', t5:2, ',', t6:2);
if (sum>= best) and (sum <> 0) then best:=sum;
end;
writeln(f, best);
writeln(best);
readln;
close(f);
end.
uses crt;
var //tieno: array[1..6] of byte;
t1, t2, t3, t4, t5, t6, xucxac1, xucxac2, xucxac3: byte;
kqo: array[1..6] of shortint;
//xucxac: array[1..3] of byte;
sum, best: int32;
count: byte;
f: text;
begin
clrscr;
readln;
best:=-1000000000;
assign(f, 'ketqua.txt');
rewrite(f);
for t1 := 0 to 20 do
for t2 := t1 to 20 do
for t3 := t2 to 20 do
for t4 := t3 to 20 do
for t5 := t4 to 20 do
for t6 := t5 to 20 do
begin
sum:=0;
for xucxac1:= 1 to 6 do
for xucxac2:= 1 to 6 do
for xucxac3:= 1 to 6 do
begin
for count:= 1 to 6 do kqo[count]:=0;
kqo[xucxac1]:=kqo[xucxac1]+1;
kqo[xucxac2]:=kqo[xucxac2]+1;
kqo[xucxac3]:=kqo[xucxac3]+1;
for count:= 1 to 6 do if kqo[count] = 0 then kqo[count]:= -1;
sum:= sum+ t1*kqo[1]+t2*kqo[2]+t3*kqo[3]+t4*kqo[4]+t5*kqo[5]+t6*kqo[6];
end;
writeln(f, t1:2, ',', t2:2, ',', t3:2, ',', t4:2, ',', t5:2, ',', t6:2, ':', sum:4, ' ');
writeln(t1:2, ',', t2:2, ',', t3:2, ',', t4:2, ',', t5:2, ',', t6:2);
if (sum>= best) and (sum <> 0) then best:=sum;
end;
writeln(f, best);
writeln(best);
readln;
close(f);
end.
tất cả cách khác treo trung bình sẽ bị lỗ, số đằng sau là số lãi lỗ trung bình của người chơi sau khi chơi 216 cái (tính 1 lần chơi thì tự chia cho 216)
cách hay nhì là chỉ đặt 1 ô 1k, trung bình 1 lần sẽ mất 17/216 ≈ 0.0787037 (tầm 79 đồng) (trung bình sau 216 lần sẽ mất 17k, từ 216k vốn còn 199k)
=> người không chơi là người thắng =)))
các chiến thuật còn lại mình để ở đây