Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 11762
Последний выпуск: 19.06.2015

Помогите решить задачу))

82K
26 февраля 2015 года
ALEXBBB
9 / / 14.11.2014
Элементы массивов А, В, Z вычисляются по формулам: A(i)= 5.5*i; B(i)= A(i)-i; Z(i)= B(i)/A(i); 1<=i<=6. Найти максимальный элемент массива А, минимальный элемент массива В и сумму элементов массива Z, значение которых больше 0,3. Вывести элементы массивов A,B и Z на форму
88K
21 февраля 2016 года
Алексей Алексеев
2 / / 21.02.2016
Код:
Dim a(6)
Dim b(6)
Dim z(6)
Dim i
Dim aMax
Dim bMin
Dim zSum

for i = 1 To 6
    a(i) = 5.5*i
    If i = 1 Then aMax = a(i)
    If aMax < a(i) Then aMax = a(i)
   
    b(i) = a(i)-i
    If i = 1 Then bMin = b(i)
    If bMin > b(i) Then bMin = b(i)
   
    z(i) = b(i)/a(i)
    If z(i) > 0.3 Then zSum = zSum + z(i)
       
    WScript.Echo "----------"
Next

WScript.Echo aMax,bMin,zSum
Dim a(6)
Dim b(6)
Dim z(6)
Dim i
Dim aMax
Dim bMin
Dim zSum

for i = 1 To 6
a(i) = 5.5*i:WScript.Echo "a",a(i)
If i = 1 Then aMax = a(i)
If aMax < a(i) Then aMax = a(i)

b(i) = a(i)-i:WScript.Echo "b", b(i)
If i = 1 Then bMin = b(i)
If bMin > b(i) Then bMin = b(i)

z(i) = b(i)/a(i):WScript.Echo "z", z(1)
If z(i) > 0.3 Then zSum = zSum + z(i)

WScript.Echo "----------"
Next

WScript.Echo aMax,bMin,zSum

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог