q2w3
14-01-2015, 23:11
Помогите доделать программу
она должна симулировать русскую рулетку.
При запуске должна запрашивать число(оно будет размером барабана от 1 и до скольки угодно, то есть мин=1, а мах- произволен)
допустим создаем массив, и в начале игры одному из чисел(из заданного промежутка) дается единичка(это пуля), всем остальным нули, и давим энтер пока кто то не попадает на число с 1.
как заставить программу запрашивать размер барабана
как создать массив для барабана
и как фиксировать пулю?
Знаю как должно быть, но программировать на этом языке почти не умею вот и нужно помощь с этим :dont-know
@echo off
:hra
set valec=%random%
set naboj=%random%
echo %valec%
echo Zaciname!
pause>nul
cls
set n=
for %%i in (%valec%) do set/a n+=1
:vystrel
set/a n-=1
if %n% equ 0 (
echo valec je prazdny.
echo %valec% -- naboj!
pause>nul
cls
goto hra
)
for /f %%i in ('
"powershell get-random %valec%"
') do set náhoda=%%i
title %
call set válec=%%valec:, %nahoda%=%%
call set válec=%%valec:%nahoda%, =%%
echo %valec%
if %nahoda% equ %naboj% (
echo %nahoda% -- naboj!
pause>nul
cls
goto hra
) else (
echo %nahoda%
pause>nul
cls
goto vystrel
)
nahoda-случай
valec-барабан револьвера
naboj-пуля
hra-игра
она должна симулировать русскую рулетку.
При запуске должна запрашивать число(оно будет размером барабана от 1 и до скольки угодно, то есть мин=1, а мах- произволен)
допустим создаем массив, и в начале игры одному из чисел(из заданного промежутка) дается единичка(это пуля), всем остальным нули, и давим энтер пока кто то не попадает на число с 1.
как заставить программу запрашивать размер барабана
как создать массив для барабана
и как фиксировать пулю?
Знаю как должно быть, но программировать на этом языке почти не умею вот и нужно помощь с этим :dont-know
@echo off
:hra
set valec=%random%
set naboj=%random%
echo %valec%
echo Zaciname!
pause>nul
cls
set n=
for %%i in (%valec%) do set/a n+=1
:vystrel
set/a n-=1
if %n% equ 0 (
echo valec je prazdny.
echo %valec% -- naboj!
pause>nul
cls
goto hra
)
for /f %%i in ('
"powershell get-random %valec%"
') do set náhoda=%%i
title %
call set válec=%%valec:, %nahoda%=%%
call set válec=%%valec:%nahoda%, =%%
echo %valec%
if %nahoda% equ %naboj% (
echo %nahoda% -- naboj!
pause>nul
cls
goto hra
) else (
echo %nahoda%
pause>nul
cls
goto vystrel
)
nahoda-случай
valec-барабан револьвера
naboj-пуля
hra-игра