Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> указатель на двумерный массив, передача в функцию 
:(
    Опции темы
ano360
Дата 10.3.2008, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 305
Регистрация: 22.5.2006
Где: Москва

Репутация: нет
Всего: нет



Код

{функция}
procedure min(var X:array integer; m:integer;var k:integer);
          var
          min,i:integer;
          begin
          min:=x[0];
          k:=0;
          for i:=1 to n do
              if(x[(i+i*4)]<min) then
                           begin
                           min:=x[i];
                           k:=i;
                           end;
          k:=k+1;
          end;
{обявление массива}
A:array[1..n,1..n]of integer;
{вызов функции}
min(A{\/},n,v);


компилятор пишет о несоответствии типов и ставит указатель где я показал{\/}
как правильно передать указатель не создавая новый тип данных?(у меня нескольно разных массивов разных размеров и функция должна работать со всеми ними)


--------------------
Жизнь есть.
PM MAIL WWW ICQ   Вверх
volvo877
Дата 10.3.2008, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Вот так:
Код

min(A[1, 1], n, v);

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0410 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.