Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на двумерные массивы

Автор: 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.

Если можно то сразу решение с исправлением напишите rolleyes.gif

М
Пожалуйста, используй теги при публикации программ: выделить программу и выбрать нужный пункт в меню 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) *
Если можно то сразу решение с исправлением напишите rolleyes.gif
Не проси сделать хотя бы часть работы ЗА тебя, и будет тебе счастье. Когда просишь научить, не говори, КАК тебя надо учить. Здесь запросто могут выдать тебе все решение на блюдечке. Но ПРОСИТЬ этого - это самый верный способ это НЕ получить..