Массив имеет другое количество размерностей паскаль ошибка - Ремонт и установка крупной бытовой техники

Jim93

0 / 0 / 0

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

Сообщений: 9

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

08.05.2011, 00:34. Показов 9462. Ответов 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

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

64288 / 47587 / 32739

Регистрация: 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.

Источник

как исправить ошибку помечу в проге
program tre;
const n=5;
var A:array [1..n] of byte;
x,y: byte;
begin
writeln;
for x:=1 to n do
begin
for y:= 1 to n do
if x>=y
then A[x,y]:=0 -(Массив имеет другое количество размерностей. что не так? )
else A[x,y]:=1
write (A[x,y]);
end;
end.

задача состоит в том чтобы вывести на экран вот такую картинку
01111
00111
00011
00001
00000

Источник

На занятии объясняется, как работать с одномерными массивами в Паскале, как использовать генератор случайных чисел — функцию random в Паскале. Рассматривается пример того, как вывести числа Фибоначчи

Материалы сайта labs-org.ru направлены на практическое освоение языка программирования Pascal. Краткие теоретические сведения не претендуют на полное освещение материала по теме; необходимую информацию можно найти в сети Интернет в большом количестве. В наши же задачи входит предоставление возможности получения практических навыков программирования на Паскале. Решенные наглядные примеры и задания изложены по мере увеличения их сложности, что позволит с легкостью изучить материал с нуля.

Содержание:

Одномерные массивы в Паскале
- Объявление массива
- Инициализация массива
- Вывод элементов массива
- Динамические массивы (pascalAbc.Net)
- Функция Random в Pascal
- Числа Фибоначчи в Паскале
- Максимальный (минимальный) элемент массива
- Поиск в массиве
- Циклический сдвиг
- Перестановка элементов в массиве
- Выбор элементов и сохранение в другой массив
- Сортировка элементов массива

Одномерные массивы в Паскале

Объявление массива

Массивы в Паскале используются двух типов: одномерные и двумерные.
Определение одномерного массива в Паскале звучит так: одномерный массив — это определенное количество элементов, относящихся к одному и тому же типу данных, которые имеют одно имя, и каждый элемент имеет свой индекс — порядковый номер.
Описание массива в Паскале (объявление) и обращение к его элементам происходит следующим образом:

Описание массива в Паскале

Объявление массива

var dlina: array [1..3] of integer; begin dlina[1]:=500; dlina[2]:=400; dlina[3]:=150; ...

dlina — идентификатор (имя) массива;

для объявления используется служебное слово Array (в переводе с англ. «массив» или «набор»);

[1..3] — в квадратных скобках ставится номер (индекс) первого элемента, затем две точки и индекс последнего элемента массива, т.е. по сути, указывается количество элементов; количество элементов массива называется размерностью массива

of integer (с англ. «из целых чисел») — указывает, к какому типу относится массив, of здесь — служебное слово.

Объявить размер можно через константу:

размер массива через константу

Инициализация массива

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

const a:array[1..4] of integer = (1, 3, 2, 5);

Заполнение последовательными числами:
заполнение массива

Результат:
A[1] = 8, A[2] = 9, A[3] = 10, ..., A[N] = A[N-1] + 1

Ввод с клавиатуры:

Пример: Рассмотрим, как происходит ввод массива в Паскале:

writeln ('введите кол-во элементов: '); readln(n); {если кол-во заранее не известно, - запрашиваем его} for i := 1 to n do begin write('a[', i, ']='); read(a[i]); ... end; ...

ввод массива с клавиатуры
✍ Пример результата:

введите кол-во элементов: 3 a[1]=5 a[2]=7 a[3]=4

Вывод элементов массива

Пример: Рассмотрим, как вывести массив в Паскале:

1 2 3 4 5 6 7 8 9 10 11 12 13

var a: array[1..5] of integer; {массив из пяти элементов} i: integer; begin a[1]:=2; a[2]:=4; a[3]:=8; a[4]:=6; a[5]:=3; writeln('Массив A:'); for i := 1 to 5 do write(a[i]:2); {вывод элементов массива} end.

✍ Пример результата:

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

Задача Array 0. Необходимо задать вещественный массив размерностью 6 (т.е. из шести элементов); заполнить массив вводимыми значениями и вывести элементы на экран. Использовать два цикла: первый — для ввода элементов, второй — для вывода.

Пример результата:

введите элемент массива: 3.0
введите элемент массива: 0.8
введите элемент массива: 0.56
введите элемент массива: 4.3
введите элемент массива: 23.8
введите элемент массива: 0.7
Массив =  3, 0.8, 0.56, 4.3, 23.8, 0.7

[Название файла: taskArray0.pas]

В данном примере работы с одномерным массивом есть явное неудобство: присваивание значений элементам.

Обработка массивов в Паскале, так же как и заполнение массива, происходит обычно с использованием цикла for.

Динамические массивы (pascalAbc.Net)

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

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

Имеется возможность корректировки размера динамического массива как в сторону его уменьшения, так и в сторону увеличения.

Объявление:

var a: array of integer; var n:=readInteger; a:=new integer[n]; // инициализация, выделение памяти для элементов массива

или:

var a: array of integer; var n:=readInteger; SetLength(a,n); // устанавливаем размер

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

procedure p(a: array of integer);

Созданные элементы сразу получают начальное значение, равное нулевому значению соответствующего типа: для чисел это целый или вещественный нуль, для символов — символ с кодом 0, для строк и других ссылочных типов данных — нулевая ссылка nil

Объявление и инициализация массива:

Пример:

begin var a: array of integer; a := new integer[3]; a[0] := 5; a[1] := 2; a[2] := 3; end.

или в одну строку:

begin var a: array of integer; a := new integer[3](5,2,3); print(a) end.

или короткая запись:

var a:=Arr(1,2,3);// по правой части - integer

Элементы динамического массива всегда индексируются от 0.

Ввод элементов:

Пример:

var a:=ReadArrInteger(5); // ввод пяти целых var a:=ReadArrReal(5); // ввод пяти вещественных

Функции генерации массивов:

1. ArrFill :

var a := ArrFill(10, 1); // массив из 10 целых чисел, равных 1

2. ArrGen :

var a := ArrGen(ReadInteger, 1, e -> e + 2); // массив, состоящий из n первых положительных нечетных чисел a.Print;

Проход по элементам массива:

Пример:

for var i:=0 to a.Length-1 do a[i] += 1;

или:

for var i := 0 to a.High do a[i] += 1;

Проход по элементам (только для чтения):
Пример:

foreach var x in a do Print(x)

Размер динамического массива (т. е. количество его элементов) можно определить с помощью его свойства Length

Для динамического массива определены еще два свойства: Low и High, определяющие соответственно нижнюю и верхнюю границу диапазона изменения индекса. Свойство a.Low всегда возвращает 0, а свойство a.High определяется как a.High = a.Length – 1

Простой вывод элементов:

Writeln(a); // пример вывода: [1,5,3,13,20]

или метод массива Print:

a.Print; // пример вывода: 1 5 3 13 20 a.PrintLines; // каждый элемент с новой строки

Функция Random в Pascal

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

Для генерации чисел от 0 до n (не включая само значение n, целые числа в интервале [0,N)) используется запись random (n).
Перед использованием функции необходимо инициализировать датчик случайных чисел с помощью процедуры randomize.

Диапазон в Паскале тех самых случайных чисел от a до b задается формулой:

Пример: Заполнение массива случайными числами в Pascal:

1 2 3 4 5 6 7 8 9 10

var f: array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do begin f[i]:=random(10); { интервал [0,9] } write(f[i],' '); end; end.

✍ Пример результата:

Для вещественных чисел в интервале [0,1):

var x: real; ... x := random(0.0,1.0);; { интервал [0,1), т.е. единица не включена }

PascalABC.NET:

Сгенерированный случайным образом кортеж из двух (Random2), либо из трех (Random3) элементов:

var (a, b, c) := Random3(10.0, 20.0); // диапазон [10, 20) write(a:0:2,' ',b:0:2,' ', c:0:2) // 14.73 18.63 19.72

Массив из 10 сгенерированных случайным образом целых чисел в диапазоне [0;99]:

Пример:

var a:=arrRandomInteger(10);

или с дополнительными параметрами (диапазон [5;15]):

var a:=arrRandomInteger(10,5,15);

Задача Array 1. Необходимо задать массив размерностью 5, заполнить массив случайными числами в интервале [-1,1] и вывести элементы на экран: определить три позиции для вывода каждого элемента, с двумя знаками после запятой.

Пример результата:

Массив =  0.22 0.00 -0.69 -0.35 -0.11

[Название файла: taskArray1.pas]

Числа Фибоначчи в Паскале

