Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Матрица (http://www.tehnari.ru/f41/t30687/)

Sergei47

30.11.2009 10:49

Матрица

помогите плиз_Ик.. у меня щас контроХа...
Определить количество единиц в матрице [ 2, 6] и индекс первой встречающейся единицы !..
пожайлуста !! помогите.

Vladimir_S

30.11.2009 10:55

Цитата:

Сообщение от Sergei47 (Сообщение 265729)

Язык? Как вводится матрица? [ 2, 6] - это что: 2 строки и 6 столбцов? Да напишите же, черт побери, хотя бы задание внятно!!!

Sergei47

30.11.2009 11:01

ПАСКАЛЬ !!!

Sergei47

30.11.2009 11:02

да столбцов и строк , просто контрольная и не когда трепыхаться , спасибо за рание !!!

Sergei47

30.11.2009 11:18

помогите пожайлуста !.

Vladimir_S

30.11.2009 11:20

Цитата:

Сообщение от Sergei47 (Сообщение 265729)

Ладно, ввод матрицы пишите сами, как знаете, а решение задачки вот:

Код:

VAR

 A:ARRAY[1..2, 1..6] of INTEGER;

 i,j,i1,j1,Num:INTEGER;

 b:BOOLEAN;

BEGIN

 { Ввод матрицы }

 { ... }

 Num:=0;

 b:=TRUE;

 FOR i:=1 TO 2 DO

  FOR j:=1 TO 6 DO

    IF A[i,j]=1 THEN 

     BEGIN

       INC(Num);

       IF b THEN

         BEGIN

           i1:=i;

           j1:=j;

           b:=FALSE;

         END;

     END;

 WriteLn('First "1" position is [',i1,',',j1,']');

 WriteLn('Number of "1" is ', Num);

 ReadLn;

END.

Sergei47

30.11.2009 11:22

Спасибо:)

Vladimir_S

30.11.2009 11:56

Цитата:

Сообщение от Sergei47 (Сообщение 265736)

Спасибо:)

Ох, извинте - ошибку нашел. Строка должна быть:
WriteLn('First "1" position is [',i1,',',j1,']');
В тексте поправил.

Часовой пояс GMT +4, время: 05:14.