→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Помогите исправить программу(Qbasic) 
Автор Сообщение
Начинающий

Регистрация: 06.11.2010
Сообщения: 1

Репутация: 0 [ ? ]
 Помогите исправить программу(Qbasic)
Задали сделать задачу по QBasic

1)Найти сумму отрицательных элементов матрицы которые находятся ниже главной диагонали.Рассчитать используя процедуру SUB.
2)Среднее значение положительніх єлементов матрицы,которые находятся ниже главной диагонали.Рассчитать используя процедуру FUNCTION

Помогите найти ошибку в программе))

DECLARE SUB Summa (A!())
DECLARE FUNCTION Srednee (B!)
CLS
DIM SHARED m%
DIM SHARED n%
INPUT "kol-vo strok"; m%
INPUT "kol-vo stolbtsov"; n%
DIM A!(m%, n%)
DIM i%, k%, j%, Sum!, Sr!
FOR i% = 1 TO m%
FOR j% = 1 TO n%
INPUT "vvedite element"; A!(i%, j%)
NEXT: PRINT : NEXT
PRINT "matrica"
FOR i% = 1 TO m%
FOR j% = 1 TO n%
PRINT A!(i%, j%);
NEXT: PRINT : NEXT
CALL Summa(A!())
CALL Srednee(B!)
END

FUNCTION Srednee (B!)
DIM A!(i%, j%)
FOR i% = 1 TO n%
IF (A!(i%, i%)) > 0 THEN Sr! = Sr! + A!(i%, i%)
k% = k% + 1
NEXT
PRINT "Srednee="; Sr! / k%
END FUNCTION

SUB Summa (A!())
Sum! = 0
FOR i% = 1 TO m%: FOR j% = 1 TO n%
IF (i% > j%) AND ((A!(i%, j%)) < 0) THEN Sum! = Sum! + A!(i%, j%)
NEXT: NEXT
PRINT "Summ="; Sum!
END SUB


06.11.2010 21:59
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»