Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 203

/ вопрос решён /

Здравствуйте!
Помогите пожалуйста решить задачу. Очень надо.

Составьте схему алгоритма вычислительного процесса и напишите программу на языке Basic. Дан массив Xi, i=1, 2, …,15. Найти произведения положительных и отрицательных элементов массива Р1 и Р2. Определить, что больше по абсолютной величине Р1 или Р2. Входные данные задать самостоятельно.

Леник Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задала: Леник (статус: Посетитель)
Вопрос отправлен: 19 июня 2012, 15:17
Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Ixer

Здравствуйте, Леник!
Чистого Basic'а под рукой нет. Вот Вам пример решения на VBA (Visual Basic for Applications)

Думаю код для Basic'а не слишком отличается.

Приложение:
  1. Sub mas_test()
  2.  
  3. Dim X(15) As Integer
  4. For i = 1 To 15 Step 1
  5. X(i) = Rnd * 10 - 5
  6. Next i
  7.  
  8. Dim P1, P2 As Integer
  9. P1 = 0
  10. P2 = 0
  11.  
  12. For j = 1 To 15 Step 1
  13. If X(j) > 0 Then
  14. If P1 = 0 Then P1 = X(j) Else P1 = P1 * X(j)
  15. End If
  16.  
  17. If X(j) < 0 Then
  18. If P2 = 0 Then P2 = X(j) Else P2 = P2 * X(j)
  19. End If
  20.  
  21. Next j
  22.  
  23. If Abs(P1) > Abs(P2) Then MsgBox ("P1 > P2") Else MsgBox ("P1 < P2")
  24.  
  25. End Sub
  26.  


Ответ отправил: Ixer (статус: 2-ой класс)
Время отправки: 20 июня 2012, 20:23
Оценка за ответ: 5

Комментарий к оценке: Спасибо ОГРОМНОЕ

Мини-форум вопроса

Всего сообщений: 0.

20 июня 2012, 09:55: Вопрос перемещён из тематического раздела Basic в раздел Лабораторный практикум » Разное модератором Ерёмин А.А.

16 июля 2012, 15:21: Статус вопроса изменён на решённый (изменил модератор DNK)

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 августа 2020, 06:45
Выполнено за 0.02 сек.
Рейтинг@Mail.ru