помогите плиз!

[mishel]

У меня такая проблема: в программе есть массив (boolean), но при некотором условии один из элементов этого массива должен стать true, однако как я ни пробовал, все-равно все значения false. Краткие наброски листинга я привожу ниже:


var
massiv: array [1..10, 1..10] of boolean;
i: integer;

begin
if i:=1 then
massiv[1,1]:= true;
................

Я останавливал программу на некотором этапе и просматривал значения массива, так они не меняются, я не могу понять почему.
ПОМОГИТЕ, ПОЖАЛУЙСТА!

[wiskas]

чето ты не то делаешь в другой части программы. вот я тока что в это не поверил, но решил проверить - кусок программы:

massiv: array [1..10, 1..10] of boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
if massiv[1,1]=false then label1.Caption:='false';
if massiv[1,1]=true then label1.Caption:='true';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if massiv[1,1]=true then massiv[1,1]:=false
else massiv[1,1]:=true;
end;

при нажатии на кнопки оно все меняется, выкинь, если не жалко, програмынй код сюда и ктота резберется.

[ЧИЖ]

пробовал у себя вот так:

var
a:array[1..10,1..10] of boolean;
i,j:integer;
begin
readln(j);
for i:=1 to 10 do if i=j then a[i,i]:=true;
for i:=1 to 10 do begin
for j:=1 to 10 do write(a[i,j],'  ');
writeln;
end;
readln;
end.

все прокатывает (указанный элемент массива равен true)

[SteelRat]

Сообщение от mishel

У меня такая проблема: в программе есть массив (boolean), но при некотором условии один из элементов этого массива должен стать true, однако как я ни пробовал, все-равно все значения false. Краткие наброски листинга я привожу ниже:


var
massiv: array [1..10, 1..10] of boolean;
i: integer;

begin
if i:=1 then
massiv[1,1]:= true;
................

Я останавливал программу на некотором этапе и просматривал значения массива, так они не меняются, я не могу понять почему.
ПОМОГИТЕ, ПОЖАЛУЙСТА!

На выделеное обрати внимание.

[wiskas]

ну тогда у него должно с ошибкой вылитать

[SteelRat]

Понятия не имею =)

[wiskas]

var
massiv: array [1..10, 1..10] of boolean;
i: integer;

begin
if i=1 then // а было i : =1
massiv[1,1]:= true;
................

он имел ввиду что ты допустил синтаксическую ошибку, в твоем коде только это видно, больше ничего нету неправильного

[Time]

У меня такая проблема: в программе есть массив (boolean), но при некотором условии один из элементов этого массива должен стать true, однако как я ни пробовал, все-равно все значения false. Краткие наброски листинга я привожу ниже:


var
massiv: array [1..10, 1..10] of boolean;
i: integer;

begin
if i:=1 then
massiv[1,1]:= true;
................

Я останавливал программу на некотором этапе и просматривал значения массива, так они не меняются, я не могу понять почему.
ПОМОГИТЕ, ПОЖАЛУЙСТА!

Пусть там даже нет этой синтактической ошибки...
Раз у тебя в программе этот элемент массива изменяестя, только при i=1, значит перед этим i никогда не становится 1, логично...?

Краткие наброски листинга я привожу ниже:

Уж очень краткие... Полностью выложи лучше, тогда посмотрим, а так чё гадать то...

[Шеллер Алексей]

Сообщение от ЧИЖ

пробовал у себя вот так:

var
a:array[1..10,1..10] of boolean;
i,j:integer;
begin
readln(j);
for i:=1 to 10 do if i=j then a[i,i]:=true;
for i:=1 to 10 do begin
for j:=1 to 10 do write(a[i,j],'  ');
writeln;
end;
readln;
end.

все прокатывает (указанный элемент массива равен true)

Попробуй сделать дамп переменных (конкретнее, переменной j) она у тебя начинает изменяться только в 3-м цикле, а до этого ее значение не определено (или нуль, никак не могу этот момент запомпнить ), и в первом цикле ты сравниваешь текущее значение i c j = 0, а т.к. начальное значение i ты задал равным 1, то и присваивания в операторе if не происходит. По-моему так.