Массовая проверка ссылок на ошибку 404 - Решение и исправление самых разных ошибок на TopOshibok.ru

Jim93

0 / 0 / 0

Регистрация: 07.05.2011

Сообщений: 9

Выдаёт ошибку: массив имеет другое количество размерностей! Как исправить??

08.05.2011, 00:34. Показов 9498. Ответов 1

Метки нет (Все метки)

Pascal

// Задаём максимальную размерность массива
const
    MaxNumber = 100;
 
// Объявление новых типов для передачи в процедуры
type
  TArray = array [1..MaxNumber] of Integer;
  TMatrix = array [1..MaxNumber, 1..MaxNumber] of Integer;
 
var
    Matrix: TMatrix;
    i, j, Number: Integer;
 
// Сортировка элементов строк
 
  // Процедура для перессылки записей
  procedure SwapElements(var x, y: Integer);
    var
      Temp: Integer;
    begin
      Temp := x;
      x := y;
      y := Temp;
    end;
 
  // Процедура приведения массива к пирамидальному виду
  procedure ToPyrLine(var Data: TArray; Size: Integer);
    var
      i: Integer;
    begin
      for i := Size div 2 downto 1 do begin
        if 2 * i <= Size then
          if Data[i] < data[2 * i] then
            SwapElements(Data[i], Data[2 * i]);
        if 2 * i + 1 <= Size then
          if Data[i] < data[2 * i + 1] then
            SwapElements(Data[i], Data[2 * i + 1]);
      end;
    end;
 
  // Процедура для сдвига массива влево
  procedure LeftLine(var Data: TArray; Size: Integer);
    var
      i: Integer;
      Temp: Integer;
    begin
      Temp := Data[1];
      for i := 1 to Size - 1 do
        Data[i] := Data[i + 1];
      Data[Size] := Temp;
    end;
 
// Сортировка строк
 
  // Процедура для перессылки записей
  procedure SwapLines(var x, y: TArray; Size: Integer);
    var
      i: Integer;
      Temp: Integer;
    begin
      for i := 1 to Size do begin
        Temp := x[i];
        x[i] := y[i];
        y[i] := Temp;
      end;
    end;
 
  // Процедура приведения массива к пирамидальному виду
  procedure ToPyrMatrix(var Data: TMatrix; Size, RealSize: Integer);
    var
      i: Integer;
    begin
      for i := Size div 2 downto 1 do begin
        if 2 * i <= Size then
          if Data[i][1] < Data[2 * i][1] then
            SwapLines(Data[i], Data[2 * i], RealSize);
        if 2 * i + 1 <= Size then
          if Data[i][1] < Data[2 * i + 1][1] then
            SwapLines(Data[i], Data[2 * i + 1], RealSize);
      end;
    end;
 
  // Процедура для сдвига массива влево
  procedure LeftMatrix(var Data: TMatrix; Size: Integer);
    var
      i, j: Integer;
      Temp: Integer;
    begin
      for j := 1 to Size do begin
        Temp := Data[1][j];
        for i := 1 to Size - 1 do
          Data[i][j] := Data[i + 1][j];
        Data[Size][j] := Temp;
      end;
    end;
 
 
begin
  // Ввод данных
    writeln('Введите размерность матрицы');
    readln(Number);
    writeln('Введите элементы матрицы');
    for i := 1 to Number do
        for j := 1 to Number do
            readln(Matrix[i, j]);
 
    writeln;
    writeln('Исходная матрица');
    for i := 1 to Number do begin
        for j := 1 to Number do
            write(Matrix[i, j], ' ');
        writeln;
    end;
 
  // Сортировка элементов строк
  for j := 1 to Number do begin
    for i:=Number downto 1 do begin
      ToPyrLine(Matrix[j], i);
      LeftLine(Matrix[j], Number);
    end;
  end;
 
  // Сортировка строк
  for i := 1 to Number do begin
    ToPyrMatrix(Matrix, i, Number);
    LeftMatrix(Matrix, Number);
  end;
 
    writeln;
    writeln('Отсортированная матрица');
    for i := 1 to Number do begin
        for j := 1 to Number do
            write(Matrix[i, j], ' ');
        writeln;
    end;

Добавлено через 10 минут
Вот сама задача: Дана матрица. Упорядочить элементы строк матрицы по убыванию, а сами строки по возрастанию элементов первого столбца. Использовать пирамидальную сортировку, реализовав метод в виде подпрограммы.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.05.2011, 00:34

Ответы с готовыми решениями:

Выдаёт ошибку: массив имеет другое количество размерностей
Что я делаю не так?

uses crt;
const n=10; m=15;
type stroka = array of integer;
var a, b:…

Массив имеет другое количество размерностей
program tm;
var
a,b:array of integer;
z,x,c,v:array of integer;
Max,M, N, i, j:Integer;…

Ошибка:массив имеет другое количество размерностей
Помогите исправить ошибку
Строка 14"Ошибка:массив имеет другое количество размерностей"
uses crt;…

Ошибка: массив имеет другое количество размерностей
Доброго времени суток, никогда на паскале abc не писал, только на борланд паскале. Так вот, нужно…