Наиболее распространенным примером работы с массивом является вывод ряда чисел Фибоначчи в Паскаль. Рассмотрим его.

Пример: Ряд чисел Фибоначчи: 1 1 2 3 5 8 13…

f[0]:=1; f[1]:=1; f[2]:=2; …
или
f[2]:=f[0]+f[1]; f[3]:=f[1]+f[2];
или

Получили формулу элементов ряда.

Пример: Вычислить и распечатать первые 20 чисел Фибоначчи.

1 2 3 4 5 6 7 8 9 10 11

var i:integer; f:array[0..19]of integer; begin f[0]:=1; f[1]:=1; for i:=2 to 19 do begin f[i]:=f[i-1]+f[i-2]; writeln(f[i]) end; end.

На данном примере, становится понятен принцип работы с числовыми рядами. Обычно, для вывода числового ряда находится формула определения каждого элемента данного ряда. Так, в случае с числами Фибоначчи, эта формула-правило выглядит как f[i]:=f[i-1]+f[i-2]. Поэтому ее необходимо использовать в цикле for при формировании элементов массива.

Задача Array 2. Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]

Пример результата:

Массив = 2 0 4 29 3 11 26 11 9 4 mas[1] + mas[2] + mas[3] = 6 mas[2] + mas[3] + mas[4] = 33 mas[3] + mas[4] + mas[5] = 36 mas[4] + mas[5] + mas[6] = 43 mas[5] + mas[6] + mas[7] = 40 mas[6] + mas[7] + mas[8] = 48 mas[7] + mas[8] + mas[9] = 46 mas[8] + mas[9] + mas[10] = 24

[Название файла: taskArray2.pas]

Задача Array 3. Написать программу решения задачи о печати ряда чисел 2 4 8 16 32 ... 512; для заполнения массива использовать цикл Repeat
[Название файла: taskArray3.pas]

Максимальный (минимальный) элемент массива

Псевдокод:
Максимальный (минимальный) элемент массива

Поиск максимального элемента по его индексу:
максимальный элемент по номеру

PascalABC.NET:

Минимальный элемент и его индекс:

Решение 1:

 // … var (min, minind) := (a[0], 0); for var i:=1 to a.Length-1 do if a[i]<min then (min, minind) := (a[i], i); Result := (min, minind);

Решение 2:

 // … var (min, minind) := (real.MaxValue, 0); for var i:=0 to a.Length-1 do if a[i]<min then (min, minind) := (a[i], i); Result := (min, minind);

Решение 3:

begin var a := new integer[5]; a := arrRandomInteger(5); // [86,37,41,45,76]  print(a.Min,a.IndexMin); // 37 1 end.

Задача Array_min: Найдите минимальный элемент массива. Выведите элемент и его индекс.

Пример результата:

9 5 4 22 23 7 3 16 16 8 
Минимальный элемент массива A[7]=3

[Название файла: taskArray_min.pas]

Задача Array 4. Дан массив из 10 целочисленных элементов. Найти количество отрицательных и вывести количество на экран.

Пример результата:

3 4 6 -1 6 -2 1 5 0 1 Количество отрицательных элементов: 2

[Название файла: taskArray4.pas]

Задача Array 5. Найти минимальное и максимальное из n введенных чисел (массива). Определить расстояние между этими элементами.

3 2 6 1 3 4 7 2 >>> min=1, max=7, distance=3

[Название файла: taskArray5.pas]

Задача Array 6. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K.

N=4
mas: 8 9 2 5
>>> 2 8 количество= 2

[Название файла: taskArray6.pas]

Задача Array 7. Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера.

Пример:

Исходный массив: 4 -5 10 -10 5 максимальные A[3]=10, A[5]=5

[Название файла: taskArray7.pas]

Поиск в массиве

Рассмотрим сложный пример работы с одномерными массивами:

Пример: Дан массив из 10 чисел. Определить, есть ли в массиве число, введенное пользователем. Если есть – выводить «найдено», если нет – «не найдено».
Сложность задания заключается в том, что выводить слова «найдено» или «не найдено» необходимо один раз.

Для решения поставленной задачи понадобится оператор break — выход из цикла.
Решение Вариант 1. Цикл for:

PascalABC.NET:

Cтандартные методы a.IndexOf(x) и a.LastIndexOf(x):

begin var a := new integer[10]; a := arrRandomInteger(5,0,5); //[1,3,5,4,5]  print(a.IndexOf(3)) // 1 end.

