Двумерный Массив Delphi7

[warma2d]

Здравствуйте!

Помогите пожалуйста добить программу с таким заданием
"Найти количество элементов матрицы D (NxM) , значения которых принадлежат отрезку [-2; 2] и записать их номера в массив F."

program Rabota620;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var
k,max:integer;
i,j,n,m:integer; //rabo4aya peremennaya
b:array [1..10,1..10] of real; // Massiv 1
a:array [1..10,1..10] of real; // Massiv 2
F:array[1..100] of real;

begin
k:=0;
writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
writeln ('v-te massiv 2 ');
for i:=1 to n do
for j:=1 to m do
readln(b[i,j]);

 max := 0;
for i:=max+1 to n do
 for j:=max+1 to m do

     if (b[i,j]>=-2)and(b[i,j]<=2)and(b[i,j]>b[max]) then  max:=i;
                            



readln;
end.

Заранее Благодарю!

[ybn]

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

Здравствуйте!
"Найти количество элементов матрицы D (NxM) , значения которых принадлежат отрезку [-2; 2] и записать их номера в массив F."

Var
k,max:integer;
i,j,n,m:integer; //rabo4aya peremennaya
b:array [1..10,1..10] of real; // Massiv 1
a:array [1..10,1..10] of real; // Massiv 2
F:array[1..100] of real;

Вопрос №1. А зачем Вам две матрицы A,B?
Может я чего то не понимаю. Если я правильно понимаю, Вам нужна одна матрица D[n,m] и с ней работать надо. Если так, то помогу.

[warma2d]

ybn, извините за долгий ответ - просто действительно не было времени. Да, действительно, нужно только две матрицы как написано в задании.

Получается преобразуется в вид:

program Rabota620;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var
k:integer;
i,j,n,m:integer; //rabo4aya peremennaya
a:array [1..10,1..10] of real; // Massiv 1
F:array[1..100] of real;

begin
k:=0;
writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

 for i:=1 to n do
  for j:=1 to m  do

     if (a[i,j]>=-2)and(a[i,j]<=2) then




readln;
end.

Только никак не могу понять как сделать так, чтобы результат записать в двумерный массив.
"Найти количество элементов матрицы D (NxM) , значения которых принадлежат отрезку [-2; 2] и записать их номера в массив F."

Пожалуйста, помогите пожалуйста до конца разобрать задачу

[Ybn2]

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

Да, действительно, нужно только две матрицы как написано в задании.

"Найти количество элементов матрицы D (NxM) , значения которых принадлежат отрезку [-2; 2] и записать их номера в массив F."

Вот какой должен быть код:

program Rabota620;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var
k:integer;
i,j,n,m:integer; //rabo4aya peremennaya
d:array [1..10,1..10] of real; // Massiv 1
F:array[1..100] of Record 
                             n,m:integer;
                         end;
begin
k:=0;
writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(d[i,j]);
  k:=0;
 for i:=1 to n do
  for j:=1 to m  do
     if (d[i,j]>=-2)and(d[i,j]<=2) then
       Begin
         k:=K+1;
         F[k].n:=i;
         F[k].m:=j;
      end;
WriteLn ('Количество элементов: ',k);
WriteLn ('Их номера:');
if k>0 then    //Проверка были ли такие числа
    For i:=1 to k do
       WriteLn (F(i).n,' ',F(i).m);

readln;
end.

[halo]

Привет всем!!! У меня некоторые проблемы с такой програмой в Делфи:
Есть матрица А(n,n). нужно розпечатать номеря тех строк, в которых все елемпенты однаковые. Матрицу ввожу с помощу StringGrid. а вывод номеров с помощу Memo. n ввожу с помощу SpinEdit. Написал такую програму, но она нероботает:

procedure TForm1.Button2Click(Sender: TObject);
var A: Array [1..15,1..15] of Integer;
i,j: Integer;
eo,ep,n: integer;

begin
n:=SpinEdit1.Value;
For i:=1 To n Do
For j:=1 To n Do
A[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
eo:=0;
for j:=1 to n do
for i:=1 to n-1 do begin
if a[i,j]=a[i+1,j] then eo:=eo+1;
if i=n-1 then
if a[n-1,j] = a[n,j] then eo:=eo+1;
if eo=n then Memo1.Lines.Add(IntToStr(j)); End;

end;

Помогите ПЛИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!

[Ybn2]

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

Есть матрица А(n,n). нужно розпечатать номеря тех строк, в которых все елемпенты однаковые. Матрицу ввожу с помощу StringGrid. а вывод номеров с помощу Memo. n ввожу с помощу SpinEdit. Написал такую програму, но она нероботает:

Попробуй так:

procedure TForm1.Button2Click(Sender: TObject);
var A: Array [1..15,1..15] of Integer;
    i,j: Integer;
    eo,ep,n: integer;
           b:boolean;
begin
     n:=SpinEdit1.Value;
     For i:=1 To n Do
      For j:=1 To n Do
       A[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
     
     for j:=1 to n do
     Begin 
        b:=true;
        for i:=1 to n-1 do 
          if a[i,j]<>a[i+1,j] then b:=false;
        if b then Memo1.Lines.Add(IntToStr(j)); End;
    end;

end;

[warma2d]

К сожалению, ругается на точку запятой или оператор в самом конце программы

program Rabota620;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,n,m,k:integer; //rabo4aya peremennaya
d:array [1..10,1..10] of real; // Massiv 1
F:array[1..100] of Record
                             n,m:integer;
                         end;
begin
k:=0;
writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(d[i,j]);
  k:=0;
 for i:=1 to n do
  for j:=1 to m  do
     if (d[i,j]>=-2)and(d[i,j]<=2) then
       Begin
         k:=K+1;
         F[k].n:=i;
         F[k].m:=j;
      end;
WriteLn ('Kol-vo elementov: ',k);
WriteLn ('Ih numera:');
if k>0 then    //proverka bili li takie 4usla
    For i:=1 to k do
       WriteLn (F(i).n,' ',F(i).m);

readln;
end.

[Stilet]

Это же не Бейсик:

WriteLn (F[i].n,' ',F[i].m);

[warma2d]

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

Это же не Бейсик:

WriteLn (F[i].n,' ',F[i].m);

Stilet
Подскажите пожалуйста, как эту программу можно правильно сделать для Delphi

[halo]

Спасиб ВСЕМ!!!!!!!!!!!!!!!!!!!!!!!!!!!