Puporev

Почетный модератор

64291 / 47589 / 32740

Регистрация: 18.05.2008

Сообщений: 115,181

08.05.2011, 10:02

Если объявляем матрицу как двухмерный массив

Pascal

1	TMatrix = array [1..MaxNumber, 1..MaxNumber] of Integer;

то нужно писать a[i,j];
если как массив строк

Pascal

1	TMatrix = array [1..MaxNumber] of TArray;

то нужно в Паскале АВС писать a[i][j];

Pascal

uses crt;
// Задаём максимальную размерность массива
const
        MaxNumber = 100;
 
// Объявление новых типов для передачи в процедуры
type
  TArray = array [1..MaxNumber] of Integer;
  TMatrix = array [1..MaxNumber] of TArray;
 
var
        Matrix: TMatrix;
        i, j, Number: Integer;
 
// Сортировка элементов строк
 
  // Процедура для перессылки записей
  procedure SwapElements(var x, y: Integer);
    var
      Temp: Integer;
    begin
      Temp := x;
      x := y;
      y := Temp;
    end;
 
  // Процедура приведения массива к пирамидальному виду
  procedure ToPyrLine(var Data: TArray; Size: Integer);
    var
      i: Integer;
    begin
      for i := Size div 2 downto 1 do begin
        if 2 * i <= Size then
          if Data[i] < data[2 * i] then
            SwapElements(Data[i], Data[2 * i]);
        if 2 * i + 1 <= Size then
          if Data[i] < data[2 * i + 1] then
            SwapElements(Data[i], Data[2 * i + 1]);
      end;
    end;
 
  // Процедура для сдвига массива влево
  procedure LeftLine(var Data: TArray; Size: Integer);
    var
      i: Integer;
      Temp: Integer;
    begin
      Temp := Data[1];
      for i := 1 to Size - 1 do
        Data[i] := Data[i + 1];
      Data[Size] := Temp;
    end;
 
// Сортировка строк
 
  // Процедура для перессылки записей
  procedure SwapLines(var x, y: TArray; Size: Integer);
    var
      i: Integer;
      Temp: Integer;
    begin
      for i := 1 to Size do begin
        Temp := x[i];
        x[i] := y[i];
        y[i] := Temp;
      end;
    end;
 
  // Процедура приведения массива к пирамидальному виду
  procedure ToPyrMatrix(var Data: TMatrix; Size, RealSize: Integer);
    var
      i: Integer;
    begin
      for i := Size div 2 downto 1 do begin
        if 2 * i <= Size then
          if Data[i][1] < Data[2 * i][1] then
            SwapLines(Data[i], Data[2 * i], RealSize);
        if 2 * i + 1 <= Size then
          if Data[i][1] < Data[2 * i + 1][1] then
            SwapLines(Data[i], Data[2 * i + 1], RealSize);
      end;
    end;
 
  // Процедура для сдвига массива влево
  procedure LeftMatrix(var Data: TMatrix; Size: Integer);
    var
      i, j: Integer;
      Temp: Integer;
    begin
      for j := 1 to Size do begin
        Temp := Data[1][j];
        for i := 1 to Size - 1 do
          Data[i][j] := Data[i + 1][j];
        Data[Size][j] := Temp;
      end;
    end;
 
 
begin
  // Ввод данных
        writeln('Введите размерность матрицы');
        readln(Number);
        writeln('Введите элементы матрицы');
        for i := 1 to Number do
                for j := 1 to Number do
                        readln(Matrix[i][j]);
 
        writeln;
        writeln('Исходная матрица');
        for i := 1 to Number do begin
                for j := 1 to Number do
                        write(Matrix[i][j], ' ');
                writeln;
        end;
 
  // Сортировка элементов строк
  for j := 1 to Number do begin
    for i:=Number downto 1 do begin
      ToPyrLine(Matrix[j], i);
      LeftLine(Matrix[j], Number);
    end;
  end;
 
  // Сортировка строк
  for i := 1 to Number do begin
    ToPyrMatrix(Matrix, i, Number);
    LeftMatrix(Matrix, Number);
  end;
  writeln;
  writeln('Отсортированная матрица');
  for i := 1 to Number do
   begin
    for j := 1 to Number do
    write(Matrix[i][j], ' ');
    writeln;
   end;
end.

Источник

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

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

Чтобы исправить ошибку «Массив имеет другое количество размерностей» в Паскале, необходимо внимательно проверить код программы на наличие несоответствий между размерностями массивов и переменных. Если обнаружена ошибка, следует изменить код таким образом, чтобы все массивы имели одинаковые размерности и соответствовали ожидаемым размерам.

Например, если переменная определена как двумерный массив размером 3×3, а в программе происходит попытка присвоить ей значения из одномерного массива размером 9 элементов, необходимо изменить либо размерность переменной, либо изменить код программы таким образом, чтобы обе размерности совпадали.

Содержание

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

Как решить проблему «Массив имеет другое количество размерностей» в Паскале

Описание проблемы:

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

Решение проблемы:

