• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

Двумерные массивы

  • Автор темы Diunamis
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

Diunamis

#1
Помогите , пожалуйста составить процудуру по нахождению номеров колонок двумерного массива С, которые содержат позитивные елементы! ! !
M(номер рядка)=3, N(номер столбца)=5
I=3, J=1
 

hosm

* so what *
18.05.2009
2 442
6
#2
Переведите с суржика, подкорректируйте заголовок и ознакомьтесь с правилами раздела, куда попала тема...
 
D

Diunamis

#3
Подскажите в чем ошибка.Программа не работает

Код:
procedure TForm1.FormCreate(Sender: TObject);
type
mas=array[1..6,1..3] of real;
const
z:array[0..6,0..3]of string=
(('Масив Q','Колонка1','Колонка2','Колонка3'),
('Рядок1','-2,1','-4,4','0,13'),
('Рядок2','-8,1','15','9,6'),
('Рядок3','5,3','0','15,3'),
('Рядок4','-1,4','3,5','0'),
('Рядок5','13,2','0','23'),
('Рядок6','0,2','1,2','-0,5'));
var
i,j:integer;
Q:mas;
begin
for i:=0 to 6 do
for j:=0 to 3 do
Tabl.Cells[j,i]:=z[i,j];
for i:=1 to 6 do
for j:=1 to 3 do
Q[i,j]:=StrToFloat(Tabl.Cells[j,i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
type
mas=array[1..6,1..3] of real;
var
i,j:integer;
Q:mas;
begin
for i:=1 to 3 do
for j:=1 to 6 do
if Q[i,j]=0 
then
begin
Label3.Caption:=Label3.Caption+'Колонка'+IntToStr(i)+' ';
Label3.Caption:=Label3.Caption+'Номер рядка'+IntToStr(j)+#13;

end;
end;
end.
 
09.11.2009
665
1
#4
И не будет работать.
Q:mas;
у вас идет как ЛОКАЛЬНАЯ переменная, а надо ГЛОБАЛЬНАЯ;
ее надо обявить перед словом implementation, и убрать из процедур.
Выглядит примерно так

Код:
 type
mas=array[1..6,1..3] of real;

const
z:array[0..6,0..3]of string=
(('Масив Q','Колонка1','Колонка2','Колонка3'),
('Рядок1','-2,1','-4,4','0,13'),
('Рядок2','-8,1','15','9,6'),
('Рядок3','5,3','0','15,3'),
('Рядок4','-1,4','3,5','0'),
('Рядок5','13,2','0','23'),
('Рядок6','0,2','1,2','-0,5'));

var
Form1: TForm1;
Q:mas;
implementation

{$R *.dfm}

....
 

vital

Больной Компом Детектед
29.01.2006
2 432
33
#5
Док, заслуживаешь памятник=)
 
Статус
Закрыто для дальнейших ответов.