|
Вопрос # 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'а не слишком отличается.
Приложение: Переключить в обычный режим- Sub mas_test()
-
- Dim X(15) As Integer
- For i = 1 To 15 Step 1
- X(i) = Rnd * 10 - 5
- Next i
-
- Dim P1, P2 As Integer
- P1 = 0
- P2 = 0
-
- For j = 1 To 15 Step 1
- If X(j) > 0 Then
- If P1 = 0 Then P1 = X(j) Else P1 = P1 * X(j)
- End If
-
- If X(j) < 0 Then
- If P2 = 0 Then P2 = X(j) Else P2 = P2 * X(j)
- End If
-
- Next j
-
- If Abs(P1) > Abs(P2) Then MsgBox ("P1 > P2") Else MsgBox ("P1 < P2")
-
- End Sub
-
 |
Ответ отправил: Ixer (статус: 2-ой класс)
Время отправки: 20 июня 2012, 20:23
Оценка за ответ: 5
Комментарий к оценке: Спасибо ОГРОМНОЕ
|
Мини-форум вопроса
Всего сообщений: 0.
20 июня 2012, 09:55: Вопрос перемещён из тематического раздела Basic в раздел Лабораторный практикум » Разное модератором Ерёмин А.А.
16 июля 2012, 15:21: Статус вопроса изменён на решённый (изменил модератор DNK)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