Для решения проблемы «Массив имеет другое количество размерностей» в Паскале необходимо выполнить одно из следующих действий:

Изменить размерности массивов:
Если вы пытаетесь присвоить значение одномерного массива многомерному массиву, то необходимо изменить размерности массивов таким образом, чтобы они совпадали. Например, если у вас есть одномерный массив A и двумерный массив B, то можно изменить размерность массива A, добавив дополнительное измерение. Таким образом, A будет иметь размерность [1, n], а B будет иметь размерность [m, n], где m — количество строк, а n — количество столбцов.
Использовать циклы для присвоения значений:
Если массивы имеют разное количество размерностей и изменение размерностей нежелательно или сложно, то можно использовать циклы для присвоения значений элементам другого массива. Например, вы можете использовать вложенные циклы для перебора элементов одномерного массива и присваивания их соответствующим элементам многомерного массива.

Пример кода:

Вот пример кода, который демонстрирует, как исправить ошибку «Массив имеет другое количество размерностей» в Паскале:

var	A: array [1..n] of integer;	// одномерный массив
	B: array [1..m, 1..n] of integer;	// двумерный массив
	i, j: integer;

Изменение размерностей:

begin
var
A: array [1..n, 1] of integer;	// изменение размерности массива A
j: integer;
	begin
for i := 1 to n do
A[i, 1] := B[i, 1];	// присваивание значений элементов массива A из массива B
end;
end;

Использование циклов:

begin
for i := 1 to m do
for j := 1 to n do
B[i, j] := A[j];	// присваивание значений элементов массива B из массива A
end;
end;

Эти примеры показывают два различных подхода к решению проблемы «Массив имеет другое количество размерностей» в Паскале. В зависимости от ваших потребностей и спецификаций задачи, вы можете выбрать один из этих подходов или использовать свой собственный.

Причины ошибки «Массив имеет другое количество размерностей»

Ошибка «Массив имеет другое количество размерностей» возникает при попытке работы с массивом, который имеет количество размерностей, отличное от ожидаемого.

Некорректное количество размерностей массива может возникать по разным причинам:

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

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

Как определить и исправить ошибку «Массив имеет другое количество размерностей»

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

Чтобы определить причину ошибки, внимательно изучите код, в котором она возникает. Обратите внимание на строки, где осуществляется присваивание значений массивам.

Если вы уверены, что ошибку вызывает именно присваивание массиву, проверьте следующие моменты:

Убедитесь, что все массивы имеют одинаковое количество измерений. Например, если у вас есть двумерный массив, убедитесь, что вы присваиваете ему другой двумерный массив, а не одномерный.
Проверьте, что размерности каждого измерения массивов совпадают. Например, если у вас есть двумерный массив с размерами 3×3, убедитесь, что вы присваиваете ему двумерный массив с такими же размерами.

Если вы обнаружили ошибку в коде, исправьте ее, учитывая указанные выше рекомендации.

Если после исправления ошибки она продолжает возникать, возможно, проблема кроется в другом месте вашего кода. Проверьте другие строки, где используется присваивание массивам, а также методы и функции, связанные с работой с массивами.

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

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

Как избежать ошибки «Массив имеет другое количество размерностей» в Паскале

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

Тщательно определите размерность каждого массива в вашей программе. Проверьте, что они совпадают при операциях присваивания или использования элементов массива.
Проверьте правильность указания индексов элементов массива. Убедитесь, что индексы находятся в разрешенном диапазоне для каждой размерности массива.
Используйте правильные типы данных для описания массивов. Если вы пытаетесь присвоить одномерный массив элементу многомерного массива, убедитесь, что их типы данных совпадают.
Проверьте синтаксис операций с массивами. Убедитесь, что вы правильно используете операторы [], [,], и что они находятся в правильном порядке.

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

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

Примеры ошибки «Массив имеет другое количество размерностей» и их решение в Паскале

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

Ниже приведены несколько примеров, которые могут вызвать данную ошибку:

Присвоение значения массиву, имеющему большее количество измерений:
```
var arr: array[1..3, 1..3] of integer;
var arr2: array[1..3] of integer;
arr := arr2; // Ошибка: "Массив имеет другое количество размерностей"
```
В данном случае массив arr2 имеет одну размерность, а массив arr — две. Передача значения из одного массива в другой невозможна.
Присвоение значения массиву с меньшим количеством измерений:
```
var arr: array[1..3] of integer;
var arr2: array[1..3, 1..3] of integer;
arr := arr2; // Ошибка: "Массив имеет другое количество размерностей"
```
В этом случае массив arr имеет одно измерение, а массив arr2 — два. Присвоение значений также невозможно.

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

Следующий пример показывает, как правильно копировать значения из массива с большим количеством измерений в массив с меньшим количеством измерений:

var arr: array[1..3] of integer;
var arr2: array[1..3, 1..3] of integer;
var i, j: integer;
begin
for i := 1 to 3 do
for j := 1 to 3 do
arr[i] := arr2[i, j];
end;

Этот код скопирует значения из каждого элемента массива arr2 в соответствующий элемент массива arr.

