Вычислить сумму и разность двух заданных одномерных массивов

@Ю.А. · Регистрация: 24.12.2010

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

Помогите, пожалуйста! нужно написать программу в VBA для задач:
1) В киоске продаются газета стоимостью 3 рубля, журнал стоимостью 20 рублей и книга стоимостью 40 рублей. Составить программу, которая спрашивает о желании покупателя (газета, журнал, книга?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу.

2) Определить, имеются ли среди чисел Cos(i3)sin(I*n), i = 1,2, …,n, меньшие 0.0001.

3) Вычислить сумму и разность двух заданных одномерных массивов размером N. Результат вывести в виде двух параллельных столбцов.

@Busine2009 · 24.12.2010, 16:03

По первой задаче см. вложение.

@Busine2009 · 24.12.2010, 16:09

Я внёс изменения в форму.

@Ю.А. · 24.12.2010, 16:10 **[ТС]**

спасибо большое)

@Busine2009 · 24.12.2010, 16:11

По второму вопросу. Что это означает?

Сообщение от Ю.А.

i3

i*3?
Это имелось ввиду Cos(i*3)*sin(I*n)?

@Ю.А. · 24.12.2010, 16:21 **[ТС]**

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

По второму вопросу. Что это означает?

i*3?
Это имелось ввиду Cos(i*3)*sin(I*n)?

нет, это i в кубе

@Busine2009 · 24.12.2010, 16:26

Ю.А.,
так что ли Cos(i^3)*sin(I*n)?
А почему есть i и I?

Добавлено через 3 минуты
Ю.А.,
по третьему вопросу. Как заполнять матрицы значениями (через Inputbox или случайными числами, используя генератор случайных чисел)?

@Ю.А. · 24.12.2010, 16:35 **[ТС]**

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

Ю.А.,
так что ли Cos(i^3)*sin(I*n)?
А почему есть i и I?

Добавлено через 3 минуты
Ю.А.,
по третьему вопросу. Как заполнять матрицы значениями (через Inputbox или случайными числами, используя генератор случайных чисел)?

да так...не знаю, я думаю это опечатка в условии....i везде одно...

з вопрос: Inputbox

@Busine2009 · 24.12.2010, 17:10

По третьему вопросу (результат выводится в Excel):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub m_1()
Dim A(1 To 3) As Single
Dim B(1 To 3) As Single
Dim i As Byte
For i = 1 To 3
    A(i) = InputBox("Введите значение для элемента массива A")
Next i
For i = 1 To 3
    B(i) = InputBox("Введите значение для элемента массива B")
Next i
For i = 1 To 3
    Cells(i, 1) = A(i) + B(i)
    Cells(i, 2) = A(i) - B(i)
Next i
End Sub

Добавлено через 1 минуту

Сообщение от Ю.А.

Cos(i3)sin(I*n)

а "n" - что такое?

@Ю.А. · 24.12.2010, 17:49 **[ТС]**

честно?не знаю((....я все условии писала...

Добавлено через 11 минут
а вы не могли бы 1 задачу написать так же как и 3 ???? или подскажите как мне открыть те 2файла?

@Busine2009 · 24.12.2010, 18:17

Сообщение от Ю.А.

а вы не могли бы 1 задачу написать так же как и 3 ???? или подскажите как мне открыть те 2файла?

Сохраняете архивную папку у себя на Рабочем столе - разархивируете её (пр. кн. мыши по архивной папке - Извлечь в текущую папку).
Заходите в VBE - дважды щ. л. кн. мыши по тому проекту, где хотите хранить код (PERSONAL.XLS или книга) - File - Import File... - выбираете "Рабочий стол" - выбираете файл с расширением .frm - Открыть.
В результате в выбранном вами проекте (PERSONAL.XLS или книга) появляется форма. Чтобы её запустить: 2 щ. л. кн. мыши по названию формы - щ. зелёную стрелку (Run) на панели инструментов.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14

	Вычислить сумму и разность двух заданных одномерных массивов 24.12.2010, 15:15. Показов 5534. Ответов 10 Метки нет (Все метки) Помогите, пожалуйста! нужно написать программу в VBA для задач: 1) В киоске продаются газета стоимостью 3 рубля, журнал стоимостью 20 рублей и книга стоимостью 40 рублей. Составить программу, которая спрашивает о желании покупателя (газета, журнал, книга?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу. 2) Определить, имеются ли среди чисел Cos(i3)sin(I*n), i = 1,2, …,n, меньшие 0.0001. 3) Вычислить сумму и разность двух заданных одномерных массивов размером N. Результат вывести в виде двух параллельных столбцов. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.12.2010, 16:09
	Я внёс изменения в форму. 0

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
	24.12.2010, 16:10 [ТС]
	спасибо большое) 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	24.12.2010, 16:26
	Ю.А., так что ли Cos(i^3)sin(In)? А почему есть i и I? Добавлено через 3 минуты Ю.А., по третьему вопросу. Как заполнять матрицы значениями (через Inputbox или случайными числами, используя генератор случайных чисел)? 0

@Ю.А. 0 / 0 / 0 Регистрация: 24.12.2010 Сообщений: 14
	24.12.2010, 17:49 [ТС]
	честно?не знаю((....я все условии писала... Добавлено через 11 минут а вы не могли бы 1 задачу написать так же как и 3 ???? или подскажите как мне открыть те 2файла? 0