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

[RONS]

А[2x4]
B[2x4]
тип реал

Переписать елементы матрици А в матрицу В, заменяя отрицательные елементы нулями.


Пока еще чайник в этом деле

Но исправлюсь)

[Вадим Мошев]

for i:=1 to 2 do
  for j:=1 to 4 do
      if a[i,j] < 0 then b[i,j]:=0 else b[i,j]:=a[i,j];

Не проверял, но должно работать

[RONS]

а можно поточнее?

ато неполучается

[Вадим Мошев]

Что значит "поточнее"? И что у вас там не получается?

[RONS]

procedure TForm1.btn1Click(Sender: TObject);
begin
type
massiv = array [1..2,1..4] of real;

procedure massiv(var a,b: massiv);
var
i,j: integer;
begin
for i:=1 to 2 do
for j:=1 to 4 do
if a[i,j]<0 then
b[i,j]:=0
else
b[i,j]:=a[i,j];
end;

end;

end.

вот код


подскажите что неправильно?

[Вадим Мошев]

massiv = array [1..2,1..4] of real;

procedure massiv(var a,b: massiv);

Почему у вас имя типа совпадает с именем процедуры? Так нельзя делать, поэтому и не работает!



Более того, нельзя объявлять типы внутри процедур!

procedure TForm1.btn1Click(Sender: TObject);
begin
type
massiv = array [1..2,1..4] of real;

Также нельзя писать процедуры внутри других процедур:

Procedure TForm1.btn1Click(Sender: TObject);
begin
type
massiv = array [1..2,1..4] of real;

procedure massiv(var a,b: massiv);

[RONS]

Типы нужно объявлять вне процедур?


А как можно написать две процедуры чтобы они не были внутри другой?

[Вадим Мошев]

Типы нужно объявлять вне процедур?

Да, именно!

А как можно написать две процедуры чтобы они не были внутри другой?

Вот так:

procedure proc1({ список параметров});
var // Объявляем переменные
begin
{Здесь пишем текст процедуры № 1}
end;

procedure proc2({ список параметров});
var // Объявляем переменные
begin
{Здесь пишем текст процедуры № 2}
end;

Процедуры должны писАться отдельно

[RONS]

Ой чето я опять намутил не то..
кое че понял, кое че нет.


Я вас прошу.
Зделайте пожалст как правильно.




Спасибо огромное за помощ.
Очень благодарен))

[Вадим Мошев]

Что значит намутил? Какие конкретно ошибки возникают?
И если вы что-то не поняли, задавайте вопросы.