Процедуры и функции.

[Владимир93]

Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает заданному условию (1) выполнить преобразования (2).
Условие (1) проверить в подпрограмме Function, преобразование выполнить в подпрограмме Procedure.

Условия:
1 - больше сумма положительных элементов в четных строках.
2 - найти первый нулевой элемент и место где он расположен.

[Utkin]

Строго говоря, 2 - это не преобразование. Преобразование означает изменение свойств объекта. 2 не изменит матрицы в любом случае.
Ну да это так к слову. Вам-то что надо?

[Владимир93]

Надо в паскале написать программу

[Владимир93]

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

Строго говоря, 2 - это не преобразование. Преобразование означает изменение свойств объекта. 2 не изменит матрицы в любом случае.
Ну да это так к слову. Вам-то что надо?

Программа на паскале нужна

[Utkin]

Программа на паскале нужна

Да, это трагично. Скорбим мы мысленно с Вами. Все это печально, но мы-то здесь причем? Мне вот не хватает денег и совести, но я же поэтому поводу темы не создаю.

[Владимир93]

Взгляните на этот код, все верно?

program Project1;
 
uses
  Crt;
 
const
  n = 5;
 
type
  Tmass = array[0..n, 0..n] of Byte;
 
var
  A, B : Tmass;
  i, j : Byte;
 
function summa(temp : Tmass) : Boolean;
var
  chetn, nechetn : Word;
  i, j : Byte;
begin
  chetn := 0; nechetn := 0;
  for i := 0 to n do
    for j := 0 to n do
    begin
      if (temp[i, j] >0) then
        if (Odd(i+1)) then
          nechetn := nechetn + temp[i, j]
        else
          chetn := chetn + temp[i, j];
    end;
  if (chetn > nechetn) then
   summa := True
  else
    summa := False;
end;
 
procedure find_nill(temp : Tmass; str : string);
var
  i, j, x, y : Byte;
  state : Boolean;
begin
  Writeln; Writeln;
  state := False;
  for i := 0 to n do
    for j := 0 to n do
    begin
      if (temp[i, j] = 0) then
      begin
        x := i;
        y := j;
        state := True;
        Break;
      end;
    end;
  if (state) then
    Writeln('Pervyj nylevoj element massiva ', str, ' nachoditsja v pozicii ', x+1, ', ', y+1)
  else
    Writeln('V massive ', str, ' net nulevych elementov');
end;
 
begin
  Clrscr;
  Randomize;
  for i := 0 to n do
    for j := 0 to n do
    begin
      A[i, j] := Random(60)-30;
      B[i, j] := Random(60)-30;
      Writeln('A[', i+1, ',', j+1, ']=', A[i, j], '          B[', i+1, ',', j+1, ']=', B[i, j]);
    end;
  if (summa(A)) then
    find_nill(A, 'A')
  else
    Writeln('uslovie ne vypolneno dla massiva A');
  if (summa(B)) then
    find_nill(B, 'B')
  else
    Writeln('uslovie ne vypolneno dlja massiva B');
  Readln;
end.

[Utkin]

На первый взгляд, не запуская на исполнение вроде похоже на правду... А запустить и проверить? Единственно, я бы наверно матрицы строил квадратом, а не в столбик.

[Владимир93]

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

На первый взгляд, не запуская на исполнение вроде похоже на правду... А запустить и проверить? Единственно, я бы наверно матрицы строил квадратом, а не в столбик.

столбиком или квадратом, я так думаю, большой роли не сыграет

[Utkin]

столбиком или квадратом, я так думаю, большой роли не сыграет

Будь я Вашим преподом, заставил Вас бы сделать столбиком. Ну а так, да если преподу на Вас пофиг, я думаю прокатит.