Для решения ошибки «Массив имеет другое количество размерностей» в Паскале, необходимо быть внимательными при присвоении значений и убедиться, что массивы имеют одинаковое количество размерностей.

Полезные советы по работе с массивами в Паскале, чтобы избежать ошибки «Массив имеет другое количество размерностей»

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

Проверьте количество размерностей массива

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

Убедитесь, что все индексы массива корректны

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

Проверьте порядок индексов массива

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

Проверьте использование массива в циклах

Использование массива в циклах является распространенной причиной ошибки «Массив имеет другое количество размерностей». Проверьте, что вы правильно обращаетесь к элементам массива внутри циклов и что индексы находятся в допустимом диапазоне.

Обратитесь к документации и примерам кода

Если вы до сих пор не можете разобраться в причинах ошибки «Массив имеет другое количество размерностей», рекомендуется обратиться к документации и примерам кода языка Паскаль. Часто проблема может быть связана с неправильным синтаксисом или неправильным использованием массивов, и документация может помочь разобраться в проблеме.

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

Источник

СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ

1 Out of memory Выход за границы памяти Компилятор выполняется вне допустимых границ памяти. Имеется ряд возможных решений проблемы:

§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.

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

2 Identifier expected Не указан идентификатор В этом месте должен находиться идентификатор. 3 Unknown identifier Неизвестный идентификатор Этот идентификатор не был описан. 4 Duplicate identifier Повторный идентификатор Идентификатор уже представляет имя программы, модуля, константы, переменной, типа, процедуры и функции, описанных в текущем блоке. 5 Syntax error Синтаксическая ошибка В исходном тексте найден неверный символ. 6 Error in real constant Ошибка в вещественной константе 7 Error in integer constant Ошибка в целой константе 8 String constant exceeds line Строковая константа превышает размеры строки Вероятно, отсутствует кавычка в конце строковой константы. 10 Unexpected end of file Неожиданный конец файла Причины:

§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);

§ включаемый файл заканчивается в середине раздела операторов. Каждый раздел операторов должен целиком помещаться в одном файле;

§ незаконченный комментарий.

11 Line too long Строка слишком длинная Максимальная длина строки может равняться 126 символам. Возможно, отсутствует апостроф в конце строковой константы. 12 Type identifier expected Нужен идентификатор типа Не указан типа идентификатора, как это должно быть. 13 Too many open files Слишком много открытых файлов Файл CONFIG.SYS не содержит параметра FILES=xx или этот параметр указывает слишком много файлов. Следует увеличить число файлов. 14 Invalid file name Неверное имя файла Имя файла неверно или указывает несуществующий путь. 15 File not found Файл не найден Файл не может быть найден ни в текущем каталоге, ни в каком-либо другом исследуемом каталоге, предназначенном для этого типа файлов. 16 Disk full Диск заполнен Удалите некоторые файлы или воспользуйтесь новым диском (если речь идет о сменном носителе). 17 Invalid compiler directive Неправильная директива компилятора Возможно, неверная буква в директиве компилятора, один из параметров директивы компилятора неверный или используется глобальная директива компилятора, когда компиляция тела программы уже началась. 18 Too many files Слишком много файлов В компиляции программы или программного модуля участвует слишком много файлов. Следует объединить включаемые файлы или сделать короче имена файлов. 19 Undefined type in pointer definition Неопределенный тип в определении ссылки Была осуществлена ссылка на тип в приведенном ранее описании указателя, но этот тип не был описан. 20 Variable identifier expected Нужен идентификатор переменной Идентификатор не описывает переменную, как это должно быть. 21 Error in type Ошибка в определении типа Определение типа не может начинаться с этого символа. 22 Structure too large Слишком большая структура Максимально допустимый размер структурного типа 65 535 байт. 23 Set base type of range Базовый тип множества выходит за допустимые границы Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимого типа, допускающим не более чем 256 значений. 24 File components may not be files or objects Элементы файла не могут быть файлами или объектами Тип компоненты файлового типа не может быть объектным или файловым типом и не может быть структурным типом с компонентами файлового или объектного типа: конструкции file of file или file of object не допускаются. 25 Invalid string length Неверная длина строки Длина строки должна находиться в диапазоне от 1 до 255. 26 Type mismatch Несоответствие типов Причины:

§ несовместимые типы переменной и выражения в операторе присваивания;

§ несовместимые типы фактического и формального параметров в обращении к процедуре или функции;

§ тип выражения, несовместимый с типом индекса при индексировании массива;

§ несовместимые типы операндов в выражении.

