
- •Лабораторная работа №18. Создание одномерных массивов
- •Пояснения к работе
- •Лабораторная работа №19. Создание одномерных массивов
- •Пояснения к работе
- •Лабораторная работа №20. Создание одномерных массивов
- •Пояснения к работе
- •Лабораторная работа №22. Удаление элементов массива
- •Пояснения к работе
- •Лабораторная работа №21. Перестановка элементов массива
- •Пояснения к работе
- •Лабораторная работа №23. Сортировка массивов
- •Пояснения к работе
- •Лабораторная работа №24. Сортировка массивов
- •Пояснения к работе
- •Лабораторная работа №25. Сортировка массивов
- •Пояснения к работе
Лабораторная работа №18. Создание одномерных массивов
Цель: Изучить правила создания одномерных массивов и использование их при решении задач.
Пояснения к работе
Одномерный массив – это фиксированное количество элементов одного и того же типа, объединенных одним именем, где каждый элемент имеет свой номер.
Описание массива:
Const n1=5; n2=30; {где n1 – номер первого элемента, а n2 – номер последнего элемента}.
Type Myarray = Array [n1..n2] Of Integer;
Var A: Myarray;
Const n=30; {n – это количество элементов массива}
Type Myarray = Array [1..n] Of Integer;
Var A: Myarray;
Var A: Аrray [1..n] Of Integer;
{Myarray – это имя нового типа;}
{Аrray – служебное слово в переводе с английского означает “массив”, “набор”; Of – служебное слово в переводе с английского “из”};
Так как каждый элемент имеет свой номер, то к каждому можно обращаться
непосредственно. Для того, чтобы обратиться к і-му элементу этого массива, необходимо
записать:
А[i] - сначала имя массива, а в квадратных скобках указывается номер элемента, к
которому обращаемся. Например, обращение к первому элементу массива А — А[1], а к
пятому — А[5].
файла.
program Laba; Uses crt;
const n=3;
type mas=array [1..n] of integer;
vara,b:mas;
Procedure Init(var z:mas);
vari:byte;
begin
for i:=1 to n do
Readln(z[i]);end;
Procedure Print(z:mas);
vari:byte;
begin
for i:=1 to n do
Write('[',i,']=',z[i],' ');
Writeln(i);
end; Procedure Maximum(z:mas);
vari:byte;j:integer;
begin
j:=z[1];
for i:=2 to n do
if z[i]>j then
j:=z[i];
Writeln('Максимальный: ',j);
end;
Procedure Min(z:mas);
vari:byte;j,k:integer;
begin
j:=z[1];
for i:=2 to n do
if z[i]<j then begin
j:=z[i];k:=i;
end;
Writeln('минимальный ',j);
end;
begin CLRSCR;
Writeln(' Массив a:');
Init(a);Print(a);Maximum(a);
Writeln(' Массив b:');
Init(b);
Print(b);Min(b);
end.
Лабораторная работа №19. Создание одномерных массивов
Цель: Изучить правила работы с элементами двумерного массива.
Пояснения к работе
Массивы, положение элементов в которых описывается двумя индексами, называется двумерными. Их можно представить в виде прямоугольной таблиц или матрицы.
Номер элемента состоит из двух чисел – номера строки, в которой находится элемент, и номера столбца.
Описание массива:
Способ 1. В Паскале двумерный массив можно описать как одномерный, элементами которого являются одномерные массивы. Например:
Const n=2; m=3;
Type odarray = Array [1..m] Of <тип элементов>;
dvarray = Array [1..n] Of odarray;
Var v: odarray;
a: dvarray;
Способ 2. Описание массива, исключив определение типа odmyarray в определении типа dvarray:
Const n=2; m=3;
Type dvarray = Array [1..n] Of Array [1..m] Of <тип элементов>;
Var a: dvarray;
Способ 3. Указывая имя массива и диапазоны индексов для каждой размерности массива:
Const n=2; m=3;
Type dvarray = Array [1..n, 1..m] Of <тип элементов>;
Var a: dvarray;
Способ 4. Объявление массива в разделе описания переменных:
Var a: Array [1..n, 1..m] Of <тип элементов>;
2)program Laba19;
uses crt; const n=3;
Type omas=array [-15..10] of integer;
var a:omas; k,b:integer; C,D:integer;
procedure init (var z:omas);
var i:byte;
begin
for i:=1 to n do
z[i]:=-10+random(26);
end;
procedure Print (z:omas);
var i:byte;
begin
for i:=1 to n do
write ('z[',i,']=',Z[i],' ');
writeln;
end;
procedure pro (z:omas);
var i:byte;
begin
for i:=1 to n do
if (i mod 2)=0 then z[i]:=z[i]+C else z[i]:=z[i]-D;
for i:=1 to n do write(z[i],' ');
end; var i:byte;
begin
CLRSCR;
randomize;
Init(a);Print(a);
Writeln('введите А и В ');
readln(C,D);
for i:=1 to n do
Write('[',i,']=',a[i],' ');
Writeln; pro(a);
end.
Рисунок 1 – задача 1