Ошибка времени выполнения ссылка на объект не указывает на экземпляр объекта паскаль

program One;

var
  n: integer;
  a: array of array of integer;
  i,  j: integer;

begin
  read(n);
  SetLength(a, n);
  for i := 1 to n do 
    for j := 1 to n do
      read(a[i, j]);
end.

Почему возникает ошибка?

Ссылка на объект не указывает на экземпляр объекта

Kromster's user avatar

Kromster

13.6k12 золотых знаков43 серебряных знака72 бронзовых знака

задан 23 янв 2016 в 21:12

Вы выделили память только под первое измерение, надо так же выделять под второе

program One;

var
  n: integer;
  a: array of array of integer;
  i,  j: integer;

begin
  read(n);

 SetLength(a, n); // выделили под количество строк

 for i := 0 to n-1 do // индексация в динамических массивах с нуля
   begin
     SetLength(a[i], n); // выделили под количество столбцов
     for j := 0 to n-1 do
       read(a[i][j]);
   end;

end.

ответ дан 23 янв 2016 в 21:25

Grundy's user avatar

GrundyGrundy

80.1k9 золотых знаков77 серебряных знаков133 бронзовых знака

1

Динамические массивы
Тип динамического массива конструируется следующим образом:

array of тип элементов (одномерный массив)
array [,] of тип элементов (двумерный массив)
и т.д.

Переменная типа динамический массив представляет собой ссылку. Поэтому динамический массив нуждается в инициализации (выделении памяти под элементы).

Для выделения памяти под динамический массив используется два способа. Первый способ использует операцию new в стиле вызова конструктора класса:

var
a: array of integer;
b: array [,] of real;
begin
a := new integer[5];
b := new real[4,3];
end.

В этом случае можно также задавать инициализацию массива значениями:

a := new integer[3](1,2,3);
b := new real[4,3] ((1,2,3),(4,5,6),(7,8,9),(0,1,2));

Второй способ использует стандартную процедуру SetLength:

SetLength(a,10);
SetLength(b,5,3);

Процедура SetLength обладает тем преимуществом, что при ее повторном вызове старое содержимое массива сохраняется.

Если объявлен массив массивов

var с: array of array of integer;

то его инициализацию можно провести только с помощью SetLength:

SetLength(с,5);
for i := 0 to 4 do
SetLength(c[i],3);

Для инициализации такого массива с помощью new следует ввести имя типа для array of integer:

type IntArray = array of integer;
var с: array of IntArray;

c := new IntArray[5];
for i := 0 to 4 do
c[i] := new integer[3];

При описании инициализацию динамического массива можно проводить в сокращенной форме:

var
a: array of integer := (1,2,3);
b: array [,] of real := ((1,2,3),(4,5,6),(7,8,9),(0,1,2));
c: array of array of integer := ((1,2,3),(4,5),(6,7,8));

При этом происходит выделение памяти под указанное справа количество элементов. При таком способе в инициализаторе одномерного массива должно содержаться не менее 2 элементов.

Динамические массивы одного типа можно присваивать друг другу, при этом обе переменные-ссылки будут указывать на одну память:

var a1: array of integer;
var a2: array of integer;
a1 := a2;

Следует обратить внимание, что для динамических массивов принята структурная эквивалентность типов: можно присваивать друг другу и передавать в качестве параметров подпрограмм динамические массивы, совпадающие по структуре.

Чтобы одному динамическому массиву присвоить копию другого массива, следует воспользоваться стандартной функцией Copy:

a1 := Copy(a2);

Длина массива (количество элементов в нем) возвращается стандартной функцией Length или свойством Length:

l := Length(a);
l := a.Length;

Для многомерных массивов длина по каждой размерности возвращается стандартной функцией Length с двумя параметрами или методом GetLength(i):

l := Length(a,0);
l := a.GetLength(0);

При отладке кода, написанного на ряде языков программирования (Visual Studio, Pascal и других) программист может получить сообщение «Ссылка на объект не указывает на экземпляр объекта». Обычно это означает, что программа пытается обратиться к объекту, который не инициализирован (объекту не задано значение), и вместо значения объекта виден нуль (null). Давайте разберём суть и способы решения возникшей проблемы.

Окно ошибки ссылки на объект

Содержание

  1. Что означает «Ссылка на объект не указывает на экземпляр объекта»?
  2. Использование условного оператора Null для избежания NullReferenceExceptions
  3. Объединение нулей во избежание NullReferenceExceptions
  4. Простые примеры нулевых значений, вызывающих проблемы
  5. Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта
  6. Заключение

Что означает «Ссылка на объект не указывает на экземпляр объекта»?

