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

@BOR1K · Регистрация: 19.09.2009

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

Даны матрицы А (1..3), В(1..4),
Помогите составить процедуру вывода максимального элемента массива и функцию нахождения количества нулей в массиве.

@S2dent · 17.10.2009, 18:48

Pascal

Procedure PrintMaxElement(n,max:integer);
var i:integer;
begin
  max:=-maxint;
  for i:=1 to n do
    if A[i]>max then
      max:=A[i];
   write('Максимальный элемент массива равен ',max);
end;

Добавлено через 4 минуты

Pascal

function FindQuantityZeroElements(n:integer):integer;
var Count,i:integer;
begin
  Count:=0;
  for i:=1 to n do
    if A[i]:=0 then
      inc(Count);
  Count:=FindQuantityZeroElements;
end;

@Puporev · 17.10.2009, 19:09

S2dent, Еще раз, для матриц a[1..3,1..3], b[1..4,1..4]

@S2dent · 17.10.2009, 19:22

Прошу прощения, прочел в задании "в массиве" так сделал

Для матриц вроде вот так:

Pascal

Procedure PrintMaxElement(n,m,max:integer);
var i,j:integer;
begin
  max:=-maxint;
  for i:=1 to n do
     begin
       for j:=1 to m do
         if Matrix[i,j]>max then
           max:=Matrix[i,j];
     end;
  write('Максимальный элемент матрицы равен ',max);
end;

Pascal

function FindQuantityZeroElements(n,m:integer):integer;
var Count,i,j:integer;
begin
  Count:=0;
  for i:=1 to n do
    begin
      for j:=1 to m do
        if A[i,j]:=0 then
          inc(Count);
    end;
  Count:=FindQuantityZeroElements;
end;

@BOR1K · 17.10.2009, 19:36 **[ТС]**

По идее нужно еще и массив в процедуру передать

@S2dent · 18.10.2009, 01:30

По идее нужно еще и массив в процедуру передать

А это зависит от того, как Вы будете писать программу. Если так например:

Pascal

uses crt;
type a=array[1..3,1..3] of integer;
 
procedure InputData(var Matrix:a);
var i,j:integer;
begin
  randomize;
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        Matrix[i,j]:=random(10);
    end;
end;
 
procedure PrintMatrix(Matrix:a);
var i,j:integer;
begin
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        write(Matrix[i,j]:4);
        writeln;
    end;
end;
 
procedure PrintMaxElement(Matrix:a);
var i,j,max:integer;
begin
  max:=-maxint;
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        if Matrix[i,j]>max then
          max:=Matrix[i,j];
    end;
  writeln('Максимальный элемент матрицы равен ',max);
end;
 
var Matrix:a;
begin
  clrscr;
  InputData(Matrix);
  PrintMatrix(Matrix);
  PrintMaxElement(Matrix);
  readln;
end.

То нужно передавать, а если вот так:

Pascal

uses crt;
var Matrix:array[1..3,1..3] of integer;
    i,j,max:integer;
 
procedure PrintMaxElement;
var i,j,max:integer;
begin
  max:=-maxint;
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        if Matrix[i,j]>max then
          max:=Matrix[i,j];
    end;
  writeln('Максимальный элемент матрицы равен ',max);
end;
 
begin
  clrscr;
  randomize;
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        Matrix[i,j]:=random(10);
    end;
  for i:=1 to 3 do
    begin
      for j:=1 to 3 do
        write(Matrix[i,j]:4);
        writeln;
    end;
  PrintMaxElement;
  readln;
end.

То передавать уже не нужно..

@BOR1K 14 / 14 / 3 Регистрация: 19.09.2009 Сообщений: 289
		1
	Процедура и функия. 17.10.2009, 18:38. Показов 753. Ответов 5 Метки нет (Все метки) Даны матрицы А (1..3), В(1..4), Помогите составить процедуру вывода максимального элемента массива и функцию нахождения количества нулей в массиве. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2009, 19:09	3
	S2dent, Еще раз, для матриц a[1..3,1..3], b[1..4,1..4] 0

@BOR1K 14 / 14 / 3 Регистрация: 19.09.2009 Сообщений: 289
	17.10.2009, 19:36 [ТС]	5
	По идее нужно еще и массив в процедуру передать 0

	18.10.2009, 01:30