Записать в файл f последовательного доступа N натуральных чисел

@Swaer · Регистрация: 13.06.2013

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

Записать в файл f последовательного доступа N натуральных чисел.
Получить в другом файле последовательного доступа все компоненты
файла f , кроме тех,которые кратны K.Вывести полученный файл на печать.

@Catstail · 16.06.2013, 10:12

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub makeFile(Fname As String, N As Integer, Optional k As Integer = 0)
Static fo As Integer
   If k = 0 Then
      fo = FreeFile
      Open Fname For Output As #fo
      Randomize
   End If
   If N > 0 Then
      Print #fo, CInt(20 * Rnd)
      makeFile Fname, N - 1, 1
   Else
      Close fo
   End If
End Sub
 
Sub filter(Finp As String, Fout As String, k As Integer, Optional p As Integer = 0)
Static fi As Integer
Static fo As Integer
    If p = 0 Then
       fi = FreeFile
       Open Finp For Input As #fi
       fo = FreeFile
       Open Fout For Output As #fo
    End If
    If Not EOF(fi) Then
       Line Input #fi, Stri$
       If Val(Stri$) Mod k <> 0 Then 
          Print #fo, Stri$
          Debug.print Stri$
       end if
       filter Finp, Fout, k, 1
    Else
       Close fi
       Close fo
    End If
End Sub
 
Sub Test()
  makeFile "111.txt", 50
  filter "111.txt", "222.txt", 3
End Sub

@Swaer · 16.06.2013, 15:13 **[ТС]**

Catstail, А не могли ли вы скинуть задачу целым файлом?А то у меня ошибки показывает

Dragokas · 16.06.2013, 15:32

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

скинуть задачу целым файлом

.....

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .

Записать в файл f последовательного доступа N натуральных чисел

Решение

Решение

@Swaer 1 / 1 / 0 Регистрация: 13.06.2013 Сообщений: 163

	Записать в файл f последовательного доступа N натуральных чисел 15.06.2013, 23:58. Показов 1209. Ответов 3 Метки нет (Все метки) Записать в файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного доступа все компоненты файла f , кроме тех,которые кратны K.Вывести полученный файл на печать. 0

@Swaer 1 / 1 / 0 Регистрация: 13.06.2013 Сообщений: 163
	16.06.2013, 15:13 [ТС]
	Catstail, А не могли ли вы скинуть задачу целым файлом?А то у меня ошибки показывает 0