Как мы уже поясняли выше, возникновение данной ошибки связано с так называемой «нулевой ссылкой». Когда значений какого-либо из объектов кода не задано, и программа вместо данного значения видит нуль.

Ошибка «нулевой ссылки» составляют значимую часть в числе всех ошибок приложений. Обычно это простая проблема, вызванная отсутствием дополнительной логики в программе, предполагающей наличие допустимых значений для всех имеющихся в ней объектов.

Вы также можете столкнуться с исключением нулевой ссылки в ситуации, когда любой из типов объектов является нулём. Например, в приведенном ниже коде объект SqlCommand никогда не инициализируется. Отсутствие SQL-запроса может стать серьезной проблемой для вашего приложения. Иногда нулевую строку можно просто проигнорировать, и двигаться дальше. В других же случаях, как и в случае с SqlCommand, это может стать фатальной ошибкой, игнорировать которую не представляется возможным.

Объект SqlCommand

В данном отрывке объект SqlCommand никогда не инициализируется

Это интересно:  Как можно исправить HTTP ERROR 500.

Использование условного оператора Null для избежания NullReferenceExceptions

Одним из лучших новых дополнений в C # является нулевой условный оператор. Вместо сумасшедшего количества проверок типа «variable != null», можно использовать «?», Ваш код сделает небольшой круг, и вернет ноль вместо того, чтобы выдать исключение. Написанное будет иметь больше смысла в примере ниже:

Пример кода

Объединение нулей во избежание NullReferenceExceptions

Еще одна замечательная особенность — объединение нулей (null coalescing), которое является оператором «??». Это прекрасно работает в случае получения значения по умолчанию для переменной, которая является нулём. Это работает со всеми типами данных, которые могут быть обнуляемыми. Следующий код генерирует исключение без объединения нулей. Добавление “?? new List<string>()» предотвращает исключение «Ссылка на объект не указывает на экземпляр объекта».

Пример исключения

Простые примеры нулевых значений, вызывающих проблемы

Наиболее распространёнными причинами рассматриваемой ошибки являются неверные настройки, вызовы базы данных, а также вызовы типа API, не возвращающие ожидаемые значения.

Например, вы добавляете новое поле в свою базу данных, и не заполняете значения по умолчанию для каждой записи. Произвольно запрашиваются записи, при этом данный код не учитывает, что новое поле — нуль. Соответственно, возникает и рассматриваемая нами ошибка.

Читайте также: что за ошибка ERR_NETWORK_CHANGED.

Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта

Рассматриваемая проблема может быть решена добавлением логики и кода, позволяющих гарантировать, что объекты не являются нулями. Советы, позволяющие избавиться от ошибки сводятся примерно к следующему:

  • Инициализируйте переменные с допустимыми значениями;
  • Если переменная может быть нулевой, то проверьте код на нули, и обработайте его соответствующим образом;
  • Используйте оператор ? с методами, когда возможно. stringvar?.ToUpper();
  • Применяйте инструменты уровня «Resharper» для выявления потенциальных нулевых ссылок.

Будет интересно узнать: как исправить ERR_FILE_NOT_FOUND.

Заключение

В статье мы разобрали, что означает «Ссылка на объект не указывает на экземпляр объекта», в каких ситуациях она появляется, и как её исправить. Проверяйте объекты на наличие заданных значений, используйте «Resharper», и рассматриваемая нами ошибка перестанет вам досаждать.

