Форум «Всё о Паскале» _ Задачи _ Задача на двумерные массивы
Автор: zer0cold 24.11.2008 7:11
Помогите, пожалуйста, найти ошибку... не могу разобраться
uses wincrt; var a:array [1..3,1..3] of integer; b:array [1..3] of integer; i,j,x,y,z,k:integer; begin for j:=1 to 3 do if (a[i,j]>0) and (a[i+1,j]>0) and (a[i+2,j]>0) then begin b[i]:=a[i]; b[i+1]:=a[i+1]; b[i+2]:=b[i+2]; j:=j+1 end; for i:=1 to 3 do writeln (b[i]); End.
Если можно то сразу решение с исправлением напишите
М
Пожалуйста, используй теги при публикации программ: выделить программу и выбрать нужный пункт в меню CODE Lapp
Автор: Lapp 24.11.2008 9:23
Цитата(zer0cold @ 24.11.2008 3:11)
Помогите, пожалуйста, найти ошибку...
С трудом удерживаюсь, чтоб не пошутить, что ошибка - в генетическом коде, а не в программном.. Если хочешь, чтоб твое задание угадывали - иди на форум телепатов или любителей головоломок по крайней мере. Откуда мне знать, что тебе нужно получить?? Пиши условие задачи, не ленись..
Очевидных ошибок по крайней мере две:
1. ты явно выскакиваешь за диапазон индексов массива в цикле (цикл до 3, и еще ты прибавляешь 2 к индексу, а массив всего до 3)
2. ты присваиваешь: b[i]:=a[i]; b[i+1]:=a[i+1]; - при этом массив b - одномерный, а a - двумерный. Если ты указываешь у двумерного масива только один индекс, то ты получаешь одномерный массив как элемент (двумерный - это одномерный массив одномерных массивов, то есть a[1..m,1..n] это то же самое, что и a[1..m][1..n], то есть a[i] это есть массив, а не число, вроде как бы(a[1..m])[i] . Так что присвоения, которые ты делаешь - некорректны.
Цитата(zer0cold @ 24.11.2008 3:11)
Если можно то сразу решение с исправлением напишите
Не проси сделать хотя бы часть работы ЗА тебя, и будет тебе счастье. Когда просишь научить, не говори, КАК тебя надо учить. Здесь запросто могут выдать тебе все решение на блюдечке. Но ПРОСИТЬ этого - это самый верный способ это НЕ получить..