Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Май 2010   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик
Статус: Специалист
Рейтинг: 3469
∙ повысить рейтинг » 		Vasiliy83
Статус: Бакалавр
Рейтинг: 1656
∙ повысить рейтинг » 		Megaloman
Статус: Профессионал
Рейтинг: 1204
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:1020
Дата выхода:12.05.2010, 02:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:242 / 83
Вопросов / ответов:1 / 1

Вопрос № 178258: Помогите решить задачу на Basic Ai - Bsr, если Сi>0 Yi = (Amax^2 + Bsr^4), если Ci<0 |Asr*Bmin|, если Сi = 0 Asr, Bsr - среднее значение массивов Bmin - минимальное значение массивов Amax - м...

Вопрос № 178258:

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

Ai - Bsr, если Сi>0
Yi = (Amax^2 + Bsr^4), если Ci<0
|Asr*Bmin|, если Сi = 0

Asr, Bsr - среднее значение массивов
Bmin - минимальное значение массивов
Amax - максимальное значение массивов
|X| - абсолютная величина

Примечание: все строчны буквы в нижнем регистре

Отправлен: 07.05.2010, 02:01
Вопрос задал: KuvART, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Megaloman, Профессионал :
Здравствуйте, KuvART.
Во первых, уточняю задачу, я понимаю, что условие должно выглядеть так:

Yi = Ai - Bsr, если Сi>0
Yi = (Amax^2 + Bsr^4), если Ci<0
Yi = |Asr*Bmin|, если Сi = 0

Asr, Bsr - среднее значение массивов A и B соответственно
Bmin - минимальное значение массива B
Amax - максимальное значение массива A
|X| - абсолютная величина


Вы не указали в каком Basic надо это сделать. Я выбрал QBasic
Вот решение
Код:
CLS
N = 10          ' Размерность массивов

REDIM A(N - 1) AS SINGLE, B(N - 1) AS SINGLE, C(N - 1) AS SINGLE, Y(N - 1) AS SINGLE


RANDOMIZE TIMER         ' Инициализируем генератор случайных чисел.


FOR i = 0 TO N - 1      ' Заполняем ис
 ходные массивы случайными числами -10<=x<=10

   A(i) = (21 * RND) - 10
   B(i) = (21 * RND) - 10
   C(i) = (21 * RND) - 10

NEXT i

' C(5) = 0                              ' Отладочное значение


' Ищем Asr Bsr   Amax Bmin

Asr = 0
Bsr = 0
Amax = A(0)
BMin = B(0)

FOR i = 0 TO N - 1

   Asr = Asr + A(i)
   Bsr = Bsr + B(i)

   IF Amax < A(i) THEN Amax = A(i)
   IF BMin > B(i) THEN BMin = B(i)

NEXT i

Asr
= Asr / N
Bsr = Bsr / N

' Вычисляем массив Y
FOR i = 0 TO N - 1

   IF C(i) > 0 THEN Y(i) = A(i) - Bsr
   IF C(i) < 0 THEN Y(i) = Amax ^ 2 + Bsr ^ 4
   IF C(i) = 0 THEN Y(i) = ABS(Asr * BMin)

NEXT i



' Выдача исходных данных и результатов

PRINT " i   A(i)   B(i)   C(i)   Y(i)"

FOR i = 0 TO N - 1

   PRINT USING "##"; i;
   PRINT USING "####.##"; A(i);
 
   PRINT USING "####.##"; B(i);
   PRINT USING "####.##"; C(i);
   PRINT USING "####.##"; Y(i)

NEXT i

PRINT
PRINT "  Asr="; USING "###.##"; Asr;
PRINT "  Bsr="; USING "###.##"; Bsr;
PRINT "  Amax="; USING "###.##"; Amax;
PRINT "  Bmin="; USING "###.##"; BMin

-----
Нет времени на медленные танцы

Ответ отправил: Megaloman, Профессионал
Ответ отправлен: 07.05.2010, 17:55
Номер ответа: 261270

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 261270 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.03.2010
    В избранное