Обработка одномерных массивов.
Выделение минимального и максимального элементов массива

Тип работы:
Лабораторная работа
Предмет:
Программирование


Узнать стоимость

Детальная информация о работе

Выдержка из работы

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

Учреждение образования

«Гомельский государственный технический университет имени П.О. Сухого»

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

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

по дисциплине: «Информатика»

Обработка одномерных массивов. Выделение минимального и максимального элементов массива

Допуск к защите Выполнил студент группы Л-11

Пинчук В.А.

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

Дата защиты Косинов Г. П

Цель работы: Получить навыки разработки и реализации типовых алгоритмов обработки одномерных массивов на языке Delphi. Научиться находить максимальный и минимальный элемент массива и определять его место в массиве; изменять значение и расположение элементов массива; обрабатывать элементы массива, находящиеся перед (после) максимальным (минимальным) элементом.

Выполнение работы.

Найти минимальный элемент и записать вместо него число N2+N.

Вид окна

алгоритм массив язык delphi

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

Элемент

интерфейса

Имя

компонента

Свойство

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

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

формы

Form1

Caption

Form1

Надпись

Lb11

Caption

Число элементов массива

Поле ввода n

массива x

Edt4

Text

Надпись

Lbl4

Caption

Минимальный элемент

Поле ввода a

Edt2

Text

Надпись

Lbl2

Caption

Исходный массив

Надпись

Lbl3

Caption

Полученый массив

Кнопка

Btn1

Caption

вычеслить

таблица

StrinGrid1

FixedRown

0

таблица

StrinGrid1

FixedCols

0

таблица

StrinGrid1

ColCount

20

таблица

StrinGrid1

RowCount

1

таблица

StrinGrid1

Options-goEditing

True

таблица

StrinGrid1

Options-goTabs

True

таблица

StrinGrid2

FixedRown

0

таблица

StrinGrid2

FixedCols

0

таблица

StrinGrid2

ColCount

20

таблица

StrinGrid2

RowCount

1

таблица

StrinGrid2

Options-goEditing

True

таблица

StrinGrid2

Options-goTabs

True

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

Компонент

событие

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

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

Btn1

OnClick

Tform1. btn1Click

табулирование

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

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

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

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

комменарий

m

a, b, z

real

переменые

i, n, s

i, n, s

integer

x

x

array[1. 20] of real

Распечатка текста модуля

unit Unit1;

interface

uses

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

Diologs, StdCtrls, Crids, Math;

type

TForm1= class (TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

StringGrid1: TStringGrid;

Button1: TButton;

Label3: TLabel;

Tdit2: TEdit;

Label4: TLabel;

StringGrid2: TStringGrid;

procedure Button1Click (Sender: TObject);

private

{Public declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implrementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObjest);

var

x: array[1. 20] of real;

i, n, b, g: integer;

m: real;

begin

n: =StrToFloat (StringGrid1. Cells[i-1,0]);

for i: =1 to n do

x[i]: =StrToFloat (StringGrid1. Cels[i-1,0]);

m: =x[1];

for i: =1 to n do

if x[i]< =m then

begin

m: =x[i];

b: =I;

g: =sqr (n)+n;

end;

x[b]: =g;

Edit2. Text:=FloatToStr (g);

for i: =1 to n do

StringGrid2. Cells[i-1,0]:=FloatToStr (x[i]);

end;

end.

Тест 1

ПоказатьСвернуть
Заполнить форму текущей работой