Обработка одномерных массивов. (Лекция 8)

Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков.

Например, в виде одномерного массива строк можно задать список студентов:
( ‘Иванов’, ‘Петров’, ‘Сидоров’, ’Песков’, ’Петренко’),
А в виде массива вещественных чисел – рост этих студентов (в см):
(178,2 172,3 200,5 185,2 169)

Размерность массива - это количество элементов в массиве.

Последовательность
(‘Иванов’ 178,2 ‘Петров’ ‘Сидоров’ 25 ’Песков’, ’Петренко’)
не может являться массивом.

Элементами массива могут быть данные любого типа.

Например, x[3] - третий элемент массива x.

Здесь <имя массива> - правильный идентификатор.

а)
var
< имя массива >: array [< нач. значение индекса >..< кон. знач. инд.>] of < тип элементов>;
Например,
var
x:array[1..20] of integer;
В памяти компьютера будет отведено место для 20 целых чисел (80 байт). Т.е. максимальная размерность массива в этом случае – 20 элементов.

Для StringGrid нужно установить значение true для опции goEditing свойства Options,

при вводе в строку для свойства ColCount установить значение, равное максимальной размерности массива, а для свойства RowCount установить значение 1;

при вводе в столбец установить значение, равное максимальной размерности массива, для свойства RowCount, а для свойства ColCount установить значение 1.

б) ввод в столбец
n:=strtoint(edit1.Text);
for i:=1 to n do
x[i]:=strtoint(stringgrid1.Cells[0,i-1]);

б) ввод в столбец
n:=strtoint(edit1.Text);
for i:=1 to n do
x[i]:=StrToFloat(stringgrid1.Cells[0,i-1]);

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
stringgrid1.ColCount:=StrToInt(edit1.text)//для ввода
//в строку
end;

б) Вывод массива целых чисел в строку:
for i:=1 to n do
stringgrid1.Cells[i-1,0]:=
IntToStr(x[i]);

Аналогично осуществляется вывод массива вещественных чисел.

Нахождение максимального и минимального элементов массива.

Реализация в программе:
k:=0;
i:=<нач. Знач.>;
while i<=n do
begin
if <условие> then
k:=k+1;
i:=i+<шаг>
end;

Реализация в программе:
S:=0;
i:=<нач. Знач.>;
while i<=n do
begin
if <условие> then
S:=S+x[i];
i:=i+<шаг>
end;

P:=1;
i:=<нач. Знач.>;
while i<=n do
begin
if <условие> then
P:=P*x[i];
i:=i+<шаг>
end;

Например, пусть задан массив
x = (-2 3 -3 1 4 -5 -1 0 2 8 -3 -7)

Заданный интервал (-3, 3].

Тогда среднее арифметическое отрицательных элементов с номерами, кратными 3, должно получиться равным
(-3 + -5 + -7) / 3= -5

Произведение элементов, не принадлежащих интервалу (-3 , 3]:
-3* 4*(-5)*8*(-3)*(-7) = 10080

A, B - границы заданного интервала;

S -сумма отрицательных элементов, стоящих на местах, кратных 3;

k -количество отрицательных элементов, стоящих на местах, кратных 3;

Sa -среднее арифметическое отрицательных элементов, стоящих на местах, кратных 3;

P -произведение элементов, не принадлежащих интервалу (A , B];

k1 –количество элементов, не принадлежащих интервалу (A , B];

BEGIN
n:=strtoint(edit1.Text);
for i:=1 to n do
x[i]:=strtoint(stringgrid1.Cells[i-1,0]);

A:=StrToFloat(Edit4.Text); B:=StrToFloat(Edit5.Text);

Например,
x = (-2 3 3 1 2 2 -1 0 2 2 -2 1)
Заданный интервал (-3, 3].

Результатом должны быть сообщения
'Нет элементов, не принадл. интервалу'
'В массиве нет отрицательных чисел с номерами, кр. 3 '

ShowMessage – стандартная процедура для вывода на экран окна с сообщением и кнопкой ОК.

ShowMessage(<сообщение>);

<сообщение> - выражение строкового типа, например, любая строковая константа – набор символов, заключенных в апострофы.

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

Max - значение максимального элемента;

Nm - номер максимального элемента;

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

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

1

2

3