27 Invalid subrange base type Неправильный базовый тип интервального типа Допустимыми являются все порядковые типы. 28 Lower bound greater than upper bound Нижняя граница больше верхней В описании диапазона нижняя граница больше, чем верхняя. 29 Ordinal type expected Нужен порядковый тип Вещественные, строковые, структурные и ссылочные типы в данном случае не допускаются. 30 Integer constant expected Нужна целая константа 31 Constant expected Нужна константа 32 Integer or real constant expected Нужна целая или вещественная константа 33 Pointer type identifier expected Нужен идентификатор типа указателя Данный идентификатор не обозначает тип указателя, как это требуется. 34 Invalid function result type Неправильный тип результата функции Правильными типами результата функции являются все простые типы, а также строковые и ссылочные типы. 35 Label identifier expected Нужен идентификатор метки Метка не обозначена с помощью идентификатора, как это требуется. 36 BEGIN expected Нужен BEGIN 37 END expected Нужен END Следует проверить соответствие ключевых слов BEGIN и END. 38 Integer expression expected Нужно выражение типа INTEGER Предыдущее выражение должно иметь целочисленный тип INTEGER 39 Ordinal expression expected Нужно выражение порядкового типа Предшествующее выражение должно иметь порядковый тип. 40 Boolean expression expected Нужно выражение типа BOOLEAN Предшествующее выражение должно иметь тип BOOLEAN 41 Operand types do not math operator Типы операндов не соответствуют оператору Данный оператор не может быть применен к операндам этого типа, например, нельзя ‘A’ разделить на ‘2’. 42 Error in expression Ошибка в выражении Данный идентификатор не может участвовать в выражении указанным образом. 43 Illegal assignment Неверное присваивание § Нетипизированным файлам и переменным нельзя присваивать значения.

§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.

44 Field identifier expected Нужен идентификатор поля Данный идентификатор не является полем предшествующей переменной типа «запись». 45 Object file too large Объектный файл слишком большой Нельзя компоновать файлы .obj, превышающие 64 Кбайт. 46 Undefined external Не определена внешняя процедура Внешняя процедура или функция не имеет соответствующего определения Public в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах {$L имя_файла}, и проверьте написание идентификаторов процедуры или функции в файле .asm. 47 Invalid object file record Неправильная запись объектного файла Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj. 48 Code segment too large Сегмент кода слишком большой Максимальный размер кода программы или программного модуля равняется 65 520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модулей. 49 Data segment too large Сегмент данных слишком велик Максимальный размер сегмента данных равен 65 520 байт, включая данные, описываемые используемыми программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память динамически с помощью процедуры New. 50 DO expected Нужен оператор DO 51 Invalid PUBLIC definition Неверное определение PUBLIC § Две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор.

§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.

52 Invalid EXTRN definition Неверное определение EXTRN § На идентификатор имеется ссылка в директиве EXTRN на языке ассемблера, но он не описан в программе или модуле на Паскале или в интерфейсной части какого-либо из используемых модулей.

§ Идентификатор обозначает абсолютную переменную.

§ Идентификатор обозначает процедуру или функцию типа inline.

53 Too many EXTRN definition Слишком много определений EXTRN Невозможно обработать файлы .obj, если имеется более чем 256 EXTRN. 54 OF expected Требуется OF 55 INTERFACE expected Требуется интерфейсный раздел 56 Invalid relocatable reference Недопустимая перемещаемая ссылка § Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, вы пытаетесь описать инициализированные переменные в сегменте DATA.

§ Файл .com содержит ссылки с размерами в байтах на перемещаемые идентификаторы. Такая ошибка происходит в случае, если вы используете операторы HIGH и DOWN с перемещаемыми идентификаторами или если вы ссылаетесь в директивах DB на перемещаемые идентификаторы.

§ Операнд ссылается на перемещаемый идентификатор, который не был определен в сегменте CODE или в сегменте DATA.

§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.

57 Then expected Требуется THEN В нужном месте отсутствует слово then. 58 TO or DOWNTO expected Требуется TO или DOWNTO В нужном месте отсутствует ключевое слово TO или DOWNTO. 59 Undefined forward Не определено опережающее описание § Процедура или функция были описаны в интерфейсном разделе программного модуля, но их определение отсутствует в разделе реализации.

§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.

61 Invalid typecast Неверное преобразование типа § Размеры ссылки на переменную и тип результата отличаются друг от друга при изменении типа переменной.

§ Вы пытаетесь осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.

62 Division by zero Деление на нуль Предшествующая операция пытается выполнить деление на нуль. 63 Invalid file type Неверный файловый тип Данный файловый тип не обслуживается процедурой обработки файлов. Например, вы пытаетесь использовать процедуру Readln для типизированного файла или процедуру Seek для текстового. 64 Cannot Read or Write variables of this type Нельзя считать или записать переменные данного типа Процедуры Read и Readln могут считывать переменные символьного, целого, вещественного и строкового типа. 65 Pointer variable expected Нужно использовать переменную-указатель Предыдущая переменная должна иметь тип «указатель». 66 String variable expected Нужна строковая переменная Предшествующая переменная должна иметь строковый тип. 67 String expression expected Нужно выражение строкового типа Предшествующее выражение должно иметь строковый тип. 68 Circular unit reference Циклическая ссылка на модуль Два модуля не могут ссылаться друг на друга в разделе interface, но могут это делать в разделе implementation. Переупорядочите операторы uses таким образом, чтобы циклические ссылки имели место только в разделе implementation. 69 Unit name mismatch Несоответствие имен программных модулей Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в операторе uses. 70 Unit version mismatch Несоответствие версий программных модулей Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь командой Compile?Make или Compile?Build в интегрированной интерактивной среде программирования, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции. 71 Internal stack overflow Переполнение внутреннего стека Внутренний стек компилятора исчерпан из-за слишком большого уровня вложенности операторов. Переорганизуйте исходный код и уменьшите уровень вложенности. Например, переместите внутренние уровни вложенных операторов в отдельную процедуру. 72 Unit file format error Ошибка формата файла программного модуля Файле .tpu является недействительным. Возможно, он создан с помощью старой версии Turbo Pascal или Borland Pascal. В этом случае нужно перекомпилировать исходный код модуля и создать новый модуль. 73 Implementation expected Требуется раздел реализации Ключевое слово Implementation отсутствует там, где оно должно быть. Возможно, вы включили реализацию процедуры, функции или метода в интерфейсную часть модуля. 74 Constant and case types do not math Типы констант и выражения оператора Case не соответствуют друг другу Тип константы оператора Case несовместим с выражением селектора в операторе выбора 75 Record variable expected Нужна переменная типа запись Предшествующая переменная должна иметь тип «запись». 76 Constant out of range Константа выходит за допустимые границы § Вы пытаетесь указать массив с константами, нарушающими границы.

