Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Листинг 7.6

Читайте также:
  1. Листинг 1. Программа создания таблицы умножения.
  2. Листинг 2.3
  3. Листинг 3.4
  4. Листинг 4.1
  5. Листинг 5. Использование цикла while и инструкции break.
  6. Листинг 5.2
  7. Листинг 5.6

procedure TForm1.SpeedButton1Click(Sender: TObject);

type

mas=array [1..5] of Integer;

var

List:mas;

i,min:Integer;

begin

ListBox1.Clear;

// Заполнение массива

for i:=1 to 5 do

begin

List[i]:=StrToInt(InputBox('Ввод элемента','List'+

' '+IntToStr(i),''));

ListBox1.Items.Add('List['+IntToStr(i)+']='+

IntToStr(List[i]));

end;

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

min:=1;

for i:=2 to 5 do

begin

if List[i]<List[min] then min:=i;

end;

// Ввод List[min]

ShowMessage('Минимальный элемент:'+#13+

'List['+IntToStr(min)+']='+IntToStr(List[min]));

ListBox1.Items.Add('--------------');

ListBox1.Items.Add('min='+'List['+IntToStr(min)+']='+

IntToStr(List[min]));

end;

Пример 7.7

Приложение во время выполнения

Листинг 7.7

type

mas=array [1..5] of Integer;

var

List:mas;

i,buf:Integer;

begin

// Заполнение массива

with StringGrid1 do

begin

for i:=1 to 5 do

begin

List[i]:=StrToInt(Cells[i-1,0]);

end;

end;

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

for i:=1 to (5 div 2) do

begin

buf:=List[2*i-1];

List[2*i-1]:=List[2*i];

List[2*i]:=buf;

end;

// Вывод результата

with StringGrid2 do

begin

for i:=1 to 5 do

begin

Cells[i-1,0]:=IntToStr(List[i]);

end;

end;

end;

// Очистка компонентов StringGrid

procedure TForm1.SpeedButton2Click(Sender: TObject);

var

j:Integer;

begin

with StringGrid1 do

begin

for j:=1 to 5 do

begin

Cells[j-1,0]:='';

end;

end;

with StringGrid2 do

begin

for j:=1 to 5 do

begin

Cells[j-1,0]:='';

end;

end;

end;

Примеры использования многомерных массивов

Многомерные массивы – массивы, элементами которых являются массивы.

Например, двумерный массив можно описать так:

Var

A1:array [1..10] of array [1..3] of Integer;

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

Var

A1:array [1..10,1..3] of Integer;

Можно сначала определить соответствующий тип, а затем – переменные или типизированные константы этого типа:

Type

Ar = array [1..4, 1..3, 1..2] of Integer;

Var

A1,A2: Ar;

Const

A3: Ar = (((0, 1),(2, 3),(4, 5)),

((6, 7),(8, 9),(10,11)),

((12,13),(14,15),(16,17)),

((18,19),(20,21),(22,23)));

......

Данный массив можно изобразить графически.

 

 


Пример 7.8. Заполнить матрицу посредством ввода её элементов в таблицу (компонент StringGrid1), для контроля вывести элементы матрицы в таблицу (StringGrid2).

Приложение во время выполнения


Дата добавления: 2015-07-10; просмотров: 87 | Нарушение авторских прав


Читайте в этой же книге: Пример 2.2. (Задание 2.2) | Листинг 2.3 | Листинг 3.4 | Множественный выбор | Листинг 4.1 | Инструкция For | Листинг 5.2 | Считать верхней границей относительной погрешности, то | Листинг 5.6 | Листинг 6.1 |
<== предыдущая страница | следующая страница ==>
Листинг 7.3| Листинг 7.9

mybiblioteka.su - 2015-2024 год. (0.007 сек.)