Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 2

Модерирует : KLASS, IFkO

vu1tur (27-04-2007 11:55): продолжаем в теме «Задачи на bat-файлах 3»  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

vu1tur



Moderator-Saaber
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Готов решить любую задачу по программированию на bat-файлах для системы WinXP.
 
Вот пример:
Подсчитать количество счастливых 6-ти значных билетов (сумма первых 3-х цифр = сумме последних 3-х).
Мое решение:

Код:
rem bilet.bat (c) HACSoft, 2005.
echo off
setlocal enabledelayedexpansion
cls
echo Complete: 00 %%
set cnt=0
set old=0
for /l %%a in (0,1,9) do (
 for /l %%b in (0,1,9) do (
  for /l %%c in (0,1,9) do (
   set /a left=%%a+%%b+%%c
   for /l %%d in (0,1,9) do (
    for /l %%e in (0,1,9) do (
     set /a cmp=left-%%d-%%e
     if !cmp! geq 0 (
      if !cmp! leq 9 (
       set /a cnt+=1
       if not !old!==%%b (
        set old=%%b
        cls
        echo Complete: %%a%%b %%
       )
      )
     )
    )
   )
  )
 )
)
cls
echo Result: %cnt%

Программа делает полный перебор. Весь этот процесс на моем компе занимает около 20 секунд. В ходе работы программа выводит, сколько процентов уже выполнено. Если это убрать, то считает где-то за 13 секунд. :)

Всего записей: 3690 | Зарегистр. 01-02-2003 | Отправлено: 16:59 14-11-2006 | Исправлено: Elroir, 04:30 26-04-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 2
vu1tur (27-04-2007 11:55): продолжаем в теме «Задачи на bat-файлах 3»


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru

Рейтинг.ru