Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.09.2009, 10:17   #1
Evgen88
Новичок
Джуниор
 
Регистрация: 24.09.2009
Сообщений: 2
Радость Разработать алгоритм и написать мини-программу на языке Бейсик...

Разработать алгоритм и написать мини-программу на языке Бейсик для следующей задачи:

Дан двухмерный массив A из N строк и M столбцов.Найти сумму элементов,стоящих в строках с нечетными индексами.Результат вывести на экран.

Кто знает помогите плиз,за ранее оч благодарен.
Evgen88 вне форума Ответить с цитированием
Старый 24.09.2009, 10:30   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Код:
10  Dim a(5, 10)
15  Rem 10 столбцов по пять строк
17  Rem заполним случайными значениями
20  Let f=0
25  Dim x(5)
30  for i=1 to 5
40    for j=1 to 10
50        a(i, j)=Rnd()*10+1
60  Next j, i
70  Rem подсчитаем результат по задаче
80  for i=1 to 10 Step 2
85     f=f+1
90     for j=1 to 5
100       x(f)=a(j, i)+x(f)
110 Next j, i
120 Rem Выведем на экран
130 for i=1 to 5
140     Print x(i)
150 next i
Чего-то в этом роде, возможны мелкие ошибки.
Смысл следующий:
Сначала создается массив А при N=5 и M=10 и заполняется случайными значениями.
Во втором цикле идет подсчет нечетных строк (для это в цикле идет шаг не 1, а 2)
В третьем цикле осуществляется вывод значений сумм на экран
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика

Последний раз редактировалось Utkin; 24.09.2009 в 10:32.
Utkin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработать алгоритм и программу решения задачи с использованием Jereme Паскаль, Turbo Pascal, PascalABC.NET 6 07.05.2009 14:06
Необходимо разработать дизайн и написать программу rv_1912 Фриланс 2 15.04.2009 18:35
разработать алгоритм и программу нисходящим способом,предполагая заданной матрицу из 5 строк и 5 столбцов Shuma Помощь студентам 2 28.11.2008 20:27