или метод a.Contains(x) наравне с x in a:

begin var a := new integer[10]; a := arrRandomInteger(5,0,5); //[1,3,5,4,5]  print(a.Contains(3)); // True print(3 in a)// True end.

Рассмотрим эффективное решение:

Задача: найти в массиве элемент, равный X, или установить, что его нет.

Алгоритм:

начать с 1-го элемента (i:=1);
если очередной элемент (A[i]) равен X, то закончить поиск иначе перейти к следующему элементу.

решение на Паскале Вариант 2. Цикл While:

Поиск элемента в массиве

Предлагаем посмотреть подробный видео разбор поиска элемента в массиве (эффективный алгоритм):

Задача Array 8. Заполнить массив из 10 элементов случайными числами в интервале [0..4] и вывести номера всех элементов, равных X.

Пример:

 Исходный массив: 4 0 1 2 0 1 3 4 1 0 Что ищем? 0 A[2], A[5], A[10]

[Название файла: taskArray8.pas]

Циклический сдвиг

Пример: сдвинуть элементы массива влево на 1 позицию, первый элемент становится на место последнего.
циклический сдвиг

Решение:

Алгоритм:
A[1]:=A[2]; A[2]:=A[3];… A[N-1]:=A[N];

Программа:
сдвиг элементов массива

PascalABC.NET:

Циклический сдвиг влево:

 // … var v := a[0]; for var i:=0 to a.Length-2 do a[i] := a[i+1]; a[a.Length-1] := v;

Циклический сдвиг вправо:

 // … var v := a[a.Length-1]; for var i:=a.Length-1 downto 1 do a[i] := a[i-1]; a[0] := v;

Задача Array 9. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента.
Пример:

Исходный массив:
4  -5   3  10  -4  -6   8 -10  1  0
Результат:
4   3  10  -4  -6   8 -10   1  0 -5

[Название файла: taskArray9.pas]

Перестановка элементов в массиве

Рассмотрим, как происходит перестановка или реверс массива.

Пример: переставить элементы массива в обратном порядке
реверс массива

Решение:

Алгоритм:
алгоритм перестановки элементов массива

Псевдокод:

Программа:
перестановка элементов массива

PascalABC.NET:

Перестановка (ревёрс):

Решение 1:

begin var a: array of integer := (1,3,5,7); var n := a.Length; for var i:=0 to n div 2 - 1 do Swap(a[i],a[n-i-1]); End.

Решение 2 (стандартная процедура Reverse()):

begin var a:=new integer[10]; a:=arrRandomInteger(10); print(a);// [41,81,84,63,12,26,88,25,36,72]  Reverse(a); print(a) //[72,36,25,88,26,12,63,84,81,41]  end.

Задача Array 10. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и сделать реверс всех элементов, кроме последнего.
Пример:

 Исходный массив: -5 3 10 -4 -6 8 -10 1 0 4 Результат: 0 1 -10 8 -6 -4 10 3 -5 4

[Название файла: taskArray10.pas]

Выбор элементов и сохранение в другой массив

Пример: найти в массиве элементы, удовлетворяющие некоторому условию (например, отрицательные), и скопировать их в другой массив
выбор элементов массива

Решение:

Решение: подсчитывать количество найденных элементов с помощью счетчика count, очередной элемент устанавливать на место B[count]. Переменой count необходимо присвоить 1.

сохранение элементов массива в другой
Вывод массива B:

writeln('Выбранные элементы'); for i:=1 to count-1 do write(B[i], ' ')

PascalABC.NET:

Процедура SetLength():

// ... for var i := 0 to a.length - 1 do if a[i] < 0 then begin b[j] := a[i]; j += 1; end; SetLength(b, j);

Задача Array 11. Заполнить массив случайными числами в интервале [20,100] и записать в другой массив все числа, которые оканчиваются на 0.
Пример:

 Исходный массив: 40 57 30 71 84 Заканчиваются на 0: 40 30

[Название файла: taskArray11.pas]

Сортировка элементов массива

Сортировка методом «Пузырька»

В таком типе сортировок массив представляется в виде воды, маленькие элементы — пузырьки в воде, которые всплывают наверх (самые легкие).
При первой итерации цикла элементы массива попарно сравниваются между собой:предпоследний с последним, пред предпоследний с предпоследним и т.д. Если предшествующий элемент оказывается больше последующего, то производится их обмен.
При второй итерации цикла нет надобности сравнивать последний элемент с предпоследним. Последний элемент уже стоит на своем месте, он самый большой. Значит, число сравнений будет на одно меньше. То же самое касается каждой последующей итерации.

