массивчики!, двумерные массивы и процедуры.... Опции

[aka_kaka]

ребятаньки, миленькие мои, пожалста, помогите с прогой (зачет не поставят) плиииииз... :

1. для заданной матрицы размером 8х8 найти такие k, что k-тая строка матрицы совпадает с k-тым столбцом (оформить ввиде процедуры).

2. найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент (оформить ввиде функции)...

пожалуйста, ПОМОГИТЕ!!!!!!!!!!!!

[klem4]

Ну во первых загляни сюда : FAQ : Массивы, матрицы, типичные задачи

во вторых :

k-тая строка матрицы совпадает с k-тым столбцом

это что значит ? в строке k и столбце k одинаковые элементы или что ?

[aka_kaka]

Ну во первых загляни сюда : FAQ : Массивы, матрицы, типичные задачи

во вторых :
это что значит ? в строке k и столбце k одинаковые элементы или что ?

да, в строке k и столбце k одинаковые элементы, я тоже так поняла........

а в ссылке, которую ты мне дал нет той задачки.....

Сообщение отредактировано: aka_kaka - 8.12.2005 20:58

[klem4]

Ты почитай что там написано ... и решишь все с легкостью ;) Ты начни делать ... на конкретнеы вопросы ответим.

[aka_kaka]

ну не могу, не могу...........

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

[klem4]

эх ты .. задачки-то не сложные

1)

uses crt;

const n=3;

type
   TMx = array[1..n,1..n] of integer;
var
   mx : TMx =
   ((2,2,4),
    (2,3,4),
    (3,4,5)
   );

procedure Print(x : TMx);
var
   i,j : byte;
begin
   for i := 1 to n do begin
      writeln;
      for j := 1 to n do
       write(x[i,j]:3,' ');
   end;
end;

function Check(x : TMx) : byte;
var
   i,j : byte;
   find : boolean;
begin
   find := false;
   i := 1;
   while(i<=n) and not(find) do begin
      find := true;
      j := 1;
      while(j<=n) and find do
       if x[i,j] <> x[j,i] then
        find := false
       else inc(j);
     if not(find) then
      inc(i);
   end;

   if find then Check := i
    else Check := 0;
end;

begin
   clrscr;
   Print(mx);
   writeln;
   writeln(Check(mx));
   readln
end.

2)

uses crt;

const n=3;

type
   TMx = array[1..n,1..n] of integer;
var
   mx : TMx =
   ((2,2,-4),
    (2,3,4),
    (3,-4,5)
   );

procedure Print(x : TMx);
var
   i,j : byte;
begin
   for i := 1 to n do begin
      writeln;
      for j := 1 to n do
       write(x[i,j]:3,' ');
   end;
end;

function Sum(x : TMx; i : byte) : shortint;
var
   j,s : byte;
begin
   s := 0;
   for j := 1 to n do
    s := s + x[i,j];
   Sum := s;
end;

var
   i,j : byte;
begin
   clrscr;
   Print(mx);
   writeln;
   for i := 1 to n do begin
      j := 1;
      while(j<=n) and (mx[i,j]>=0) do inc(j);
      if j<=n then
       writeln('i=',i,'   sum=', Sum(mx, i));
   end;

   writeln;

   readln
end.

[aka_kaka]

eeeeeeeeah!!!!!! готова расцеловать тебя!!!!!!!!!! пасиба огромнейшее!!!!!!!!! в буквальном смысле жизнь спасаешь

[Altair]

оффтоп клем бабник

klem4 : а сам - то

Сообщение отредактировано: klem4 - 9.12.2005 3:07