Вычислить количество полных квадратов (матрица)

@slavjan-skr · Регистрация: 15.10.2013

Author24 — интернет-сервис помощи студентам

Дана целочисленная матрица. Для каждого столбца вычислить количество полных квадратов. Определить номер столбца, для которого эта характеристика имеет наибольшее значение.

@Dmitrinik · 18.11.2013, 20:30

Pascal

Var mm : array[1..20,1..20] of integer;
    NcSqr : array[1..20] of integer;
    i, j, maxSq, jmaxSq : integer;
    sq : double;
Begin
.................................
  maxSq:=0;
  for j:=1 to 20 do
    begin
      NcSqr[j]:=0;
      for i:=1 to 20 do
        begin
          sq:=mm[i,j];
          if frac(Sqrt(sq))=0 then inc(NcSqr[j]); {число полных кв. в j-ом столбце}
        end;
      if NcSqr[j]>maxSq then
        begin
          maxSq:=NcSqr[j]; 
          jmaxSq:=j;  {номер столбца с максимумом}
        end;
    end;
................................
End.

@slavjan-skr 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 9
		1
	Вычислить количество полных квадратов (матрица) 18.11.2013, 19:17. Показов 1533. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица. Для каждого столбца вычислить количество полных квадратов. Определить номер столбца, для которого эта характеристика имеет наибольшее значение. 0

	18.11.2013, 20:30

Вычислить количество полных квадратов (матрица)

Решение