Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Teoria_Algoritmizatsia.docx
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
334.07 Кб
Скачать

Лабораторная работа №18. Создание одномерных массивов

Цель: Изучить правила создания одномерных массивов и использование их при решении задач.

Пояснения к работе

Одномерный массив – это фиксированное количество элементов одного и того же типа, объединенных одним именем, где каждый элемент имеет свой номер.

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

  1. Const n1=5; n2=30; {где n1 – номер первого элемента, а n2 – номер последнего элемента}.

Type Myarray = Array [n1..n2] Of Integer;

Var A: Myarray;

  1. Const n=30; {n – это количество элементов массива}

Type Myarray = Array [1..n] Of Integer;

Var A: Myarray;

  1. 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

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]