При наличии файла в каталоге вывести из него на экран целые числа, делящиеся без остатка на 5

15.12.2011, 22:24. **Показов** 8091. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Разработать и выполнить командный файл (КФ), выполняющий проверку наличие файла Numb.txt в каталоге, указанном первым параметром КФ. Прочитать целые числа из файла, найти среди них числа, делящиеся без остатка на 5 и вывести результаты на экран.

Помоги пожалуйста!Очень надо!
Ни как не получается(((

@Astonjke · 16.12.2011, 00:03

Переделаешь под себя

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
@echo off
set /p NAME="Is kakogo fayla  : "
set /p MIN1="Ot srtoki pervogo: "
set /p MAX1="Do stroki pervogo: "
 
set CNT=0
 
for /f "tokens=*" %%S in ('type %NAME%') do (
  set /A CNT+=1
  if !CNT! GEQ %MIN1% if !CNT! LEQ %MAX1% (
    for %%A in (%%S) do (
      set /A MOD=%%A %% 5
      if !MOD! equ 0 echo %%A
    )
  )
)
 
pause

@Ris · 16.12.2011, 10:15

Подразумевается что в файле Numb.txt каждое число вводится с новой строки

Bash
1
2
3
4
5
6
7
8
9
@echo off
if not exist "%~1\Numb.txt" (echo  File "Numb.txt" not found in "%~1"&pause&exit)
for /f "tokens=*" %%i in ('findstr /r /c:"[0-9]" "%~1\Numb.txt" ^| findstr /r /v /c:"\," ^| findstr /r /v /c:"\."') do (call :dl %%i)
pause
exit
:dl
set /a x=%1 %% 5
if %x%==0 echo %1
exit /b

Украл с первого кода %%(типа остаток)

19.12.2011, 16:12

СПАСИБО БОЛЬШОЕ!!!!!ОЧЕНЬ ПОМОГЛИ)))

@Cnojluk · 10.01.2014, 21:28

Доброго времени суток всем!Дабы не создавать новую тему,решил попросить помощи тут!
Задача один в один,но сделать надо на cmd и powershell 2.0.Начал делать на cmd и никак не могу понять как вывести эти злосчастные числа

Помогите пожалуйста,если не сложно.Код моих страданий ниже:

Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
@echo off
if -%1==- goto noparam 
if not exist %1 goto nocatalog
if not exist numb.txt goto nofile
for /F  %%i in ( 'findstr /rc:"[0-9]" numb.txt' ) do set /A a=i
if %a%%%5==0
echo %a%
goto :eof
:nocatalog
echo "Заданная папка не найдена"
goto :eof
:nofile
echo "Файл не найден"
GOTO :EOF
:noparam
echo "Не задано имя папки"

Заранее благодарен!

@nmv · 11.11.2015, 13:51

Ris, У меня не работает... Пишет, что не найден файл. Хотя он лежит вместе с батником:-(

@ComSpec · 11.11.2015, 22:42

Сообщение от nmv

У меня не работает... Пишет, что не найден файл. Хотя он лежит вместе с батником:-(

"Не работает", наверное, потому, что забыли вписать в код пару строк:

Windows Batch file
if "%~1" equ "" call :main "%~dp0"& exit/b
 
:main

.

Код командного файла:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
@echo off& setlocal
 
set "file=Numb.txt"
 
if "%~1" equ "" call :main "%~dp0"& exit/b
 
:main
2>nul pushd "%~1"|| (
echo The directory is not exist.
pause>nul& exit/b 1
)
>nul 2>&1 dir/a-d "%file%"|| (
echo The file is not found.
pause>nul& exit/b 2
)
for /f %%i in ('
 more "%file%"^| findstr [0-9]^| findstr/v ", \."
') do (
 2>nul set/a "./(%%i%%5)"|| (
 echo %%i
 )
)
pause>nul& popd& endlocal& exit/b 0

.

@nmv · 12.11.2015, 08:17

ComSpec, Большое спасибо за помощь!

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

При наличии файла в каталоге вывести из него на экран целые числа, делящиеся без остатка на 5

Решение

Решение

NER1234

	При наличии файла в каталоге вывести из него на экран целые числа, делящиеся без остатка на 5 15.12.2011, 22:24. Показов 8091. Ответов 7 Метки нет (Все метки) Разработать и выполнить командный файл (КФ), выполняющий проверку наличие файла Numb.txt в каталоге, указанном первым параметром КФ. Прочитать целые числа из файла, найти среди них числа, делящиеся без остатка на 5 и вывести результаты на экран. Помоги пожалуйста!Очень надо! Ни как не получается(((

NER1234
	19.12.2011, 16:12
	СПАСИБО БОЛЬШОЕ!!!!!ОЧЕНЬ ПОМОГЛИ)))

@nmv 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 38
	11.11.2015, 13:51
	Ris, У меня не работает... Пишет, что не найден файл. Хотя он лежит вместе с батником:-( 0

@nmv 0 / 0 / 0 Регистрация: 12.09.2012 Сообщений: 38
	12.11.2015, 08:17
	ComSpec, Большое спасибо за помощь! 0