Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2014, 05:39   #1
_domenik_
 
Регистрация: 30.10.2013
Сообщений: 3
По умолчанию как найти минимум и максимум при помощи процедуры,место функции

Код:
type mas = array of integer;
var X, Y: mas;
  m, n, i, Xmax, Ymin: integer;
  Z: real;

function func(A: mas; k: integer): integer;
var max, min: integer;
begin
  max := 0; min := 0;
  for I := 1 to k do
  begin
    if max < A[i] then
      max := A[i];

    if min > A[i] then
      min := A[i]
  end;
  if k = n then
    func := max
  else
    func := min;
end;

begin
  write('vedite dlinu massiva X='); readln(n);
  write('vedite dlinu massiva Y='); readln(m);
  Setlength(X, n);
  for I := 1 to n do
  begin
    X[i] := 1 + random(100);
    write(X[i], ' ');
  end;
  writeln;
  setlength(Y, m);
  for I := 1 to m do
  begin
    Y[i] := 1 + random(100);
    write(Y[i], ' ');
  end;
  writeln;
  Z := (func(X, n) - func(Y, m)) / 2;
  writeln('Z=', Z: 10: 4);
  readln;
end.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 25.02.2014 в 11:37.
_domenik_ вне форума Ответить с цитированием
Старый 25.02.2014, 11:42   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

во-первых, программа написана с ошибками (обращение к элементам динамического массива написано неверно, элементы в таких массивах индексируются ОТ НУЛЯ // и до КоличесвоЭлементовВМассиве-1 )
что ищем, минимум или максимум НЕЛЬЗЯ привязывать к размерности массивов (Вы введите n и m одинаковые, будете удивлены!)

во-вторых, полностью задание напишите, чтобы стало понятно, чего Вы добиваетесь вот этой строчкой:
Цитата:
Код:
Z := (func(X, n) - func(Y, m)) / 2;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти минимум функции методом касательных Lenr88 Паскаль, Turbo Pascal, PascalABC.NET 0 08.03.2013 18:26
Найти максимум либо минимум из трех чисел. Предусмотреть, чтобы пользователь мог ввести в поле ЧислоN только числовые данные delm1k Помощь студентам 1 11.12.2011 00:02
Максимум-минимум Freeman-des Помощь студентам 8 22.12.2010 20:13
как отсортировать массив под данный отрезок и как минимум и максимум из него найти SIEGER Паскаль, Turbo Pascal, PascalABC.NET 1 20.11.2008 08:58