515

Обработка одномерных массивов. Формирование новых массивов

Лабораторная работа

Информатика, кибернетика и программирование

Получить навыки разработки и реализации типовых алгоритмов обработки одномерных массивов на языке Delphi. Научиться формировать новые массивы из заданных массивов в соответствии с некоторым условием.

Русский

2013-01-06

246 KB

64 чел.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

«ГОМЕЛЬСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ ИМЕНИ П.О. СУХОГО»

Факультет автоматизированных и информационных систем

Кафедра «Информатика»

Отчёт по лабораторной работе №8

«Обработка одномерных массивов. Формирование новых массивов»

Выполнил студент гр. ГА-11

Луцко А.Н.

Принял преподаватель

Мисюткин В.И.

Дата допуска к защите __________

Дата защиты __________

Гомель 2012


Цель работы
: Получить навыки разработки и реализации типовых алгоритмов обработки одномерных массивов на языке Delphi. Научиться формировать новые массивы из заданных массивов в соответствии с некоторым условием.

Задание: В каждой из задач заданы два массива чисел произвольной длины. Требуется сформировать новый массив по алгоритму, указанному в задании.

Программа должна:

вводить размерности и элементы исходных массивов;

выполнять действия в соответствии с условием задачи;

выводить:

исходные массивы,

сформированный массив, если он был сформирован. В противном случае –соответствующее сообщение.

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

Задача: Сформировать  массив из отрицательных элементов первого массива и элементов второго массива, небольших 3.

Вид окна формы

Таблица свойств компонентов

Элемент интерфейса

Компонент

Свойство

Значение свойства

Заголовок окна

Form1

Caption

Лабораторная работа8

Размер массива A

Label1

Caption

Размер массива A:

Размер массива B

Label2

Caption

Размер массива B:

Исходные данные

Label4

Caption

Исходные данные:

Результат

Label5

Caption

Результат:

Поле ввода размера массива A

Edit1

Text

Поле ввода размера массива B

Edit2

Text

Кнопка Вычислить

Button1

Caption

Вычислить

Таблица для ввода значений массива A

StringGrid1

FixedRows

FixedCols

ColCount

RowCount

goEditing

0

0

20

1

True

Таблица для ввода значений массива B

StringGrid2

FixedRows

FixedCols

ColCount

RowCount

goEditing

0

0

20

1

True

Таблица для вывода значений

StringGrid3

FixedRows

FixedCols

ColCount

RowCount

goEditing

0

0

20

1

False

Таблица используемых событий

Компонент

Событие

Имя процедуры обработки события

Реализуемый алгоритм

Button1

OnClick

TForm1.Button1Click

Вычисление

Edit1

OnChange

TForm1.Edit1Change

Изменение размера массива A

Edit2

OnChange

TForm1.Edit2Change

Изменение размера массива B

Таблица используемых переменных

Имя переменной в задаче

Имя переменной в программе

Тип переменной

Комментарий

-

a

array[1..20] of real

Массив значений A

-

b

array[1..20] of real

Массив значений B

-

c

array[1..20] of real

Массив конечных значений

-

i

integer

Текущий элемент массива

N

n

integer

Размер  массива A

M

m

integer

Размер  массива B

-

kol

integer

Размер  массива C

Тест 1

Исходные данные: n = 5, m = 5

1

2

3

4

5

5

6

7

8

9

Ожидаемый результат : Сообщение “Нет таких элементов”

Результат в программе:

 

Тест 2

Исходные данные: n = 5, m = 5,

-1

-2

3

4

5

6

7

8

9

10

Ожидаемый результат :  

-1

-2

Результат в программе:  

Тест 3

Исходные данные: n = 5, m = 5,

1

2

3

4

5

3

2

1

1

0

Ожидаемый результат :  

3

2

1

1

0

Результат в программе:  

Тест 4

Исходные данные: n = 5, m = 5,

-1

-2

8

4

5

3

2

-1

4

4

Ожидаемый результат :  

-1

-2

3

2

-1

Результат в программе:   


                                                               
Cхема алгоритма


Текст
 модуля

unit Unit1;

//Выполнил: Луцко А.Н.

interface

uses

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

 Dialogs, StdCtrls, Grids;

