Организовать новый файл, элементы которого вычисляются по формуле

@love01 · Регистрация: 25.10.2012

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

Записать в файл N действительных чисел a1,a2,...an. Организовать новый файл, элементы которого вычисляются по формуле: bi=a1-a2+a3-a4+...+(-1)^(i+1)*ai.

Комментарий модератора

Читайте правила

5.16 Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

Удаленные вопросы оформите отдельными темами согласно правил.

@Catstail · 10.11.2012, 19:43

Создание исходного файла:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub MakeFile()
      Randomize
      HomeDir$=App.Path
      n%=Val(InputBox("N="))
      if n%<=0 then Exit Sub
      fo%=FreeFile
      Open HomeDir$+"\f.txt" For output as #fo%
      For i%=1 to n%
           Print #fo%,100*Rnd()
      Next i%
      Close #fo%
End Sub

Обработка:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub NewFile()
      HomeDir$=App.Path
      fi%=FreeFile
      Open HomeDir$+"\f.txt" For input as #fi%
      fo%=FreeFile
      Open HomeDir$+"\g.txt" For output as #fo%
      q&=1
      S&=0
      Do While  (not EOF(fi%))
          Line input #fi%,Stri$
          Z&=Val(Stri$)
          S&=S&+Z&*q&
          Print #fo%,S&
          q&=-q&
      Loop
      Close #fi%
      Close #fo%
End Sub

@love01 · 11.11.2012, 18:49 **[ТС]**

здесь нужно создать файл да?а перед кодом что писать?

Dragokas · 11.11.2012, 19:15

Как бы

Visual Basic
Sub MakeFile()

переименуйте в

Visual Basic
Sub Main()

или

Visual Basic
Private Sub Command1_Click()

если запускаете код кнопкой.

@love01 · 11.11.2012, 21:05 **[ТС]**

скиньте форму пожалуйста

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@love01 0 / 0 / 0 Регистрация: 25.10.2012 Сообщений: 44
	11.11.2012, 18:49 [ТС]
	здесь нужно создать файл да?а перед кодом что писать? 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	11.11.2012, 19:15
	Как бы Visual Basic Sub MakeFile() переименуйте в Visual Basic Sub Main() или Visual Basic Private Sub Command1_Click() если запускаете код кнопкой. 1

@love01 0 / 0 / 0 Регистрация: 25.10.2012 Сообщений: 44
	11.11.2012, 21:05 [ТС]
	скиньте форму пожалуйста 0