§ Вы пытаетесь присвоить константу вне диапазона переменной.

§ Вы пытаетесь передать константу вне диапазона в качестве параметра процедуре или функции.

77 File variable expected Нужна файловая переменная Предшествующая переменная должна иметь файловый тип. 78 Pointer expression expected Нужно выражение типа указатель Предшествующая переменная должна иметь ссылочный тип. 79 Integer or real expression expected Нужно выражение типа real или integer Предшествующее выражение должно иметь тип real или integer. 80 Label not within current block Метка не находится внутри текущего блока Оператор goto не может ссылаться на метку, находящуюся вне текущего блока. 81 Label already defined Метка уже определена Данная метка уже помечает оператор. 82 Undefined label in processing statement part Неопределенная метка в предшествующем разделе операторов Данная метка была описана, и на нее осуществлялась ссылка в предшествующем разделе операторов, но она не определена. 83 Invalid @ argument Недействительный аргумент оператора @ Действительными аргументами являются ссылки на переменные и идентификаторы процедур или функций. 84 Unit expected Нужно ключевое слово Unit Не указано ключевое слово Unit, как это требуется. 85 «;» expected Нужно указать «;» Не указана, где это требуется, точка с запятой. 86 «:» expected Нужно указать «:» Не указана, где это требуется, двоеточие. 87 «,» expected Нужно указать «,» Не указана, где это требуется, запятая. 88 «(» expected Нужно указать «(» Не указана, где это требуется, открывающаяся круглая скобка. 89 «)» expected Нужно указать «)» Не указана, где это требуется, закрывающаяся круглая скобка. 90 «=» expected Нужно указать «=» Нужно указать знак равенства. 91 «:=» expected Нужно указать «:=» Требуется использовать операцию присваивания. 92 «[» or «(.» expected Нужно «[» or «(.» Требуется указать квадратную скобку или «(. ». 93 «]» or «.)» expected Нужно «]» or «.)» Требуется указать квадратную скобку или «.) ». 94 «.» expected Нужно «.» Требуется указать точку. Убедитесь, что тип не используется как переменная или что именем программы не переопределяется важный идентификатор другого модуля. 95 «..» expected Нужно «..» Требуется указать точки. Там, где это нужно, не указан диапазон. 96 Too many variables Слишком много переменных Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.

Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.

97 Invalid for control variable Недопустимая управляющая переменная оператора for Управляющая переменная оператора for должна быть переменной перечисляемого типа, определенной в разделе описаний текущей подпрограммы. 98 Integer variable expected Нужна переменная целого типа Предшествующая переменная должна иметь тип integer. 99 Files are not allowed here Здесь не допускаются файлы Типизированная константа не может иметь файловый тип. 100 String length mismatch Несоответствие длины Длина строковой константы не соответствует количеству элементов символьного массива. 101 Invalid ordering of fields Неверный порядок полей Поля в константе типа «запись» должны указываться в порядке их описания. 102 String constant expected Нужна константа строкового типа 103 Integer or real variable expected Нужна переменная типа integer или real Предшествующая переменная должна иметь целый или вещественный тип. 104 Character expression Ожидается символьные выражения 105 Compilation aborted Компиляция прервана 106 Error in statement Ошибка в операторе 107 Error in type Ошибка в типе 108 Expected Ожидается имя 109 Invalid floating point operation Неправильная операция для вещественных операндов 110 Ordinal variable expected Ожидается переменная целого или символьного типа 111 Too many symbols Слишком много символов 112 Undefined type Неопределенный тип 113 Abnormal program termination Ненормальное окончание программы 114 Ctrl-Break to quit нажмите CTRL и Break для входа 115 Disk is write-protected Диск защищен от записи 116 Disk read error Ошибка записи на диск 117 Disk write error Ошибка записи на диск 118 Drive not ready дисковод не готов (нет дискеты) 119 Error on execute Ошибка исполнения 120 Floating point overflow Вещественное переполнение 121 Hardware failure Ошибка оборудования 122 Heap overflow error Не хватает основной памяти 123 I/O checking Ошибка ввода/вывода 124 Invalid Breakpoint Неправильная точка останова 125 Invalid format specifier Неправильный формат 126 No debug info Не задана информация для отладки 127 Not enough memory Не хватает памяти 128 Press any key Нажмите любую клавишу 129 Program terminated Исполнение программы прекращено 130 Range check error Выход индекса за пределы массива 131 Runtime error Ошибка во время исполнения 132 Stack overflow error Ошибка по переполнению стека 133 Too many breakpoints Слишком много точек останова 134 Type EXIT to return to Turbo Pascal Введите Exit для возврата в Турбо Паскаль 135 User Break Пользователь прервал исполнение программы

