IPB

Здравствуйте, гость ( Вход | Регистрация )

 
 Ответить в эту темуОткрыть новую тему
> Двумерные массивы в QBasic, подсчитать кол-во элементов,равных нулю и сумму положительных элелемен
crexy
сообщение 13.12.2008, 16:10
Сообщение #1


Пользователь


Группа: Пользователи
Сообщений: 2
Регистрация: 13.12.2008
Пользователь №: 21 153
Всем привет.....с будущей недели начинается сессия,задали сделать задачу(написать CLS код и алгоритм) по двумерным массивам в QBasic......даже не знаю с чего начать.....информатика дается крайне плохо....помогите пожалуйста составить CLS код к вот такой задачке... алгоритм я еще худо-бедно начертить смогу ,а вот работающий cls код нет
задача звучит так:
В прямоугольной целочисленной матрице (число строк не более 10,число столбцов не более 14)подсчитать кол-во элементов,равных нулю и сумму положительных эелементов,а также выяснить в какой строке стоит минимальный эелемент.Формат числа плюс минус ццц
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PolPoll
сообщение 13.12.2008, 18:06
Сообщение #2


:)


Группа: Главные администраторы
Сообщений: 5 858
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327
Цитата(crexy @ 13.12.2008, 19:10) *

даже не знаю с чего начать.....
Напиши ввод размеров массива N,M и самих элементов массива с помощью двух циклов FOR один в другом smile.gif

Цитата(crexy @ 13.12.2008, 19:10) *

алгоритм я еще худо-бедно начертить смогу
ну прикрепи картинку wink.gif

Цитата(crexy @ 13.12.2008, 19:10) *

В прямоугольной целочисленной матрице (число строк не более 10,число столбцов не более 14)подсчитать кол-во элементов,равных нулю и сумму положительных эелементов,а также выяснить в какой строке стоит минимальный эелемент.Формат числа плюс минус ццц


Код
<-- Ввод N,M,A

KolNulu = 0
SumPol =0
MinEL = A(1,1)
Stroka = 1
FOR I = 1 TO N
FOR J = 1 TO M
   IF A(I,J) = 0 THEN KolNulu = KolNulu + 1
   IF A(I,J) > 0 THEN SumPol = SumPol + A(I,J)
   IF A(I,J) < MinEL THEN
     MinEL = A(I,J)
     Stroka = I
   END IF
NEXT J
NEXT I

<-- Вывод  KolNulu, SumPol, Stroka






--------------------
Поиграем в слова? Изображение Ассоциации , Хвост , Обратные ассоциации
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Denis
сообщение 13.12.2008, 18:12
Сообщение #3


Пользователь


Группа: Пользователи
Сообщений: 1 081
Регистрация: 24.1.2005
Пользователь №: 1 933
PolPoll, ты продолжаешь переименовывать и сортировать темы? а то что не глянь на название темы, то "помогите", да "срочно", да "паскаль/бейсик" или "массивы". smile.gif

либо ты трогаешь только старые темы?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PolPoll
сообщение 13.12.2008, 18:39
Сообщение #4


:)


Группа: Главные администраторы
Сообщений: 5 858
Регистрация: 24.11.2005
Из: Москва
Пользователь №: 5 327
Denis, после переименования новых тем их владельцы их найти не могут biggrin.gif


--------------------
Поиграем в слова? Изображение Ассоциации , Хвост , Обратные ассоциации
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
« Предыдущая тема · Программирование на Бейсике и Visual Basic · Следующая тема »
 

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия Сейчас: 23.5.2012, 3:46
Русская версия Invision Power Board v2.1.7 © 2012  IPS, Inc.