IPB

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется …
2. Все тексты программ должны помещаться в теги [code=pas][/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. «FAQ«, если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение — только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы — на PM!
6. Одна тема — один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Ссылка не указывает на экземпляр объекта

сообщение 20.02.2015 17:47

Сообщение
#1

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

var a: array of integer;
n,i,j,b: integer;
procedure input (a: array of integer);
var
i,n: integer;
begin
readln(n);
for i:=1 to n do

readln (a[i]);

end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;
writeln(a[n], ‘ — наименьшее’);
writeln(a[1], ‘ — наибольшее’);
end.

Вылетает на 9 строке на вводе

Форум читал, ссылки видел. Но не могу понять почему не работает, точно такая же процедура работала в другой программе.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 20.02.2015 22:43

Сообщение
#2

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


Если это FPC или Delphi, то перед использованием массива нужно выделить ему место в памяти SetLength(a, n).

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 24.02.2015 13:28

Сообщение
#3

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


это Паскаль АБС
просто раньше все работало а теперь ошибка

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

zhdanow5a

сообщение 24.02.2015 14:38

Сообщение
#4

Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


Советую массив задать через type ( в начале кода) . тогда возможно разрешится проблема.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 24.02.2015 21:57

Сообщение
#5

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


или выделить память под массив SetLength

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 25.02.2015 12:23

Сообщение
#6

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

type
mas=array of integer;

var a: array of integer;
n,i,j,b: integer;
procedure input (a: mas);
var
i,n: integer;
begin
SetLength(a, 5);
readln(n);
for i:=1 to n do
readln (a[i]);
end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;

writeln(a[n], ‘ — наименьшее’);

writeln(a[1], ‘ — наибольшее’);
end.

Теперь тут ругается.
А что случилось? Почему раньше все работало, а теперь понадобились динамические массивы?

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 25.02.2015 12:23

Сообщение
#7

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

type
mas=array of integer;

var a: array of integer;
n,i,j,b: integer;
procedure input (a: mas);
var
i,n: integer;
begin
SetLength(a, 5);
readln(n);
for i:=1 to n do
readln (a[i]);
end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;

writeln(a[n], ‘ — наименьшее’);

writeln(a[1], ‘ — наибольшее’);
end.

Теперь тут ругается.
А что случилось? Почему раньше все работало, а теперь понадобились динамические массивы?

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 25.02.2015 20:24

Сообщение
#8

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


1. Покажи, что такое раньше.
2. procedure input (a: mas); — где var?
3. Глобальная (sic!) одноимённая (sic!) переменная a — тоже можно причислить к недостаткам, за которые во времена «1001 ночи» на Востоке отрубали руки.

Начни рефакторинг кода с избавления от глобальных переменных.

И если не сложно, реагируй по-чаще — я уже слишком стар и могу не дожить до рабочего состояния твоего кода.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают

Связь с администрацией: bu_gen в домене octagram.name

При отладке кода, написанного на ряде языков программирования (Visual Studio, Pascal и других) программист может получить сообщение «Ссылка на объект не указывает на экземпляр объекта». Обычно это означает, что программа пытается обратиться к объекту, который не инициализирован (объекту не задано значение), и вместо значения объекта виден нуль (null). Давайте разберём суть и способы решения возникшей проблемы.

Ссылка на объект не указывает на экземпляр объекта что это значит

Содержание статьи:

  • Что означает «Ссылка на объект не указывает на экземпляр объекта»?
  • Использование условного оператора Null для избежания NullReferenceExceptions
  • Объединение нулей во избежание NullReferenceExceptions
  • Простые примеры нулевых значений, вызывающих проблемы
  • Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта
  • Заключение

Что означает «Ссылка на объект не указывает на экземпляр объекта»?

Как мы уже поясняли выше, возникновение данной ошибки связано с так называемой «нулевой ссылкой». Когда значений какого-либо из объектов кода не задано, и программа вместо данного значения видит нуль.

Ошибка «нулевой ссылки» составляют значимую часть в числе всех ошибок приложений. Обычно это простая проблема, вызванная отсутствием дополнительной логики в программе, предполагающей наличие допустимых значений для всех имеющихся в ней объектов.

Вы также можете столкнуться с исключением нулевой ссылки в ситуации, когда любой из типов объектов является нулём. Например, в приведенном ниже коде объект SqlCommand никогда не инициализируется. Отсутствие SQL-запроса может стать серьезной проблемой для вашего приложения. Иногда нулевую строку можно просто проигнорировать, и двигаться дальше. В других же случаях, как и в случае с SqlCommand, это может стать фатальной ошибкой, игнорировать которую не представляется возможным.

Ссылка на объект не указывает на экземпляр объекта что это значит

В данном отрывке объект SqlCommand никогда не инициализируется

Это интересно:  Как можно исправить HTTP ERROR 500.

Использование условного оператора Null для избежания NullReferenceExceptions

Одним из лучших новых дополнений в C # является нулевой условный оператор. Вместо сумасшедшего количества проверок типа «variable != null», можно использовать «?», Ваш код сделает небольшой круг, и вернет ноль вместо того, чтобы выдать исключение. Написанное будет иметь больше смысла в примере ниже:

Ссылка на объект не указывает на экземпляр объекта что это значит

Пример такого кода

Объединение нулей во избежание NullReferenceExceptions

Еще одна замечательная особенность — объединение нулей (null coalescing), которое является оператором «??». Это прекрасно работает в случае получения значения по умолчанию для переменной, которая является нулём. Это работает со всеми типами данных, которые могут быть обнуляемыми. Следующий код генерирует исключение без объединения нулей. Добавление “?? new List()» предотвращает исключение «Ссылка на объект не указывает на экземпляр объекта».

Ссылка на объект не указывает на экземпляр объекта что это значит

Пример предотвращения исключения

Простые примеры нулевых значений, вызывающих проблемы

Наиболее распространёнными причинами ошибка ошибки «Ссылка на объект не указывает на экземпляр объекта» являются неверные настройки, вызовы базы данных, а также вызовы типа API, не возвращающие ожидаемые значения.

Например, вы добавляете новое поле в свою базу данных, и не заполняете значения по умолчанию для каждой записи. Произвольно запрашиваются записи, при этом данный код не учитывает, что новое поле — нуль. Соответственно, возникает и рассматриваемая нами ошибка.

Читайте также: что за ошибка ERR_NETWORK_CHANGED.

Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта

Рассматриваемая проблема может быть решена добавлением логики и кода, позволяющих гарантировать, что объекты не являются нулями. Советы, позволяющие избавиться от ошибки сводятся примерно к следующему:

  • Инициализируйте переменные с допустимыми значениями;
  • Если переменная может быть нулевой, то проверьте код на нули, и обработайте его соответствующим образом;
  • Используйте оператор ? с методами, когда возможно. stringvar?.ToUpper();
  • Применяйте инструменты уровня «Resharper» для выявления потенциальных нулевых ссылок.

Будет интересно узнать: как исправить ERR_FILE_NOT_FOUND.

Заключение

В статье мы разобрали, что означает «Ссылка на объект не указывает на экземпляр объекта», в каких ситуациях она появляется, и как её исправить. Проверяйте объекты на наличие заданных значений, используйте «Resharper», и рассматриваемая нами ошибка перестанет вам досаждать.

const
  n = 100;

type
  massive = array[1..n] of integer;

function ProstMin(a: massive; x: integer): char;
var
  i, j, k: longint;
  min: integer;
  f: boolean;
  b: array of integer;
begin
  for j := 1 to x do 
    if a[j] < 2 then f := false
      else
    begin
      k := 0;
      f := true;
      for i := 2 to round(sqrt(a[j])) do
        if a[j] mod i = 0 then f := false;
      if f then 
      begin
        setlength(b,k+1);
        b[k] := a[j];
        inc(k);
      end;
      for i := 1 to x do
        begin
             write(b[i], ' ');
        end;
    end;
end;

function massiv(x: byte): char;
var
  i: byte;
  a: massive;
begin
  for i := 1 to x do          
  begin
    a[i] := random(100);        
    write(a[i]:3);
  end;
  writeln;
  ProstMin(a, x);
end;

var
  x: byte;

begin
  write('Введите размер массива: '); read(x);
  write('Массив: '); massiv(x);
  
end.


  • Вопрос задан

    более года назад

  • 433 просмотра

Вы задрали

type
  TArray = array of integer;

function IsPrime(const Value: integer): Boolean;
var
  N: integer;
begin
  for N := 2 to Value - 1 do
    if Value mod N = 0 then
      Exit(False);
  Result := True;
end;

function PrimeMin(const A: TArray): Integer;
var
  i: Integer;
begin
  Result := -1;
  for i := 0 to High(A) do
    if IsPrime(A[i]) then
      if (Result = -1) or (Result > A[i]) then
        Result := A[i];
end;

function FillRandom(Count: Integer): TArray;
var
  i: Integer;
begin
  Randomize;
  SetLength(Result, Count);
  for i := 0 to Count - 1 do
  begin
    Result[i] := Random(1000 - 2) + 2;
    write(Result[i]: 4);
  end;
  writeln;
end;

var
  Count: Integer;
  Items: TArray;

begin
  Write('Введите размер массива: ');
  Read(Count);
  Write('Массив: ');
  Items := FillRandom(Count);
  Write('Мин. простое: ', PrimeMin(Items));
  Readln;
  Readln;
end.

Только хоть немного изучите алгоритм

Пригласить эксперта

Ошибок нет — программа компилируется и делает ровно то что написано в коде.


  • Показать ещё
    Загружается…

Сбер

Ростов-на-Дону

от 170 000 ₽

24 июн. 2023, в 23:21

5000 руб./за проект

24 июн. 2023, в 21:49

1000 руб./за проект

24 июн. 2023, в 18:21

30000 руб./за проект

Минуточку внимания

program One;

var
  n: integer;
  a: array of array of integer;
  i,  j: integer;

begin
  read(n);
  SetLength(a, n);
  for i := 1 to n do 
    for j := 1 to n do
      read(a[i, j]);
end.

Почему возникает ошибка?

Ссылка на объект не указывает на экземпляр объекта

Kromster's user avatar

Kromster

13.2k12 золотых знаков41 серебряный знак70 бронзовых знаков

задан 23 янв 2016 в 21:12

Вы выделили память только под первое измерение, надо так же выделять под второе

program One;

var
  n: integer;
  a: array of array of integer;
  i,  j: integer;

begin
  read(n);

 SetLength(a, n); // выделили под количество строк

 for i := 0 to n-1 do // индексация в динамических массивах с нуля
   begin
     SetLength(a[i], n); // выделили под количество столбцов
     for j := 0 to n-1 do
       read(a[i][j]);
   end;

end.

ответ дан 23 янв 2016 в 21:25

Grundy's user avatar

GrundyGrundy

78.8k9 золотых знаков73 серебряных знака130 бронзовых знаков

1

Динамические массивы
Тип динамического массива конструируется следующим образом:

array of тип элементов (одномерный массив)
array [,] of тип элементов (двумерный массив)
и т.д.

Переменная типа динамический массив представляет собой ссылку. Поэтому динамический массив нуждается в инициализации (выделении памяти под элементы).

Для выделения памяти под динамический массив используется два способа. Первый способ использует операцию new в стиле вызова конструктора класса:

var
a: array of integer;
b: array [,] of real;
begin
a := new integer[5];
b := new real[4,3];
end.

В этом случае можно также задавать инициализацию массива значениями:

a := new integer[3](1,2,3);
b := new real[4,3] ((1,2,3),(4,5,6),(7,8,9),(0,1,2));

Второй способ использует стандартную процедуру SetLength:

SetLength(a,10);
SetLength(b,5,3);

Процедура SetLength обладает тем преимуществом, что при ее повторном вызове старое содержимое массива сохраняется.

Если объявлен массив массивов

var с: array of array of integer;

то его инициализацию можно провести только с помощью SetLength:

SetLength(с,5);
for i := 0 to 4 do
SetLength(c[i],3);

Для инициализации такого массива с помощью new следует ввести имя типа для array of integer:

type IntArray = array of integer;
var с: array of IntArray;

c := new IntArray[5];
for i := 0 to 4 do
c[i] := new integer[3];

При описании инициализацию динамического массива можно проводить в сокращенной форме:

var
a: array of integer := (1,2,3);
b: array [,] of real := ((1,2,3),(4,5,6),(7,8,9),(0,1,2));
c: array of array of integer := ((1,2,3),(4,5),(6,7,8));

При этом происходит выделение памяти под указанное справа количество элементов. При таком способе в инициализаторе одномерного массива должно содержаться не менее 2 элементов.

Динамические массивы одного типа можно присваивать друг другу, при этом обе переменные-ссылки будут указывать на одну память:

var a1: array of integer;
var a2: array of integer;
a1 := a2;

Следует обратить внимание, что для динамических массивов принята структурная эквивалентность типов: можно присваивать друг другу и передавать в качестве параметров подпрограмм динамические массивы, совпадающие по структуре.

Чтобы одному динамическому массиву присвоить копию другого массива, следует воспользоваться стандартной функцией Copy:

a1 := Copy(a2);

Длина массива (количество элементов в нем) возвращается стандартной функцией Length или свойством Length:

l := Length(a);
l := a.Length;

Для многомерных массивов длина по каждой размерности возвращается стандартной функцией Length с двумя параметрами или методом GetLength(i):

l := Length(a,0);
l := a.GetLength(0);

const
  n = 100;

type
  massive = array[1..n] of integer;

function ProstMin(a: massive; x: integer): char;
var
  i, j, k: longint;
  min: integer;
  f: boolean;
  b: array of integer;
begin
  for j := 1 to x do 
    if a[j] < 2 then f := false
      else
    begin
      k := 0;
      f := true;
      for i := 2 to round(sqrt(a[j])) do
        if a[j] mod i = 0 then f := false;
      if f then 
      begin
        setlength(b,k+1);
        b[k] := a[j];
        inc(k);
      end;
      for i := 1 to x do
        begin
             write(b[i], ' ');
        end;
    end;
end;

function massiv(x: byte): char;
var
  i: byte;
  a: massive;
begin
  for i := 1 to x do          
  begin
    a[i] := random(100);        
    write(a[i]:3);
  end;
  writeln;
  ProstMin(a, x);
end;

var
  x: byte;

begin
  write('Введите размер массива: '); read(x);
  write('Массив: '); massiv(x);
  
end.


  • Вопрос задан

    более года назад

  • 405 просмотров

Вы задрали

type
  TArray = array of integer;

function IsPrime(const Value: integer): Boolean;
var
  N: integer;
begin
  for N := 2 to Value - 1 do
    if Value mod N = 0 then
      Exit(False);
  Result := True;
end;

function PrimeMin(const A: TArray): Integer;
var
  i: Integer;
begin
  Result := -1;
  for i := 0 to High(A) do
    if IsPrime(A[i]) then
      if (Result = -1) or (Result > A[i]) then
        Result := A[i];
end;

function FillRandom(Count: Integer): TArray;
var
  i: Integer;
begin
  Randomize;
  SetLength(Result, Count);
  for i := 0 to Count - 1 do
  begin
    Result[i] := Random(1000 - 2) + 2;
    write(Result[i]: 4);
  end;
  writeln;
end;

var
  Count: Integer;
  Items: TArray;

begin
  Write('Введите размер массива: ');
  Read(Count);
  Write('Массив: ');
  Items := FillRandom(Count);
  Write('Мин. простое: ', PrimeMin(Items));
  Readln;
  Readln;
end.

Только хоть немного изучите алгоритм

Пригласить эксперта

Ошибок нет — программа компилируется и делает ровно то что написано в коде.


  • Показать ещё
    Загружается…

30 янв. 2023, в 08:15

20000 руб./за проект

30 янв. 2023, в 08:09

1000 руб./за проект

30 янв. 2023, в 07:48

500 руб./за проект

Минуточку внимания

При отладке кода, написанного на ряде языков программирования (Visual Studio, Pascal и других) программист может получить сообщение «Ссылка на объект не указывает на экземпляр объекта». Обычно это означает, что программа пытается обратиться к объекту, который не инициализирован (объекту не задано значение), и вместо значения объекта виден нуль (null). Давайте разберём суть и способы решения возникшей проблемы.

Окно ошибки ссылки на объект

Содержание

  1. Что означает «Ссылка на объект не указывает на экземпляр объекта»?
  2. Использование условного оператора Null для избежания NullReferenceExceptions
  3. Объединение нулей во избежание NullReferenceExceptions
  4. Простые примеры нулевых значений, вызывающих проблемы
  5. Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта
  6. Заключение

Что означает «Ссылка на объект не указывает на экземпляр объекта»?

Как мы уже поясняли выше, возникновение данной ошибки связано с так называемой «нулевой ссылкой». Когда значений какого-либо из объектов кода не задано, и программа вместо данного значения видит нуль.

Ошибка «нулевой ссылки» составляют значимую часть в числе всех ошибок приложений. Обычно это простая проблема, вызванная отсутствием дополнительной логики в программе, предполагающей наличие допустимых значений для всех имеющихся в ней объектов.

Вы также можете столкнуться с исключением нулевой ссылки в ситуации, когда любой из типов объектов является нулём. Например, в приведенном ниже коде объект SqlCommand никогда не инициализируется. Отсутствие SQL-запроса может стать серьезной проблемой для вашего приложения. Иногда нулевую строку можно просто проигнорировать, и двигаться дальше. В других же случаях, как и в случае с SqlCommand, это может стать фатальной ошибкой, игнорировать которую не представляется возможным.

Объект SqlCommand

В данном отрывке объект SqlCommand никогда не инициализируется

Это интересно:  Как можно исправить HTTP ERROR 500.

Использование условного оператора Null для избежания NullReferenceExceptions

Одним из лучших новых дополнений в C # является нулевой условный оператор. Вместо сумасшедшего количества проверок типа «variable != null», можно использовать «?», Ваш код сделает небольшой круг, и вернет ноль вместо того, чтобы выдать исключение. Написанное будет иметь больше смысла в примере ниже:

Пример кода

Объединение нулей во избежание NullReferenceExceptions

Еще одна замечательная особенность — объединение нулей (null coalescing), которое является оператором «??». Это прекрасно работает в случае получения значения по умолчанию для переменной, которая является нулём. Это работает со всеми типами данных, которые могут быть обнуляемыми. Следующий код генерирует исключение без объединения нулей. Добавление “?? new List<string>()» предотвращает исключение «Ссылка на объект не указывает на экземпляр объекта».

Пример исключения

Простые примеры нулевых значений, вызывающих проблемы

Наиболее распространёнными причинами рассматриваемой ошибки являются неверные настройки, вызовы базы данных, а также вызовы типа API, не возвращающие ожидаемые значения.

Например, вы добавляете новое поле в свою базу данных, и не заполняете значения по умолчанию для каждой записи. Произвольно запрашиваются записи, при этом данный код не учитывает, что новое поле — нуль. Соответственно, возникает и рассматриваемая нами ошибка.

Читайте также: что за ошибка ERR_NETWORK_CHANGED.

Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта

Рассматриваемая проблема может быть решена добавлением логики и кода, позволяющих гарантировать, что объекты не являются нулями. Советы, позволяющие избавиться от ошибки сводятся примерно к следующему:

  • Инициализируйте переменные с допустимыми значениями;
  • Если переменная может быть нулевой, то проверьте код на нули, и обработайте его соответствующим образом;
  • Используйте оператор ? с методами, когда возможно. stringvar?.ToUpper();
  • Применяйте инструменты уровня «Resharper» для выявления потенциальных нулевых ссылок.

Будет интересно узнать: как исправить ERR_FILE_NOT_FOUND.

Заключение

В статье мы разобрали, что означает «Ссылка на объект не указывает на экземпляр объекта», в каких ситуациях она появляется, и как её исправить. Проверяйте объекты на наличие заданных значений, используйте «Resharper», и рассматриваемая нами ошибка перестанет вам досаждать.

БЛОГ НА HUSL

  • Деловая переписка на английском языке: фразы и советы
  • Принцип цикады и почему он важен для веб-дизайнеров
  • В популярных антивирусах для ПК обнаружили лазейки в защите

Ошибка “Ссылка на объект не указывает на экземпляр объекта”

Автор вопроса: Kirill Chukhlib

program Perevernut;

var
  st: array of string;
  i: integer;
  k: string;
  n: integer;

begin
  Read(k);
  n := length(k);
  for i := 1 to n do read(st[i]);

  for i := 1 to n do write(st[i]);

end.

Источник

Ответы (1 шт):

Автор решения: Igor

Абсолютно то же самое: Ошибка «Ссылка на объект не указывает на экземпляр объекта»

...
Read(k);
n := length(k); // maybe n := StrToInt(k); ?
SetLength(st, n); // !!!
for i := 1 to n do read(st[i]);
...

→ Ссылка

licensed under cc by-sa 3.0 with attribution.

IPB

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется …
2. Все тексты программ должны помещаться в теги [code=pas][/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. «FAQ«, если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение — только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы — на PM!
6. Одна тема — один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Ссылка не указывает на экземпляр объекта

сообщение 20.02.2015 17:47

Сообщение
#1

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

var a: array of integer;
n,i,j,b: integer;
procedure input (a: array of integer);
var
i,n: integer;
begin
readln(n);
for i:=1 to n do

readln (a[i]);

end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;
writeln(a[n], ‘ — наименьшее’);
writeln(a[1], ‘ — наибольшее’);
end.

Вылетает на 9 строке на вводе

Форум читал, ссылки видел. Но не могу понять почему не работает, точно такая же процедура работала в другой программе.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 20.02.2015 22:43

Сообщение
#2

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


Если это FPC или Delphi, то перед использованием массива нужно выделить ему место в памяти SetLength(a, n).

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 24.02.2015 13:28

Сообщение
#3

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


это Паскаль АБС
просто раньше все работало а теперь ошибка

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

zhdanow5a

сообщение 24.02.2015 14:38

Сообщение
#4

Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


Советую массив задать через type ( в начале кода) . тогда возможно разрешится проблема.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 24.02.2015 21:57

Сообщение
#5

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


или выделить память под массив SetLength

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 25.02.2015 12:23

Сообщение
#6

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

type
mas=array of integer;

var a: array of integer;
n,i,j,b: integer;
procedure input (a: mas);
var
i,n: integer;
begin
SetLength(a, 5);
readln(n);
for i:=1 to n do
readln (a[i]);
end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;

writeln(a[n], ‘ — наименьшее’);

writeln(a[1], ‘ — наибольшее’);
end.

Теперь тут ругается.
А что случилось? Почему раньше все работало, а теперь понадобились динамические массивы?

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

TOPEHTO

сообщение 25.02.2015 12:23

Сообщение
#7

Пионер
**

Группа: Пользователи
Сообщений: 87
Пол: Мужской

Репутация: -  0  +


Цитата

type
mas=array of integer;

var a: array of integer;
n,i,j,b: integer;
procedure input (a: mas);
var
i,n: integer;
begin
SetLength(a, 5);
readln(n);
for i:=1 to n do
readln (a[i]);
end;
procedure swap(var a,b,c: integer);
begin
b:=c;
c:=a;
a:=b;
end;
begin
input(a);
for j:=1 to n-1 do
for i:=1 to n-j do
begin
if a[i] < a[i+1] then
swap(a[i+1], b, a[i]);
end;

writeln(a[n], ‘ — наименьшее’);

writeln(a[1], ‘ — наибольшее’);
end.

Теперь тут ругается.
А что случилось? Почему раньше все работало, а теперь понадобились динамические массивы?

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

Федосеев Павел

сообщение 25.02.2015 20:24

Сообщение
#8

Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


1. Покажи, что такое раньше.
2. procedure input (a: mas); — где var?
3. Глобальная (sic!) одноимённая (sic!) переменная a — тоже можно причислить к недостаткам, за которые во времена «1001 ночи» на Востоке отрубали руки.

Начни рефакторинг кода с избавления от глобальных переменных.

И если не сложно, реагируй по-чаще — я уже слишком стар и могу не дожить до рабочего состояния твоего кода.

 Оффлайн  Профиль  PM 

 К началу страницы 

+ Ответить 

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают

Связь с администрацией: bu_gen в домене octagram.name

При отладке кода, написанного на ряде языков программирования (Visual Studio, Pascal и других) программист может получить сообщение «Ссылка на объект не указывает на экземпляр объекта». Обычно это означает, что программа пытается обратиться к объекту, который не инициализирован (объекту не задано значение), и вместо значения объекта виден нуль (null). Давайте разберём суть и способы решения возникшей проблемы.

Ссылка на объект не указывает на экземпляр объекта что это значит

Содержание статьи:

  • Что означает «Ссылка на объект не указывает на экземпляр объекта»?
  • Использование условного оператора Null для избежания NullReferenceExceptions
  • Объединение нулей во избежание NullReferenceExceptions
  • Простые примеры нулевых значений, вызывающих проблемы
  • Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта
  • Заключение

Что означает «Ссылка на объект не указывает на экземпляр объекта»?

Как мы уже поясняли выше, возникновение данной ошибки связано с так называемой «нулевой ссылкой». Когда значений какого-либо из объектов кода не задано, и программа вместо данного значения видит нуль.

Ошибка «нулевой ссылки» составляют значимую часть в числе всех ошибок приложений. Обычно это простая проблема, вызванная отсутствием дополнительной логики в программе, предполагающей наличие допустимых значений для всех имеющихся в ней объектов.

Вы также можете столкнуться с исключением нулевой ссылки в ситуации, когда любой из типов объектов является нулём. Например, в приведенном ниже коде объект SqlCommand никогда не инициализируется. Отсутствие SQL-запроса может стать серьезной проблемой для вашего приложения. Иногда нулевую строку можно просто проигнорировать, и двигаться дальше. В других же случаях, как и в случае с SqlCommand, это может стать фатальной ошибкой, игнорировать которую не представляется возможным.

Ссылка на объект не указывает на экземпляр объекта что это значит

В данном отрывке объект SqlCommand никогда не инициализируется

Это интересно:  Как можно исправить HTTP ERROR 500.

Использование условного оператора Null для избежания NullReferenceExceptions

Одним из лучших новых дополнений в C # является нулевой условный оператор. Вместо сумасшедшего количества проверок типа «variable != null», можно использовать «?», Ваш код сделает небольшой круг, и вернет ноль вместо того, чтобы выдать исключение. Написанное будет иметь больше смысла в примере ниже:

Ссылка на объект не указывает на экземпляр объекта что это значит

Пример такого кода

Объединение нулей во избежание NullReferenceExceptions

Еще одна замечательная особенность — объединение нулей (null coalescing), которое является оператором «??». Это прекрасно работает в случае получения значения по умолчанию для переменной, которая является нулём. Это работает со всеми типами данных, которые могут быть обнуляемыми. Следующий код генерирует исключение без объединения нулей. Добавление “?? new List()» предотвращает исключение «Ссылка на объект не указывает на экземпляр объекта».

Ссылка на объект не указывает на экземпляр объекта что это значит

Пример предотвращения исключения

Простые примеры нулевых значений, вызывающих проблемы

Наиболее распространёнными причинами ошибка ошибки «Ссылка на объект не указывает на экземпляр объекта» являются неверные настройки, вызовы базы данных, а также вызовы типа API, не возвращающие ожидаемые значения.

Например, вы добавляете новое поле в свою базу данных, и не заполняете значения по умолчанию для каждой записи. Произвольно запрашиваются записи, при этом данный код не учитывает, что новое поле — нуль. Соответственно, возникает и рассматриваемая нами ошибка.

Читайте также: что за ошибка ERR_NETWORK_CHANGED.

Как исправить дисфункцию, когда ссылка на необходимый объект не указывает на экземпляр объекта

Рассматриваемая проблема может быть решена добавлением логики и кода, позволяющих гарантировать, что объекты не являются нулями. Советы, позволяющие избавиться от ошибки сводятся примерно к следующему:

  • Инициализируйте переменные с допустимыми значениями;
  • Если переменная может быть нулевой, то проверьте код на нули, и обработайте его соответствующим образом;
  • Используйте оператор ? с методами, когда возможно. stringvar?.ToUpper();
  • Применяйте инструменты уровня «Resharper» для выявления потенциальных нулевых ссылок.

Будет интересно узнать: как исправить ERR_FILE_NOT_FOUND.

Заключение

В статье мы разобрали, что означает «Ссылка на объект не указывает на экземпляр объекта», в каких ситуациях она появляется, и как её исправить. Проверяйте объекты на наличие заданных значений, используйте «Resharper», и рассматриваемая нами ошибка перестанет вам досаждать.

  • Ошибка времени выполнения попытка деления на нуль паскаль
  • Ошибка времени выполнения питон
  • Ошибка времени выполнения паскаль файл не найден
  • Ошибка времени выполнения операция writeln не применима к бинарным файлам
  • Ошибка времени выполнения инициализатор типа выдал исключение