Источник

Это архив, который содержит саму практическую работу, дополнительное задание № 4 (для сильных классов) и верное решение всех программ.

Просмотр содержимого документа

«ПР ОШИБКИ»

Практическая работа:

«Поиск и исправление ошибок в программах. Одномерные массивы»

№ 1 Дан линейный массив размерности п действительных чисел. Подсчитать сколько в нём отрицательных, положительных и нулевых элементов.

program line 1;

useс crt;

const n1=100;

var a:array[1..n] of real;

i, n,kpol, kotr, kzero: integer;

begin

writeln (‘введите размерность вашего массива’);

readln(n);

randoize;

textColor(4);

for i:= to n do

begin

a[i]:=randon(100)-50;

if (a[i]or (a[i]30) a[i]:=0;

write(a[i],’ ‘);

end;

writeln;

textColor(2);

kpol:=0;

kotr:=0;

kzero:=0;

for i:=1 to n do

if a[i]000 then kpol:=kpol+1 else

if a[i]then kotr:=kotr+1 else kzero:=kzero+1;

writeln

textColor(3);

writeln(‘количество положительных элементов =’, kol);

textColor(4);

writeln(‘количество отрицательных элементов =’, kotr);

textColor(5);

writeln(‘количество нулевых элементов =’, kzero);

end

№ 2 Дан линейный массив размерности 20 действительных чисел. Выдать на экране новый массив, сформированный из положительных элементов первоначального массива.

program masiv1;

uses crt;

var i;integer;

m:array [0..100] of real;

begin

randomize;

textColor(4);

writeln (‘ваш массив)‘;

textColor(3);

for i:=1 to 20

begin;

m[i]:=random(20)-10;

write([i],’ )‘;

end;

writelne;

textColor(5);

writeln (‘ваш новый массив‘);

textColor(10);

for i:=1 to do

begin

if m[i]0 write (m[i],’ ‘);

end.

№ 3 Дана последовательность п чисел. Указать наименьшую длину числовой оси, содержащую все эти числа.

program masiv_dlina;

uses crt;

var i,n:real;

m:array [0..100] of real;

dlina, min, max:real;

begin

writeln (‘введите размерность вашего массива’)

readln(n);

randomize;

textColor(1);

writeln(‘ваш массив‘);

for i:=1 n do

m[i]:=random(100)-50;

write(m[i]:6:1,’ ‘);

end;

writeln;

min:=m[1];

max:=m[1];

for i:=1 to n do;

if m[i]max then max:=m[i] else if m[i]then min:=m[i];

dlina:=abs(min-max)

writeln;

textColor(5);

writeln(‘наименьший элемент =’,min);

writeln(‘наибольший элемент =’,max);

writeln;

textColor(3);

writeln(‘длина отрезка =’,dlina);

Просмотр содержимого документа

«ПР Поиск ошибок ОДНОМЕРНЫЕ массивы»

Практическая работа:

«Поиск и исправление ошибок в программах. Одномерные массивы»

program line1;

uses crt;

const n1=100;

var a:array[1..n1] of real;

i, n,kpol, kotr, kzero: integer;

begin

writeln (‘введите размерность вашего массива’);

readln(n);

randomize;

textColor(4);

for i:=1 to n do

begin

a[i]:=random(100)-50;

if (a[i]or (a[i]30) then a[i]:=0;

write(a[i],’ ‘);

end;

writeln;

textColor(2);

kpol:=0;

kotr:=0;

kzero:=0;

for i:=1 to n do

if a[i]0 then kpol:=kpol+1 else

if a[i]then kotr:=kotr+1 else kzero:=kzero+1;

writeln;

textColor(3);

writeln(‘количество положительных элементов =’, kpol);

textColor(4);

writeln(‘количество отрицательных элементов =’, kotr);

textColor(5);

writeln(‘количество нулевых элементов =’, kzero);

end.

program masiv1;

uses crt;

var i:integer;

m:array [0..100] of real;

begin

randomize;

textColor(4);

writeln (‘ваш массив‘);

textColor(3);

for i:=1 to 20 do

begin

m[i]:=random(20)-10;

write(m[i],’ ‘);

end;

writeln;

textColor(5);

writeln (‘ваш новый массив‘);

textColor(10);

for i:=1 to 20 do

begin

if m[i]0 then write (m[i],’ ‘);

end;

end.

№ 3 Дана последовательность п чисел. Указать наименьшую длину числовой оси, содержащую все эти числа.

program masiv_dlina;

uses crt;

var i,n:integer;

m:array [0..100] of real;

dlina, min, max:real;

begin

writeln (‘введите размерность вашего массива‘);

readln(n);

randomize;

textColor(1);

writeln(‘ваш массив‘);

for i:=1 to n do

begin

m[i]:=random(100)-50;

write(m[i]:6:1,’ ‘);

end;

writeln;

min:=m[1];

max:=m[1];

for i:=1 to n do

if m[i]max then max:=m[i] else if m[i]then min:=m[i];

dlina:=abs(min-max);

writeln;

textColor(5);

writeln(‘наименьший элемент =’,min);

writeln(‘наибольший элемент =’,max);

writeln;

textColor(3);

writeln(‘длина отрезка =’,dlina);

end.

№ 4 (записать на доске) Замена всех элементов массива, больших заданного числа к.

program masiv_dlina;

uses crt;

var i,k:integer;

m:array [0..100] of integer;

begin

writeln(‘введите число для необходимой замены’);

readln(k);

randomize;

textColor(1);

writeln(‘ваш массив‘);

for i:=1 to 6 do

begin

m[i]:=random(100)-50;

write(m[i],’ ‘);

end;

writeln;

textColor(5);

writeln(‘все элементы большие ‘,k,’ будут заменены на ‘,k);

writeln;

textColor(2);

writeln(‘ваш новый массив‘);

for i:=1 to 6 do

begin

if m[i]k then m[i]:=k;

write(m[i],’ ‘);

end;

end.

Просмотр содержимого документа

«задание 4 НА ЭКРАНЕ»

№ 4 (записать на доске) Замена всех элементов массива, больших заданного числа к.

program masiv dlina;

uses crt

vare i, k integer:

m: array [0..100] of integer;

begin;

writein(‘введите число для необходимой замены’)

readln(k);

randovize;

textColor (1);

writeln (‘ваш массив‘);

for i:=1 6 do

begin

m[i]=random(100)-50;

write (m[i] ‘ ‘);

end

writeln;

textColor(5);

writeln(‘все элементы большие ‘,k,’ будут заменены на ‘, k);

writeln;

textColor(2);

writel (‘ваш новый массив‘);

for i:=1 to 6

begin

if m[i]k then m[i]:=k

write(m[i],’ ‘);

end.

Источник

Попытка вывести массив не поэлементно, а целиком

const Sz = 100; 

var 
  a: array [1..Sz] of integer;
  i: integer;

begin
  read(a); // неверно: массив необходимо вводить поэлементно
end.

Использование записи a[i] вне цикла

const Sz = 10; 

var 
  a: array [1..Sz] of integer;
  i: integer;

begin
  var N := Sz;
  for i:=1 to N do 
    a[i] := Random(100);
  a[i] := 666; // Ошибка: переменной i нельзя пользоваться вне цикла for  
end.

Выход за границы диапазона изменения индекса

const Sz = 10; 

var a: array [1..Sz] of integer;

begin
  var N := Sz;
  for var i:=1 to N+1 do 
    a[i] := Random(100); // При i=N+1 происходит ошибка: индекс вне границ массива
end.

Затирание элементов при сдвиге

const Sz = 100; 

var a: array [1..Sz] of integer;

begin
  var N := 10;
  for var i:=1 to N do 
    a[i] := Random(100); 
  for var i:=1 to N do 
    write(a[i],' ');
  writeln;
  for var i:=1 to N-1 do // ошибка: алгоритм сдвига вправо надо начинать с конца
    a[i+1] := a[i];
  for var i:=1 to N do 
    write(a[i],' ');
end.

Ссылки

Программы для начинающих
Сайт PascalABC.NET: Программы и алгоритмы для начинающих

Источник

Выдаёт ошибку: массив имеет другое количество размерностей! Как исправить??

Как решить проблему «Массив имеет другое количество размерностей» в Паскале

Причины ошибки «Массив имеет другое количество размерностей»

Как определить и исправить ошибку «Массив имеет другое количество размерностей»

Как избежать ошибки «Массив имеет другое количество размерностей» в Паскале

Примеры ошибки «Массив имеет другое количество размерностей» и их решение в Паскале

Полезные советы по работе с массивами в Паскале, чтобы избежать ошибки «Массив имеет другое количество размерностей»

Просмотр содержимого документа «ПР ОШИБКИ»

Просмотр содержимого документа «ПР Поиск ошибок ОДНОМЕРНЫЕ массивы»

Просмотр содержимого документа «задание 4 НА ЭКРАНЕ»

Попытка вывести массив не поэлементно, а целиком

Использование записи a[i] вне цикла

Выход за границы диапазона изменения индекса

Затирание элементов при сдвиге

Ссылки

Просмотр содержимого документа

«ПР ОШИБКИ»

Просмотр содержимого документа

«ПР Поиск ошибок ОДНОМЕРНЫЕ массивы»

Просмотр содержимого документа

«задание 4 НА ЭКРАНЕ»