сортировка методом пузырька

Pascal

PascalABC.NET

1 2 3 4 5 6 7 8

for i:=1 to N-1 do begin for j:=N-1 downto i do if A[j] > A[j+1] then begin с := A[j]; A[j] := A[j+1]; A[j+1] := с; end; end;

1 2 3 4

for var i := 0 to arr.High - 1 do for var j := arr.High - 1 downto i do if arr[j] > arr[j + 1] then Swap(arr[j], arr[j + 1]);

Задача Array 12. Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину массива по возрастанию, а вторую – по убыванию (методом ‘Пузырька’).

Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 13 14 25 30 76 97 58 41 32 11

[Название файла: taskArray12.pas]

Сортировка методом выбора

в массиве ищется минимальный элемент и ставится на первое место (меняется местами с A[1]);
среди оставшихся элементов также производится поиск минимального, который ставится на второе место (меняется местами с A[2]) и т.д.

сортировка методом вставки

Pascal

PascalABC.NET

1 2 3 4 5 6 7 8 9 10

for i := 1 to N-1 do begin min:= i ; for j:= i+1 to N do if A[j] < A[min] then min:=j; if min <> i then begin c:=A[i]; A[i]:=A[min]; A[min]:=c; end; end;

1 2 3 4 5 6 7 8

for var i := 0 to a.High-1 do begin var (min,imin) := (a[i],i); for var j := i + 1 to a.High do if a[j] < min then (min,imin) := (a[j],j); Swap(a[imin],a[i]); end;

Задача Array 13: Заполнить массив из 10 элементов случайными числами в интервале [0..50] и отсортировать его по возрастанию суммы цифр

Пример: Исходный массив: 14 25 13 12 76 58 21 87 10 98 Результат: 10 21 12 13 14 25 76 58 87 98

[Название файла: taskArray13.pas]

PascalABC.NET:

Стандартная процедура sort():

Sort(a); SortByDescending(a);

Быстрая сортировка или quick sort

Алгоритм:

Выбирается и запоминается средний элемент массива (присвоим X):

Инициализируем две переменные (будущие индексы массива): L:=1, R:=N (N — количество элементов).
Увеличиваем L и ищем первый элемент A[L], который больше либо равен X (в итоге он должен находиться справа).
Уменьшаем R и ищем элемент A[R], который меньше либо равен X (в итоге он должен находиться слева).
Смотрим, если L<=R, то меняем местами A[L] и A[R], возвращаемся к пункту 3.

быстрая сортировка паскаль

Выполнение на Паскале:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure QSort ( first, last: integer); var L, R, c, X: integer; begin if first < last then begin X:= A[(first + last) div 2]; L:= first; R:= last; while L <= R do begin while A[L] < X do L:= L + 1; while A[R] > X do R:= R - 1; if L <= R then begin c:= A[L]; A[L]:= A[R]; A[R]:= c; L:= L + 1; R:= R - 1; end; end; QSort(first, R); QSort(L, last); end; end.

Задача Array 14:
Заполнить массив из 10 элементов случайными числами в интервале [-50..50] и отсортировать его с помощью алгоритма быстрой сортировки.

[Название файла: taskArray14.pas]

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

Описание массива в Паскале

Что такое массив? Это ячейки памяти с однотипными данными, расположенные последовательно.

Что такое массив

Каждая ячейка имеет номер, т. е. индекс, но все они находятся под общим названием переменной. Индекс ячейки указывает на ее компоненты, которые там находятся.

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

Другими словами, массив – это компоненты одного вида, собранные в ячейках под общей переменной.

Ячейка становится его динамичной частью. Она нумеруется, и при заполнении порядковый номер каждого элемента становится ее индексом.

Например:

А[1..10] – массив с именем А и размером 10;
ST[1..R], R = 7 – массив с именем ST, состоящий из 7 элементов.

Прежде чем использовать массив, его нужно описать.

Описание массива

Вот примерная схема:

var<имя массива>: array [<мин_знач_индекса>макс_знач_индекса>] of<тип_элементов>;

Например: var a: array [1 .. 10] of integer.

Вместо того, чтобы объявлять отдельные переменные, такие как N^o1, N^o2, … и N^o100, вы задаете только одну переменную. Определенный компонент в хранилище доступен по индексу.

