• ПРОГРАММИРОВАНИЕ ПАСКАЛЬ
    Проверить, все ли строки матрицы C(n1×n2) содержат хотя бы один отрицательный элемент, если не все, сообщить номер первой, где нет отрицательных элементов.

    ВНИМАНИЕ: ВСЕ ЭТО ВЫПОЛНИТЬ БЕЗ ЦИКЛА FOR, ТОЛЬКО WHILE ИЛИ REPEAT.

Ответы 5

  • а можете мою исправить? 
  • const  n1max = 10;  n2max = 10;type  matrix = array [1..n1max, 1..n2max] of integer;var  n1, n2, i, j: integer;  C: matrix;  dat, res: textFile;  k, nomer: integer;  flag: boolean;procedure proverka(C: matrix; n1,n2: integer; var flag: boolean);var  i, j: integer;begini:=1;j:=1;  while (i<=n1) do begin      while (j<=n2) do begin    flag:=false;      while (flag = false) do      if ( C[i,j] > 0 ) then flag:=false      else flag:=true;end;inc(j);end;inc (i);end
  • procedure poiskstrok(C: matrix; n1,n2: integer; var nomer: integer );varflag: boolean;i, j: integer;begini:=1;j:=1;while (i<=n1) do begin  while (j<=n2) do begin      flag:=false;      while (flag = false) do      if ( C[i,j] > 0 ) then flag:= false; k:= i;inc (j);end;inc(i);end;end;begin    AssignFile(dat, 'Vvod.txt');Reset(dat);  AssignFile(res, 'Vivod.txt');Rewrite(res);    readln(dat, n1, n2);  writeln(res, 'Ishod matrica A (', n1, 'x', n2, '):');    for i := 1
    • Автор:

      oren
    • 6 лет назад
    • 0
  • for i := 1 to n1 do    for j := 1 to n2 do      read(dat, C[i, j]);    for i := 1 to n1 do  begin    for j := 1 to n2  do    begin      write(res, '', C[i, j]:5);        write(res, ' ');    end;    writeln(res, '');  end;    proverka(C, n1, n2, flag);  poiskstrok(C, n1, n2, nomer);    if (flag = true) then writeln(res,'Vse stroki sodersh otr element')  else  writeln(res,'Nomer pervoi stroki bez otric elem =', k);    CloseFile(dat);CloseFile(res);  readln;end.
  • это все одна программа
    • Автор:

      felix4jzp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years