Форум программистов CodeGuru
26 Сентябрь 2018, 17:28:03 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите решить задачу.....плз....очень нужно  (Прочитано 17370 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sasha3050
Новичок
*
Офлайн Офлайн

Сообщений: 2


Просмотр профиля
« : 24 Февраль 2009, 22:40:18 »

Уважаемые програмисты, помогите новичку пожалуйста:: :
Дополнить форму задания 1 элементами управления и кодами для реализации следующих альтернативных вычислений. Создать элементы управления и написать код, которые, дополнительно к функциям задания 1, реализуют вычисления либо суммы значений функции с двумя аргументами задания 1 на некотором множестве аргументов либо среднего арифметического значений функции на том же множестве аргументов. Множество аргументов функции задается минимальным и максимальным значением аргумента x, y и шагом изменения каждого аргумента shx, shy. Программа должна осуществить вычисления для всех сочетаний значений аргументов. Должны быть вычислены и просуммированы (либо найдено среднее арифметическое) для значения функции аргументов x+I*shx, y+J*shy, где I и J пробегают все значения, при которых аргументы остаются в области допустимых значений. Исходными данными для этой части программы является шестерка чисел, которые определяют нижнюю (два числа) и верхнюю границу (два числа) изменения каждой переменной и шаг изменения каждой переменной в заданном диапазоне (два числа).
Форма этого задания должна в зависимости от значения группы элементов управления – переключателей (OptionButton) реализовать три варианта вычислений:
1-вычисления лабораторной работы 1.
2 – вычисления суммы значений функции в заданном оператором диапазоне.
3– вычисления среднего набора значений функций в заданном оператором диапазоне.
В заданной области каждый из аргументов изменяется с шагом, значение которого может быть задано с помощью ЭУ SkrollBar. Дискретное изменение параметров shx, shy, которое задает этот элемент управления также должно задаваться отдельным параметром.
Ненужные для реализации данного варианта вычислений (выбранного с помощью OptionButton) элементы управления делать невидимыми. Например, для реализации вычислений 1- й лабораторной работы нет необходимости в окнах для задания диапазона и шага. Эти поля должны быть скрыты. При каждом выборе режима вычислений должны также изменяться поясняющие надписи.
Использовать ProgressBar для иллюстрации процесса вычислений.

Private Sub Command1_Click()
Dim i As Single
Dim a As Single
a = CSng(Text1.Text)
i = CSng(Text2.Text)
Dim z As Single
z = 2 * (a - 1) ^ 2 + 0 * (a - 1) * Sin(a - 1) + 1 * (Sin(a - 1)) ^ 2 + 9 * (i - 6) ^ 2 + 0 * (Sin(0 * i - 0)) ^ 2
Label3.Caption = Str(z)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 0, 8, 46, 13, 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
On Error GoTo M1
a = CDbl(Text2.Text)
Exit Sub
M1:
MsgBox (Error)
Cancel = True
End Sub


Dim pr%, xmin#, xmax#, ymin#, ymax#, stepx#, step#
Function f(x, y)
f = 1
End Function
Private Sub Command1_Click()
pr = 0
For x = xmin To xmax Step stepx
ProgressBar1.Value = x
For y = ymin To ymax Step stepy
Sum = Sum + f(x, y)
For z = 1 To 100
DoEvents
If pr = 1 Then If MsgBox("прервать вычисления", vbYesNo) = vbYes Then Exit Sub
pr = 0
Next
Next
Next
End Sub

Private Sub Command2_Click()
pr = 1
End Sub

Private Sub Form_Load()
xmax = 1000
ymax = 100
End Sub
 Непонимающий Грустный Грустный
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!