Самый низкий адрес имеет первый компонент, а самый высокий адрес – последний.

Количество компонентов может быть разным.

Одномерные массивы

Массивы, компоненты которого определяются одним индексом, называются одномерными. Это может быть список группы, полка с книгами, телефонный справочник.

Он может иметь как минимальный диапазон элементов, так и максимальный.

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

Пример ввода одномерного массива в Паскале:

Ввод одномерного массива в Паскаль

Двумерные и многомерные массивы

Размерность массивом может быть разной.

Двумерные хранилища и многомерные – это наборы, в которых хранятся переменные во втором или n-м измерении, имеющие n * m мест хранения.

Размерные матрицы Mutli, включая 2-мерный набор, объявляются с использованием нескольких квадратных скобок, расположенных рядом друг с другом, или с использованием запятых с квадратными скобками в качестве альтернативы.

Двумерный массив можно рассматривать как прямоугольную сетку с двумя индексами, один из которых задает строку, а другой – столбец.

Пример двумерного массива

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

В Паскале эта декларация записывается как единый блок:

TYPE DayType = INTEGER;

DayNames = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);

WeekType = ARRAY [DayNames] OF DayType;

MonthType = ARRAY [1..6] OF WeekType;

Тип MonthType также может быть записан как:

TYPE MonthType = ARRAY [1..6] OF

ARRAY [DayNames] OF DayType;

Можно записать с использованием ярлыка, как:

Тип MonthType = ARRAY [1..6, DayNames] OF DayType;

DayNames = (Вс,Пн,Вт,Ср,Чт,Пт,Сб);

WeekType = ARRAY [DayNames] OF DayType;

MonthType = ARRAY [1..6] OF WeekType;

Другой пример двумерного массива в Pascal:

Задание двумерного массива

Как задать массив в Паскале

Ввод

Массивы применяются в качестве обычных матриц для сбора и хранения типизированных компонентов.

Ввести его можно с клавиатуры, вручную, набирая каждый элемент, или использовать циклы: For i:=1 to 20 do read (a[ i ]);

В приведенном ниже примере показано, как вводить набор «a», который состоит из 10 случайных чисел в диапазоне от 0 до 99. Он называется рандомным.

Реализуется он с помощью функции Random:

For i:=1 to 10 do a[ i ]:=random(100);

Вывод, ввод массива в Паскале

Вывод

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

Пример: For i:=1 to 10 do write (a[ i ], ‘ ‘);

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

Заключение

Итак, задача матрицы – ускорение действий. Конечно, если дело касается только 5 переменных, можно обойтись и без нее. А как быть, если речь идет о 100 или 1000 переменных. Нужно вбивать вручную каждый элемент для ввода и еще столько же для вывода?

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

Источник

Противоречие:

PROCEDURE FORM(A:MAS;N,M:integer;VAR B:MAS; VAR k,t:integer);
Из описания: принимает массив и две переменные, возвращает массив и две переменные

FORM(A1,N1,M1,B1[1],B1[2]);
а здесь предполагается: принимает массив и две переменные, а возвращает только две переменные

Предположительно должно быть так (к тому же переменные k и t в коде не задействованы):
FORM(A1,N1,M1,B1,k1,t1);

Если что-то не делает того, что вы запланировали ему делать — это еще не означает, что оно бесполезно.
———————
Прежде, чем задать вопрос — Правила :: FAQ :: Поиск

Источник

eleshka:

var a:array[0..10,1..10]of integer; i,j,imin,imax,min,max,s:integer;begin randomize; for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(199)-99; for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;s:=0; for i:=1 to 10 do if a[i,j]>0 then inc(s); writeln('S=',s); min:=a[1,1]; max:=a[1,1]; imin:=1; imax:=1; for i:=1 to 10 do for j:=1 to 10 do  begin if a[i,j]<min then begin min:=a[i,j]; imin:=i end; 	if a[i,j]>max then begin max:=a[i,j]; imax:=i end; end;writeln('imin=',imin,'  min=',min,'  imax=',imax,'  max=',max); writeln;a[0]:=a[imin]; a[imin]:=a[imax]; a[imax]:=a[0]; for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j]:4); writeln end;readln end.

P.S. Извиняюсь, заметил у себя ошибку: в 5-й строке сверху должно быть не a[i,j], а a[i,i]

Изменено 30 марта, 2010 пользователем Тролль

Источник