линейные массивы паскаль проверить

[skalt12]

Всем доброго дня)..
Вот вопрос, толи я дурак, толи препод докопаться решил.. накатал одногруппнику задачу, препод посмотрел и заявил "вообще не правильно".. не врублюсь никак.., проверьте, пожалуйста..

задание:

Вычислить K = ((M1+M2+M3))/(3), где M1, M2, M3 - максимальные элементы массивов X(30), Y(15), Z(20)

код:

program v2n30;
uses crt;
var X: array[1..30] of integer;
     Y: array[1..15] of integer;
     Z: array[1..20] of integer;
     M1,M2,M3,i: integer;
     K: real;

procedure Searching;
begin
   randomize;
   write('X-Array: ');
      writeln;

   for i := 1 to 30 do
      begin
         X[i] := random(20);
         write(X[i],' ');
      end;
   writeln;
      writeln;
   write('Y-Array: ');
      writeln;

   for i := 1 to 15 do
      begin
         Y[i] := random(10);
         write(Y[i],' ');
      end;
   writeln;
      writeln;
   write('Z-Array: ');
      writeln;

   for i := 1 to 20 do
      begin
         Z[i] := random(10);
         write(Y[i],' ');
      end;
   writeln;
      writeln;
   write('Maximum X-Massiva(M1): ');
   M1 := X[1];

   for i := 1 to 30 do
      begin
         if M1 < X[i] then
         M1 := X[i];
      end;
   write(M1);
      writeln;
   write('Maximum Y-Massiva(M2): ');
   M2 := Y[1];

   for i := 1 to 15 do
      begin
         if M2 < Y[i] then
         M2 := Y[i];
      end;
   write(M2);
      writeln;
   write('Maximum Z-Massiva(M3): ');
   M3 := Z[1];

   for i := 1 to 20 do
      begin
         if M3 < Z[i] then
         M3 := Z[i];
      end;
   write(M3);
      writeln;
end;

begin
   clrscr;
   Searching;
   K := (M1+M2+M3)/3;
   write('K= ',K:0:2);
   readkey;
end.

вопрос уже умяли, но мне все равно покоя не дает сия ситуация)

[Grag]

Лично я бы сделал для формирования матриц одну процедуру, для поиска максимума в матрице другую процедуру... А то, в этой программе почти все выкинуто в отдельную процедуру, в которой, по сути, один и тот код повторяется по три раза...

[ROMA2PVT]

можно было оставить заполнение массива в основном теле программы и сделать одну процедурку поиска.кода меньше было бы.а так всё верно.но я сижу щас с мобилы.или и заполнение и поиск в процедурах.

[skalt12]

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

Лично я бы сделал для формирования матриц одну процедуру, для поиска максимума в матрице другую процедуру... А то, в этой программе почти все выкинуто в отдельную процедуру, в которой, по сути, один и тот код повторяется по три раза...

можно было, но сама программа от этого мало пострадала... вопрос в другом...

[skalt12]

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

можно было оставить заполнение массива в основном теле программы и сделать одну процедурку поиска.кода меньше было бы.а так всё верно.но я сижу щас с мобилы.или и заполнение и поиск в процедурах.

верно, да? вот и я думаю, что-то препод гонит..

[ROMA2PVT]

write('Z-Array: ');

      writeln;

   for i := 1 to 20 do

      begin

         Z[i] := random(10);

         write(Y[i],' ');

      end;

[skalt12]

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

write('Z-Array: ');

      writeln;

   for i := 1 to 20 do

      begin

         Z[i] := random(10);

         write(Y[i],' ');

      end;

ну это да, вариант без исправленой ошибки)) мы ее заметили до сдачи и исправили) а в своем варианте я не исправлял ничего

[ROMA2PVT]

я бы делал как то так:

uses
  CRT;

type
  mas = array [1..30] of integer;

const
  n = 30;
  c = 15;
  l = 20;

var
  X, Y, Z: mas;
  max, imax, i, max1, max2, max3: integer;
  K: real;

procedure Zapoln(var m: mas; kl: integer);
begin
  randomize;
  writeln;
  for i := 1 to kl do
  begin
    m[i] := random(15) - 5;
    write(m[i], ' ');
  end;
  writeln;
end;


procedure Searching(m: mas; kl: integer; Var rez: integer);
begin
  MAX := m[1];
  imax := 1;
  for i := 1 to kl do
    if m[i] > MAX then
    begin
      MAX := m[i];
      imax := i;
    end;
  writeln('MAX[', imax, ']:=', MAX);
  rez := max;
end;

begin
  clrscr;
  write('X-Array: ');
  Zapoln(X, n);
  write('Y-Array: ');
  Zapoln(Y, c);
  write('Z-Array: ');
  Zapoln(Z, l);
  write('Maximum massiva X: ');
  Searching(X, n, max1);
  write('Maximum massiva Y: ');
  Searching(Y, c, max2);
  write('Maximum massiva Z: ');
  Searching(Z, l, max3);
  K := (max1 + max2 + max3) / 3;
  write('K= ', K:1:3);
  readkey;
end.

(просто для примера)

[skalt12]

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

я бы делал как то так:

uses
  CRT;

type
  mas = array [1..30] of integer;

const
  n = 30;
  c = 15;
  l = 20;

var
  X, Y, Z: mas;
  max, imax, i, max1, max2, max3: integer;
  K: real;

procedure Zapoln(var m: mas; kl: integer);
begin
  randomize;
  writeln;
  for i := 1 to kl do
  begin
    m[i] := random(15) - 5;
    write(m[i], ' ');
  end;
  writeln;
end;


procedure Searching(m: mas; kl: integer; Var rez: integer);
begin
  MAX := m[1];
  imax := 1;
  for i := 1 to kl do
    if m[i] > MAX then
    begin
      MAX := m[i];
      imax := i;
    end;
  writeln('MAX[', imax, ']:=', MAX);
  rez := max;
end;

begin
  clrscr;
  write('X-Array: ');
  Zapoln(X, n);
  write('Y-Array: ');
  Zapoln(Y, c);
  write('Z-Array: ');
  Zapoln(Z, l);
  write('Maximum massiva X: ');
  Searching(X, n, max1);
  write('Maximum massiva Y: ');
  Searching(Y, c, max2);
  write('Maximum massiva Z: ');
  Searching(Z, l, max3);
  K := (max1 + max2 + max3) / 3;
  write('K= ', K:1:3);
  readkey;
end.

(просто для примера)

Ну тоже вариант.. коротко и ясно =)