type

 TForm1 = class(TForm)

   Edit1: TEdit;

   Label1: TLabel;

   StringGrid1: TStringGrid;

   Button1: TButton;

   StringGrid2: TStringGrid;

   Label4: TLabel;

   Label5: TLabel;

   StringGrid3: TStringGrid;

   Label2: TLabel;

   Edit2: TEdit;

   procedure Button1Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure Edit2Change(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:array[1..20] of real;

i, n, m, kol: integer;

begin

 n := StrToInt(Edit1.Text);

 m := StrToInt(Edit2.Text);

 for i := 1 to n do begin

   a[i] := StrtoFloat(StringGrid1.Cells[i - 1,0]);

 end;

 for i := 1 to m do begin

   b[i] := StrtoFloat(StringGrid2.Cells[i - 1,0]);

 end;

 kol := 1;

 for i := 1 to n do begin

   if a[i] < 0 then  begin

     c[kol] := a[i];

     kol := kol + 1;

   end;

 end;

 for i := 1 to m do

 begin

   if b[i] <= 3 then

   begin

     c[kol] := b[i];

     kol := kol + 1;

   end;

 end;

 if kol > 1 then begin

   StringGrid3.ColCount := kol - 1;

   for i := 1 to kol - 1 do begin

     StringGrid3.Cells[i - 1,0] := FloatToStr(c[i]);

   end;

 end

 else ShowMessage('Нет таких элементов');

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

 StringGrid1.ColCount := StrToInt(Edit1.Text);

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

 StringGrid2.ColCount := StrToInt(Edit2.Text);

end;

end.

Вывод: Получил навыки разработки и реализации типовых алгоритмов обработки одномерных массивов на языке Delphi. Научился формировать новые массивы из заданных массивов в соответствии с некоторым условием.


конец

Нет таких элементов

Вывод C

Нет

Да

kol>1

i = i + 1

c[kol] = b[i]

kol = kol+1

Нет

Да

b[i]<=3

Нет

Да

i<=m

i  = 1

i = i + 1

kol = kol+1

c[kol] = a[i]

Нет

Да

a[i]<0

Нет

Да

i  = 1

i<=n

kol = 1

Ввод D, элементов массивов A, B

начало


 

А также другие работы, которые могут Вас заинтересовать

40814. Политическое сознание 263.43 KB
  Некоторые элементы этого уровня могут быть обобщены и использованы в определенных политических технологиях а также для построения политических теорий; Обыденный уровень политического сознания повседневное состояние общественного мнения по поводу политической жизни. Виды политического сознания В зависимости от субъекта политики типами политического сознаниявыступают: индивидуальное содержит систему информационных мотивационных и ценностных компонентов обеспечивающих познание личностью политики и участие в ней; групповое обобщает...
40815. Записываемые и перезаписываемые CD 2.21 MB
  Оптические тетради 16 Форматы хранения данных 18 Методы записи 20 Режимы работы устройств 22 Оценка качества записи заготовок CDR 23 Структура проигрывателя компактдисков 26 Его быстро окрестили лазерным или компактдиском Compct Disk CD фирма Philips создательница этого чуда техники объявила о совершенной ею революции в области записи и воспроизведения звука. Первое время главным недостатком компактдиска была невозможность записи на него...
40816. РОЗРАХУНОК СТРУКТУРНОЇ НАДІЙНОСТІ КС 96.49 KB
  Технічна система ТС сукупність технічних пристроїв елементів призначених для виконання певної функції або функцій. Елементи відмова яких сама по собі або в сполученні з відмовами інших елементів приводить до відмови системи. Для розрахунків параметрів надійності використовуються структурно логічні схеми надійності ТС які графічно відображають взаємозвязок елементів та їхній вплив на працездатність системи в цілому. Структурнологічна схема являє собою сукупність раніше виділених елементів зєднаних один з одним послідовно або...
40817. Компютерні системи захисту інформації 404.59 KB
  Теоретичні моделі захисту інформації. Модель захисту мережі Категорії інформаційної безпеки Теоретичні моделі захисту інформації Модель захисту мережі Класифікація криптоалгоритмів. Зловмисники використовують як помилки в написанні і адмініструванні програм так і методи соціальної психології для отримання бажаної інформації.
40818. ПРИРОДА І ФІЗИЧНІ ВЛАСТИВОСТІ ГРУНТІВ 565.59 KB
  В розділі природа і фізичні властивості грунтів розглядаються інженерногеологічні дослідження фізичні і механічні властивості дисперсних середовищ а також фізикомеханічні процеси взаємодії твердої рідкої і газоподібної складових ґрунту. 4 несучий шар ґрунту 5 підстилаючий шар. Глибина закладення фундаменту це відстань по вертикалі між поверхнею ґрунту і підошвою фундаменту. За конструктивними і технологічними особливостями влаштування фундаменти бувають: мілкого закладення передають навантаження на основу через свою підошву і...
40819. Громадська думка як суспільно-політичний феномен 152.11 KB
  Природа громадської думки як стану масової свідомості. Особливості громадської думки про право 5. Всебічним аналізом цього соціального феномена займається соціологія громадської думки.
40820. Культура стародавнього Єгипту 36.23 KB
  Повсякденне життя єгиптян у часи великих фараонів. Переписувачі й осередки духовного життя. З висоти свого становища бог дав форму навколишньому світові вдихнув у нього повітря світло й життя вступив у двобій із силами безодні. Людство повстало примусивши Ра піднятися в небо але він продовжував зберігати порядок маат принцип істини та справедливості ним встановлений котрий став його життям.
40821. Моделі життєвого циклу та методології розробки ПЗ 451.75 KB
  Моделі життєвого циклу та методології розробки ПЗ Моделі життєвого циклу Модель життєвого циклу ПЗ структура що визначає послідовність виконання та взаємозв'язку процесів дій і завдань протягом життєвого циклу. В рамках специфічних моделей життєвого циклу які приписують правила організації розробки ПЗ в рамках даної галузі або організації визначаються більш конкретні процеси розробки. Таких моделей досить багато адже фактично кожен раз коли деяка організація визначає власний процес розробки в якості основи цього процесу розробляється...
40822. Культура Месопотамії 39.45 KB
  Культура Месопотамії Своєрідність месопотамської культури: космос як держава. Повсякденне життя жителів Месопотамії. Біля джерел біблійських сказань Якщо Стародавній Єгипет був імперією з усіма наслідками що витікали з цього то дещо інша ситуація склалася в Месопотамії Двуріччі з двома великими ріками Євфратом і Тигром які мали декілька приток Месопотамська цивілізація являла собою тип існуючої на давньому Близькому Сході сільськогосподарської' цивілізації заснованої на ірригації.' Шумери заклали основи для подальшого розвитку...