| Вопрос: Вопрос, может не в тему! | Добавлено: 27.09.06 21:17 |
Автор вопроса:  DJ EFFECT
|
|
1. В паскале Как объявить двуменрный массив в виде константы, т.е. уже с заданными значениями
пример const
X:array[1..5] of integer=(2,1,5,7,8) В ПАСКАЛЕ 2.Даны 2 двумерных массива A(n,m) и B(k,t). Необходимо написать процедуру (внимание одну!), вычисляющую, например, сумму положительных элементов. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  GlooM ICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #1 | Добавлено: 27.09.06 22:14 |
http://forum.pascal.net.ru - смотри и спрашивай! 
Кстати, я тоже данной проблеммой интерисуюсь, т.е. нужно в двумерный массив записать числа... (числа даны и они уже распределены по строкам и столбцам)
|
||
|
Номер ответа: 2 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #2 | Добавлено: 27.09.06 22:59 |
|
На ВБ6 я рекомендовал бы так создавать "константы" массивов (одномерных):
Const ArrValues as string="123\1233\789\684\3\12"
Dim Arr() as integer Arr=Split(ArrValues) Для двумерных такой вариант: (если строк мало) делаем контсанты для каждой строки dim Arr(2,3) as integer
const Ln0="\1\234\77\89\" const Ln1="\22\804\45\300\" const Ln2="\50\12\19\147\" и процедурку Sub FormArr(LnName as string, LnNumber as integer)
Dim i as Integer, i2 as integer i=1 for x=0 to 3 'Кол-во чисел в строке if not i=1 then i=Instr(i,LnName,"\"  +1
i2=Instr(i,LnName,"\"
Arr(LnNumber,X)=Cint(mid(LnName,i,i2-i)) next x end sub Чтобы считать в массив, придется вызов для каждой строки... Коряво, но что делать? ведь массив вбиваем... FormArr Ln1,0
Вот и сформировали массив с изначально-известными данными.
FormArr Ln2,1 FormArr Ln3,2 А вообще, лучше данные хранить в файлах типа .bin .dat .txt и читать оттуда... |
||
|
Номер ответа: 3 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #3 | Добавлено: 27.09.06 23:01 |
|
Поправка на мою невнимательность: FormArr Ln0,0
FormArr Ln1,1 FormArr Ln2,2 |
||
Страница: 1 |