Пусть имеется следующее описание переменных
var
k1,k2:integer;
x:array[1..30] of real;
z:real;

Тогда обмен местами элементов массива с номерами k1 и k2 в программе можно осуществить след. образом:

Например, пусть задан массив
x = (-2 3 -3 1 4 -5 -1 0 2 8 -3 -7)
Тогда максимальный элемент равен 8.

Массив после обмена должен принять следующий вид:
x = (-2 3 -3 1 4 -5 -1 0 8 2 -3 -7)

Например, пусть задан массив
x = (-2 3 -3 1 4 -5 -1 0 2 8 -3 -7)

Тогда максимальный элемент равен 8.

Массив после обмена должен принять следующий вид:
x = (-2 3 -3 1 4 -5 -1 0 8 2 -3 -7)

max:=x[1];
nm:=1;

for i:=2 to n do
if x[i]>max then
begin
max:=x[i]; nm:=i
end;

edit2.Text:=inttostr(max);
for i:=1 to n do
stringgrid2.Cells[i-1,0]:=Inttostr(x[i]);
end;

В результате к приложению будет добавлена пустая форма Form2 (или Form3, Form4 и т.д.) и соответствующий ей модуль Unit 2.

При этом в файл проекта будут автоматически добавлены следующие строки программы:

Unit2 in 'Unit2.pas' {Form2} в разделе подключения модулей Uses

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

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

Application.CreateForm(<имя класса>,<имя формы>);

расположить раньше операторов создания всех остальных форм.

Окна всех остальных форм появляются на экране только после обращения к методам Show или ShowModal в тексте программы:

<имя формы>. Show;
<имя формы>. ShowModal;

Например, Form2. ShowModal;

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

Это можно сделать следующим образом:

Набрать в разделе implementation предложение
Uses <имя модуля>;

Выполнить команду меню
File – Uses Unit
и выбрать в появившемся окне нужный модуль.

Попытаться запустить программу на выполнение и в ответ на сообщение Delphi нажать кнопку Yes.

Для этого на главной форме разместим кнопку BitBtn и установим для нее все необходимые свойства: Caption – Об авторе, Glyph – файл с фотографией.

Разместим на форме компонент Image (страница Additional) для вставки фотографии. Используя свойство Picture загрузим соответствующий графический файл.

Подключим модуль Unit2 к модулю Unit1. Для этого активизируем главную форму и выполним команду меню File – Uses Unit.

В результате в реализационной части (implementation) модуля Unit1 появится предложение
uses Unit2;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show
end;

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

В тексте программы при выводе результатов при обращении к визуальным компонентам новой формы нужно перед именем ВК указывать имя формы.

Обозначим
St – одномерный массив из строк, элементами которого являются фамилии студентов.
Rost - одномерный массив целых чисел, элементами которого являются соответствующие ростовые показатели студентов.
N – количество студентов.
B – одномерный массив строк, содержащий фамилии студентов из баскетбольной команды.
I – номер студента в списке.
J – количество студентов в баскетбольной команде.

i = i+1

Чтобы при изменении количества студентов автоматически изменялось бы количество строк в таблицах StringGrid1 и StringGrid2, создадим процедуру:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
Begin
stringgrid1.RowCount:=StrToInt(edit1.text);
stringgrid2.RowCount:=StrToInt(edit1.text)
end
end;

Begin
{Ввод исходных данных}
n:=strtoint(edit1.Text);
for i:=1 to n do
st[i]:=stringgrid1.Cells[0,i-1];
for i:=1 to n do
rost[i]:=strtoint(stringgrid2.Cells[0,i-1]);

{Вывод результата}
if j>0 then
begin
label2.Visible:=true;stringgrid3.Visible:=true;
stringgrid3.RowCount:= j;
for i:=1 to j do
stringgrid3.Cells[0,i-1]:=b[i];
end

else
ShowMessage('На МСФ нет студентов для баскетб. команды!');
end;

Введем следующие обозначения:

n1 - размерность 1-го массива;

a – 1-й исходный массив;

i - номер текущего элемента массива;

Min - значение минимального элемента 2-го массива;

n2 - размерность 2-го массива;

b – 2-й исходный массив;

B

j:=0;
for i:=1 to n1 do
if a[i]>min then
begin
j:=j+1;
c[j]:=a[i]
end;