Векторы. Найти сумму их минимальных и сумму их максимальных элементов

@Dreiser · Регистрация: 14.10.2012

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

Здравствуйте!

Начал впервые разбираться в процедурах. Навертел всякую ерунду. Пожалуйста, помогите подправить код. Знаю, что там много ужаса + я не знаю, как правильно вызвать процедуру в основном коде. Гуглить пытался, но не переварил.

Задание полностью: Даны два вектора A и B. Найти сумму их минимальных и сумму их максимальных элементов, используя две процедуры: поиск минимального элемента и поиск максимального элемента вектора.

Программка чисто консольная. Не смейтесь очень громко

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  vect = array[0..1] of integer;
 
var
  q,x,z,y,v,summax,summin:integer; 
  n:array[0..1] of integer;
  m:array[0..1] of integer;
procedure
  Vector (i: integer; var v: vect);
  var min,max:integer;
  begin
    v[0]:=min;
    v[0]:=max;
    for i:=0 to 1 do 
      begin
        if min>v[i] then min:=v[i];
        if max<v[i] then max:=v[i];
      end;
  end;
 
begin
  {Matrix A}
  for q:=0 to 1 do
  readln(n[q]);
  Vector();
  min:=x;
  max:=y;
  {Matrix B}
  for q:=0 to 1 do
  readln(m[q]);
  Vector();
  min:=z;
  max:=v;
  {Сумма максимальных элементов}
  summax:=y+v;
  {Сумма минимальных элементов}
  summin:=z+x;
 
  write(summax,' ',summin);
  readln;
end.

Добавлено через 19 минут
Внес некоторые поправки...

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  vect = array[0..1] of integer;
 
var
  q,x,z,y,v,summax,summin:integer; 
  n:array[0..1] of integer;
  m:array[0..1] of integer;
  o,p:vect;
 
procedure
  Maximum (i: integer; var v: vect);
  var max:integer;
  begin
    v[0]:=max;
    if max<v[i] then max:=v[i];
  end;
 
procedure
  Minimum(i: integer; var v: vect);
  var min:integer;
  begin
    v[0]:=min;
    if min>v[i] then min:=v[i];
  end;
 
begin
  {Matrix A}
  for q:=0 to 1 do
  readln(n[q]);
  Minimum(q,o);
  min:=x;
  Maximum(q,o);
  max:=y;
  {Matrix B}
  for q:=0 to 1 do
  readln(m[q]);
  Minimum(q,p);
  min:=z;
  Minimum(q,p);
  max:=v;
  {Сумма максимальных элементов}
  summax:=y+v;
  {Сумма минимальных элементов}
  summin:=z+x;
 
  write(summax,' ',summin);
  readln;
end.

Проблема в том, что выводит нули..

murderer · 19.10.2012, 14:06

Ты считываешь данные в массивы m и n, а работаешь с массивами o и p.

Добавлено через 14 минут
переменные x,y,z,v нигде не изменяются и равны нулю.

Добавлено через 1 минуту
Подключи модуль Math - там есть функции min и max.

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

Delphi

{$APPTYPE CONSOLE}
uses
  Math;
 
var
  m,n: array[0..1] of integer;
 
begin
  {Matrix A}
  readln(n[0],n[1]);
  {Matrix B}
  readln(m[0],m[1]);
  write(max(n[0],n[1])+max(m[0],m[1]),' ',min(n[0],n[1])+min(m[0],m[1]));
  readln;
end.

Опции темы