Sub Laba1()
Dim Z(11) As Double
M = Cells(15, 2)
For a = 1 To 11
For b = 1 To 11
Max = Cells(15, 4)
For i = 1 To 11
Z(i) = 0
x = Cells(i, 1)
ye = Cells(i, 3)
yr = a + x / (b + x)
Z(i) = Z(i) + (Abs(ye - yr))
If Z(i) > M Then M = Z(i)
Next i
If Max < M Then M = Max: p = a: r = b
Next b
Next a
Cells(2, 9) = M
Cells(2, 7) = p
Cells(2, 8) = r
End Sub

Вложения

Лаб1.xls (36.5 Кб, 3 просмотров)

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.04.2016, 17:05

Ответы с готовыми решениями:

C чем может быть связана ошибка?
Здравствуйте, уважаемые программисты!Помогите, пожалуйста, разобраться: с чем может быть связана...

Где может быть ошибка?
Уважаемые форумчане, столкнулся со следующей проблемой... Написал макрос, в котором в столбце AK...

Подскажите пожалуйста где может быть ошибка
Здравствуйте. В VBA я только 7 день, потому сам не могу разобраться( Все вы знаете про врачебный...

В чем может быть ошибка
В чем может быть ошибка

	06.04.2016, 17:05

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.04.2016, 17:05

Помогаю со студенческими работами здесь

В чём может быть ошибка
Здравствуйте, помогите пожалуйста решить проблемму: Сайт нормально работал в течении года, в том...

В чем может быть ошибка?
procedure TForm1.Edit2Change(Sender: TObject); begin p:=3; r:= strtofloat (edit1.Text); a:=...

В чём может быть ошибка?
Пишет, что нету точки с запятой. Где??? #include <iostream> #include <string> using...

В чём может быть ошибка?
У меня программа, которая должна удалять из введенного сообщения все гласные. Использую класс -...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх