Обработка массивов

@Матвик · Регистрация: 19.02.2011

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

Можно ли создать в Visual Basic программу чтоб она находила значение переменной Y после выполнения программы и выдавала ответ
например такое,надо найти Y

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
A(1) = 5
A(2) = 2
A(3) = -2
A(4) = 1
y = 0
For i=1 to 4
Select case i
Case 1, 3, 4
y = y + A(i)
End select
Next i

@BrandFox · 20.02.2011, 14:28

Сообщение от Матвик

Можно ли создать в Visual Basic программу чтоб она находила значение переменной Y после выполнения программы и выдавала ответ
например такое,надо найти Y

A(1) = 5
A(2) = 2
A(3) = -2
A(4) = 1
y = 0
For i=1 to 4
Select case i
Case 1, 3, 4
y = y + A(i)
End select
Next i

напиши яснее

@Матвик · 20.02.2011, 15:29 **[ТС]**

ну вообщем мне найти значение переменной Y после выполнения программы
далее идет типа такой текст который я написал, мне надо найти Y и вот я хочу сделать прогу которая выдаст значения Y

@gaw · 20.02.2011, 15:55

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

напиши яснее

вот теперь все предельно ясно

@Alex77755 · 20.02.2011, 18:35

Сообщение от Матвик

Можно ли создать в Visual Basic программу чтоб она находила значение переменной Y после выполнения программы и выдавала ответ
например такое,надо найти Y

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
A(1) = 5
A(2) = 2
A(3) = -2
A(4) = 1
y = 0
For i=1 to 4
Select case i
Case 1, 3, 4
y = y + A(i)
End select
Next i

Можно!

@Матвик · 20.02.2011, 19:14 **[ТС]**

если знаешь подскажи пожалуйста, очень надо!

@Alex77755 · 20.02.2011, 19:20

Так она у тебя написана.
Не сам писал?
Хотя бы пойми, что там написано

@Матвик · 20.02.2011, 20:42 **[ТС]**

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

Так она у тебя написана.
Не сам писал?
Хотя бы пойми, что там написано

я понимаю что там написано)
какие обэкти должны быть на форме?

Добавлено через 59 минут
я понимаю что там написано)
какие обэкти должны быть на форме?

@Alex77755 · 20.02.2011, 20:55

То, что написано не требует никаких объектов - это просто часть кода программы.
Его надо вставить в процедуру.
Перед кодом желательно объявить переменные.
Ну и придумать куда выводить результат.

@Матвик · 21.02.2011, 18:02 **[ТС]**

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

То, что написано не требует никаких объектов - это просто часть кода программы.
Его надо вставить в процедуру.
Перед кодом желательно объявить переменные.
Ну и придумать куда выводить результат.

я создал на форме Label1 Command1
а какой весь текст программы будет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim A(1 To 4, 1 To 4) As Single
Dim i, z As Integer
Private Sub Command1_Click()
 
A(1) = -36
A(2) = 7
A(3) = 5
A(4) = 4
For i = 1 To 4
      If i = 1 Then
           If A(i) > 0 Then
                   y = Sqr(A(i))
      Else
                   y = 0
           End If
      End If
Next i
 
End Sub

@Alex77755 · 21.02.2011, 18:51

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim A(1 To 4, 1 To 4) As Single
Dim i, z As Integer
Private Sub Command1_Click()
A(1) = -36
A(2) = 7
A(3) = 5
A(4) = 4
For i = 1 To 4
      If i = 1 Then
           If A(i) > 0 Then
                   y = Sqr(A(i))
      Else
                   y = 0
           End If
      End If
Next i
End Sub

