Основные принципы решения задач с многомерными массивами в среде программирования Delphi

Остапенко И.А.

5. Андреев А.А. Педагогика высшей школы. Новый курс. - М.: Московский международный институт эконометрики, информатики, финансов и права, 2002. - 264 с.

6. Burge E. Flexible Pedagogy, Flexible Practice - AU Press, 2011. - 348 p.

7. Online Distance Education. Edited by Anderson T. - AU Press, 2014. -507 p.

ОСНОВНЫЕ ПРИНЦИПЫ РЕШЕНИЯ ЗАДАЧ С МНОГОМЕРНЫМИ МАССИВАМИ В СРЕДЕ ПРОГРАММИРОВАНИЯ DELPHI

Севастопольский государственный университет, г. Севастополь

Решение основных задач многомерных массивов в среде программирования Delphi.

Ключевые слова массив, среда Delphi, компонент StringGrid.

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

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

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

Таким образом, для обращения к конкретному элементу массива необходимо указать имя массива и значения индексов [1].

Работа с массивом сводится к действиям над его элементами.

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

В среде Delphi для ввода и вывода массивов используется компонент StringGrid, поэтому работа с массивами в Delphi сильно отличается от работы в Pascal.

* Преподаватель, магистр.

Компонент StringGrid группы Additional представляет собой таблицу, которая содержит строки. Таблица может иметь полосы прокрутки, причем заданное число первых строк и столбцов может быть фиксированным и не подвергаться прокрутке. Таким образом, можно задать заголовки столбцов и строк, постоянно присутствующих в окне компонента. Каждой ячейке таблицы может быть поставлен в соответствии некоторый объект [2].

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

Решение подобного рода заданий осуществляются при помощи вложенных циклов и вычислений в пределах массива.

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

Заполнить массив 5 на 5 и найти:

- сумму всех элементов;

- поменять вторую строку с третьей;

- поставить везде нули, кроме главной диагонали;

- заполнить главную диагональ нулями;

- найти числа которые кратны трем;

- каждый элемент массива увеличить в три раза.

Решение:

Создаем форму

Рис. 1

Программа для реализации задачи может выглядеть так:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids; type

TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Label1: TLabel;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button5Click(Sender: TObject); private

{Private declarations} public

{Public declarations} end; var

Form1: TForm1; implementation {$R *.dfm}

Создаем массив и заполняем его случайными числами

procedure TForm1.Button1Click(Sender: TObject);

var i,j:byte;

begin

randomize;

for i:=0 to stringgridLColCount-1 do begin for j:=0 to stringgridLRowCount-1 do begin

stringgrid1.Cells[j,i] :=inttostr (random(50)+1); end; end; end;

Вычисление суммы всех элементов

procedure TForm1.Button2Click(Sender: TObject);

var i,j:byte;

s:integer;

begin

s:=0;

for i:=0 to 4 do begin for j:=0 to 4 do begin s:=s+strtoint(stringgrid1.Cells[j,i]); end; end;

edit1.Text:=inttostr(s); end;

Замена второй строки третьей

procedure TForm1.Button3Click(Sender: TObject); var i:byte;

a:array [0..4] of integer; begin

for i:=0 to 4 do a[i]:=strtoint(stringgrid1.Cells[i,1]); for i:=0 to 4 do begin

stringgrid1.Cells[i, 1] :=stringgrid1.Cells[i,2]; end;

for i:=0 to 4 do begin stringgrid1.Cells[i,2] :=inttostr(a[i]); end; end;

Замена всех элементов нулями, кроме главной диагонали

procedure TForm1.Button4Click(Sender: TObject);

var i,j:byte;

begin

for i:=0 to stringgrid1.ColCount-1 do begin for j:=0 to stringgrid1.RowCount-1 do begin if (not(i=j)) then stringgrid1.Cells[j,i]:='0'; end; end; end;

Замена главной диагонали нулями

procedure TForm1.Button6Click(Sender: TObject);

var i:byte; begin

for i:=0 to stringgrid1.ColCount-1 do begin

stringgrid1.Cells[i,i] :='0';

end;

Каждый элемент массива увеличиваем в три раза

procedure TForm1.Button7Click(Sender: TObject); var i,j:byte; begin

for i:=0 to 4 do begin

for j:=0 to 4 do begin stringgrid 1. Cells [j,i] :=inttostr(strtoint(stringgrid1. Cells[j,i] )*3); end; end; end;

Ищем числа которые кратны трем

procedure TForm1.Button5Click(Sender: TObject);

var i,j:byte; begin

for i:=0 to 4 do begin

for j:=0 to 4 do begin if (((strtoint(stringgrid 1.Cells[j,i]) mod 3)=0)) then stringgrid1.Cells[j,i]:='Хороший элемент!' end; end; end; end.

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

Список литературы:

1. Использование массивов при обработке больших объемов информации [Электронный ресурс] // 5fan.ru - уникальная база студен-

ческих работ. - Режим доступа: http://5fan.ru/wievjob.php?id=4752 (дата обращения: 02.04.2016).

2. Карчевская М.П., Рамбургер О.Л. и др. Разработка приложений в среде Borland Delphi. Лабораторный практикум по дисциплине «Информатика» // Электронный лабораторный практикум по Delphi. - Уфимский государственный авиационный технический университет, 2005.

КОМПЬЮТЕРНЫЕ ТЕХНОЛОГИИ В ПРЕПОДАВАНИИ ИНОСТРАННОГО ЯЗЫКА

Челябинский государственный университет, г. Челябинск

В статье раскрывается использование современных информационных технологий в образовательном процессе. Описываются подходы к использованию интернет-технологий, приводится своё понимание преимущества данных технологий, подтверждённое практикой преподавания в вузе.

Ключевые слова технология, интернет, система Moodle, образовательный процесс.

Технология при переводе с греческого ^есЬпе) означает искусство, мастерство, умение, а это не что иное, как процессы.

Информационная технология - процесс, использующий совокупность методов сбора, обработки и передачи данных (первичной информации) для получения информации нового качества о состоянии объекта, процесса или явления (информационного продукта).

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

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

* Старший преподаватель кафедры Делового иностранного языка.

Аннотация научной статьи по компьютерным и информационным наукам, автор научной работы — Остапенко И.А.

Похожие темы научных работ по компьютерным и информационным наукам , автор научной работы — Остапенко И.А.

Текст научной работы на тему «Основные принципы решения задач с многомерными массивами в среде программирования Delphi»