Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


Ответ
 
Опции темы Опции просмотра
Старый 16.02.2011, 23:58   #1 (permalink)
Xanoder
Новичок
 
Регистрация: 16.02.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Двумерный массив

Привет всем)))может кто нить помочь найти ошибку в программе Qbasic?!?!?!очень надо!!
Текст задачи: В двумерном массиве перед последней строкой вставить строку с положительной суммой элементов. если таких строк будет несколко, то можно было бы выбрать любую из них.

cls
input "stroki"; x
input "stolbiki";y
dim a(x,y)
randomize timer
for i=1 to x
for j=1 to y
a(x,y)= int(rnd*200-100)+1
print a(x,y);
next j
print
next i

кусок вашего кода
p=0
for i=1 to x
s=0
for j=1 to y
s=s+a(i,j)
next j
if s>=0 then p=i
next i
if p>=0 then
for j=1 to y
a(x+1,j)=a(x,j) [при запуске пррограммы выдаёт ошибку Subskript out of range и ивыделяется эта строка]
a(x-1,j)=a(p,j)
next j
end if

for i=1 to x
for j=1 to y
print a(x,y);
next j
print
next i
end
Xanoder вне форума   Ответить с цитированием

Старый 16.02.2011, 23:58
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Могу вам подсказать, что в данных обсуждениях возможно содержаться нужные вам ответы

В Паскале двумерный массив
Двумерный массив
Двумерный массив. Задача
Фортран, двумерный массив
Паскаль, двумерный массив

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 10:30.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.