Так ничего не получится
1. Переменные не объявлены. Это не критично, но в коде и так много ошибок. Желательно использовать опцию "Option Explicit" в самом начале модуля - избавит от некоторых ошибок.
2. Массив объявлен двухмерным, а присвоение производится как одномерному
Одномерный объявляется так:
[VB]Dim A(1 To 4) As Single[/VB

3.

Visual Basic
1
2
3
4
5
6
7
8
9
For i = 1 To 4
      If i = 1 Then
           If A(i) > 0 Then
                   y = Sqr(A(i))
      Else
                   y = 0
           End If
      End If
Next i

При таких условиях для всех значений элементов массива, кроме первого "Y = 0"
И только для первого, если оно положительно из него извлекается корень.
Но условия, как и значения пишешь ты сам.
4. Осталось только показать резкльтат

Visual Basic
1
Label1.Caption = Y

@Матвик · 21.02.2011, 19:29 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim A(1 To 4) As Single
 
Private Sub Command1_Click()
 
For i = 1 To 4
      If i = 1 Then
           If A(i) > 0 Then
                   Y = Sqr(A(i))
      Else
                   Y = 0
           End If
      End If
Next i
 
Label1.Caption = Y
 
End Sub

типа так, не понял пункт 3

@gaw · 21.02.2011, 19:58

Матвик, ЕСЛИ ТЫ ХОЧЕШЬ, ЧТО Б ТЕБЕ ПОМОГЛИ, ТО напиши по возможности внятно , СЛОВАМИ или Сфоткай условие или предоставь какие то выражения, формулы, что бы хоть приблизительно можно было бы понять, --- что тебе надо:
твой код, извини, с натяжкой можно назвать бредом

@Матвик · 21.02.2011, 20:32 **[ТС]**

короче мне дана задача(моя тема) и мне нужно посчитать Y и я хочу создать программу чтоб и считала Y и выводила мне результат

@gaw · 21.02.2011, 20:52

блин, вот видишь, сразу все стало на свои места, все понятно как 2*2=7

@Матвик · 21.02.2011, 20:57 **[ТС]**

ну как еще объяснить ? я не знаю

@gaw · 21.02.2011, 21:13

есть массив А(), одномерный (2мерный), его элементы равны.... (или надо задать таким то способом). Посчитать (вычислить, определить) значение У, которое равно *** (тут чему равно) в случае1: если ???(тут условие - при котором наступает этот случай1),
или
значение У, которое равно *** (тут чему равно) в случае2: если ??? (тут условие - при котором наступает этот случай3)

@Матвик · 21.02.2011, 21:22 **[ТС]**

типа так

@gaw · 21.02.2011, 21:26

попробуй напиши свой вариант и впиши вместо *** и ??? то, что у тебя написано конкретно

@Матвик · 21.02.2011, 21:43 **[ТС]**

подставляю в А(1) оно равно -36
если -36 > 0 условие не выполняется
едем дальше А(2) оно равно 7
7 > 0 условие выполняется, дальше считаем корень 7 что ли ?

дальше я знаю как, и тогда какой будет ответ Y

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого 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 и. . .

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	20.02.2011, 15:29 [ТС]
	ну вообщем мне найти значение переменной Y после выполнения программы далее идет типа такой текст который я написал, мне надо найти Y и вот я хочу сделать прогу которая выдаст значения Y 0

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	20.02.2011, 19:14 [ТС]
	если знаешь подскажи пожалуйста, очень надо! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.02.2011, 19:20
	Так она у тебя написана. Не сам писал? Хотя бы пойми, что там написано 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.02.2011, 20:55
	То, что написано не требует никаких объектов - это просто часть кода программы. Его надо вставить в процедуру. Перед кодом желательно объявить переменные. Ну и придумать куда выводить результат. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.02.2011, 19:58
	Матвик, ЕСЛИ ТЫ ХОЧЕШЬ, ЧТО Б ТЕБЕ ПОМОГЛИ, ТО напиши по возможности внятно , СЛОВАМИ или Сфоткай условие или предоставь какие то выражения, формулы, что бы хоть приблизительно можно было бы понять, --- что тебе надо: твой код, извини, с натяжкой можно назвать бредом 0

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	21.02.2011, 20:32 [ТС]
	короче мне дана задача(моя тема) и мне нужно посчитать Y и я хочу создать программу чтоб и считала Y и выводила мне результат 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.02.2011, 20:52
	блин, вот видишь, сразу все стало на свои места, все понятно как 2*2=7 0

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	21.02.2011, 20:57 [ТС]
	ну как еще объяснить ? я не знаю 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.02.2011, 21:13
	есть массив А(), одномерный (2мерный), его элементы равны.... (или надо задать таким то способом). Посчитать (вычислить, определить) значение У, которое равно * (тут чему равно) в случае1: если ???(тут условие - при котором наступает этот случай1), или значение У, которое равно * (тут чему равно) в случае2: если ??? (тут условие - при котором наступает этот случай3) 0

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	21.02.2011, 21:22 [ТС]
	типа так 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.02.2011, 21:26
	попробуй напиши свой вариант и впиши вместо *** и ??? то, что у тебя написано конкретно 0

@Матвик 0 / 0 / 0 Регистрация: 19.02.2011 Сообщений: 37
	21.02.2011, 21:43 [ТС]
	подставляю в А(1) оно равно -36 если -36 > 0 условие не выполняется едем дальше А(2) оно равно 7 7 > 0 условие выполняется, дальше считаем корень 7 что ли ? дальше я знаю как, и тогда какой будет ответ Y 0