Ñîçäàåì ìàòðèöó â áëîêíîòå

Ñîçäàåì ìàòðèöó â áëîêíîòå

Îòêðîéòå áëîêíîò è ñêîïèðóéòå òóäà ýòîò òåêñò:
setlocal enabledelayedexpansion
:: Îòêëþ÷àåì âûâîä.
echo off
:: Çàäà¸ì çàãîëîâîê îêîøêà.
title It's Matrix
color 02
:: Îò÷èùàåì ýêðàí êîìàíäíîé ñòðîêè.
cls
:: Ñòàâèì ìåòêó äëÿ ñîçäàíèÿ çàìêíóòîãî öèêëà.
:prodolgit
:: Çàäà¸ì öèêë ñî ñìåíîé öâåòîâ â ñëó÷àéíîì ïîðÿäêå, íî â çàäàííîì äèàïàçîå.
set stroka=
for /l %%i in (0,1,78) do (
set /a vremenno=!random!%%2
set stroka=!stroka!!vremenno!
)
set /a generate=!random!%
if %generate%==0 (color 0A) else (color 02)
:: Âûâîäèì ìàòðèöó íà ýêðàí.
echo %stroka%
:: Ïåðåõîäèì ïî ìåòêå.
goto prodolgit

Ôàéë->ñîõðàíèòü êàê->òèï ôàéëà(âñå ôàéëû)->èìÿ ôàéëû->matrix.bat

Ìîæåòå ïîýêñïåðèìåíòèðîâàòü: åñëè â ñòðîêå color ââåñòè íå 02 (êñòàòè, ìîæíî è ïðîñòî 2), à 03 (èëè 3), òî íà ÷åðíîì ôîíå ïîáåãóò íå çåëåíûå, à ãîëóáûå öèôðû; 04 (4) – êðàñíûå; 05 (5) – ñèðåíåâûå; 06 (6) – æåëòûå; 07 (7) – áåëûå; 08 (8) – ñåðûå; 09 (9) – ñèíèå; 10 – ÷åðíûå öèôðû íà ñèíåì ôîíå; 11 – áåëûå öèôðû íà ãîëóáîì ôîíå; 12 – æåëòûå öèôðû íà ñèíåì ôîíå; … 14 – êðàñíûå öèôðû íà ñèíåì ôîíå; …