ветвление,цикл For

@nice_demon · Регистрация: 24.02.2011

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

пожалуйста,помогите написать программу!
вот задание:
Задача : Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn.
Найти: z1^2+z2^2+...+zn^2 , где zi= yi при 0<yi<10 или zi=1 в противном случае.
Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления метка. Перебор значений реализовать с помощью оператора цикла FOR

@gaw · 24.02.2011, 19:46

помочь написать и написать --- разницу ловишь?

@nice_demon · 24.02.2011, 19:53 **[ТС]**

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

помочь написать и написать --- разницу ловишь?

окей. не могли бы вы помочь подправить код?

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
Private Sub btnIn_Click()
Dim y(1 To 12) As Single
Dim n As Integer
Dim z As Single
Dim i As Integer
 y(i) = Val(InputBox("Введите значение переменной y", "Окно ввода 1"))
 n = Val(InputBox("Введите значение переменной n", "Окно ввода 2"))
End Sub
Private Sub btnCalc_Click()
Dim y(1 To 12) As Single
Dim n As Integer
Dim z As Single
Dim i As Integer
Dim Res As Single
Res = z(n) ^ 2
For i = 1 To 10
  If 0 < y(i) < 10 Then
  y(i) = z(i)
  Else
  y(i) = z(i) = 1
  End If
Next
End Sub

@gaw · 24.02.2011, 20:17

проверь!

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
Option Explicit
Dim y() As Single
Dim n As Integer
Dim z As Single
Dim i As Integer
Dim str As String
Private Sub btnIn_Click()
 
 n = Val(InputBox("Введите значение переменной n", "Окно ввода 2"))
 ReDim y(n)
 str = ""
 For i = 1 To n
 y(i) = Val(InputBox("Введите значение переменной y(" & i & ")", "Окно ввода 1"))
str = str & "  " & y(i)
Next i
End Sub
Private Sub btnCalc_Click()
Me.Cls
For i = 1 To n
  If 0 < y(i) < 10 Then
  z = z + y(i) ^ 2
  Else
  z = z + 1
  End If
Next
MsgBox "z=" & z
If Check1.Value = 1 Then Print str; vbNewLine; "z="; z
End Sub
 
Private Sub Check1_Click()
If Check1.Value = 1 Then
Print str; vbNewLine; "z="; z
Else
Me.Cls
End If
End Sub

@nice_demon · 24.02.2011, 20:59 **[ТС]**

gaw, спасибо Вам огромное! все отлично работает!

Добавлено через 36 минут
только один минус: считается сумма квадратов ВСЕХ чисел,которые я ввожу,а не только тех,которые от 1 до 10.

@gaw · 24.02.2011, 21:03

Visual Basic
1
If 0 < y(i) < 10 Then

===>

Visual Basic
1
If  y(i) > 0  And y(i) < 10 Then

недоглядел из твоего кода (строка 20)

@nice_demon · 24.02.2011, 21:11 **[ТС]**

теперь все просто идеально!большущее спасибо!

@nice_demon · 27.02.2011, 14:58 **[ТС]**

все-таки обнаружилась еще одна загвоздка. вот код,который я немножко изменила.

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
Option Explicit 
 
Dim y() As Single 
Dim n As Integer 
Dim z As Single 
Dim i As Integer 
Dim str As String 
 
Private Sub btnIn_Click()
 
  n = Val(InputBox("Введите значение переменной n (от 1 до 12)", "Окно ввода 1"))
 ReDim y(n) 
  str = ""
 For i = 1 To n
 
   y(i) = Val(InputBox("Введите значение переменной y(" & i & ")", "Окно ввода 2"))
  str = str & "  " & y(i)
Next i
End Sub
 
Private Sub btnCalc_Click()
Me.Cls
For i = 1 To n
 
  If y(i) > 0 And y(i) < 10 Then
   z = z + y(i) ^ 2
  Else
   z = z + 1
  End If
Next
 
 Label1.Caption = "Результат вычисления равен " & z
End Sub

так вот,когда считаешь результат первый раз,он отображается в метке.а потом,когда нажимаешь снова кнопку "ввод данных"(не закрывая программу) и считаешь уже другой результат,то программа приплюсовывает второй результат к первому. что нужно дописать,чтобы первый результат стирался?

@gaw · 27.02.2011, 15:08

z=0 22 23 строки

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@nice_demon 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 5

	ветвление,цикл For 24.02.2011, 19:34. Показов 2580. Ответов 8 Метки нет (Все метки) пожалуйста,помогите написать программу! вот задание: Задача : Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn. Найти: z1^2+z2^2+...+zn^2 , где zi= yi при 0<yi<10 или zi=1 в противном случае. Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления метка. Перебор значений реализовать с помощью оператора цикла FOR 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	24.02.2011, 19:46
	помочь написать и написать --- разницу ловишь? 0

@nice_demon 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 5
	24.02.2011, 20:59 [ТС]
	gaw, спасибо Вам огромное! все отлично работает! Добавлено через 36 минут только один минус: считается сумма квадратов ВСЕХ чисел,которые я ввожу,а не только тех,которые от 1 до 10. 0

@nice_demon 0 / 0 / 0 Регистрация: 24.02.2011 Сообщений: 5
	24.02.2011, 21:11 [ТС]
	теперь все просто идеально!большущее спасибо! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	27.02.2011, 15:08
	z=0 22 23 строки 1

Опции темы