Определить номер столбца матрицы G(6,, в котором меньше всего нулей.

@Yakov · Регистрация: 17.01.2009

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

1. Определить номер столбца матрицы G(6,8), в котором меньше всего нулей.

@AlexQ · 20.01.2009, 23:15

Вот. Если в столбцах находится одинаковое минимальное количество нулей - выводит номер, в котором нашло первее:

Pascal

program a1;
uses crt;
var
 g: array [1..6,1..8] of real;
 i,j,col,min,n: integer;
begin
 clrscr;
 min:=7;
 writeln('Vvedite matricu postrochno:');
 for i:=1 to 6 do
  for j:=1 to 8 do
   read(g[i,j]);
 for j:=1 to 8 do
  begin
   col:=0;
   for i:=1 to 6 do
     if g[i,j]=0 then inc(col);
   if col<min then
    begin
     min:=col;
     n:=j;
    end;
  end;
  writeln('N=',n);
 readkey;
end.

@Yakov · 21.01.2009, 05:18 **[ТС]**

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

17. inc(col);
.[/PASCAL]

17. inc(col); ----???? это что за действие?

@Puporev · 21.01.2009, 08:00

Это инкремент, или прибавление к данному числу другого, по умолчанию единицы. Т.е. в этом случае inc(col); это col:=col+1; Вообще в Паскале есть встроенный Хэлп и там это написано.

@Yakov 4 / 4 / 1 Регистрация: 17.01.2009 Сообщений: 59
		1
	Определить номер столбца матрицы G(6,, в котором меньше всего нулей. 20.01.2009, 18:20. Показов 1329. Ответов 3 Метки нет (Все метки) 1. Определить номер столбца матрицы G(6,8), в котором меньше всего нулей. 0

@Yakov 4 / 4 / 1 Регистрация: 17.01.2009 Сообщений: 59
	21.01.2009, 05:18 [ТС]	3
	Сообщение от AlexQ 17. inc(col); .[/PASCAL] 17. inc(col); ----???? это что за действие? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.01.2009, 08:00	4
	Это инкремент, или прибавление к данному числу другого, по умолчанию единицы. Т.е. в этом случае inc(col); это col:=col+1; Вообще в Паскале есть встроенный Хэлп и там это написано. 0