Обработка одномерных массивов. Выделение минимального и максимального элементов массива
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ
Учреждение образования
«Гомельский государственный технический университет имени П.О.Сухого»
Кафедра «Информатика»
Лабораторная работа №7
по дисциплине : «Информатика»
Обработка одномерных массивов. Выделение минимального и максимального элементов массива
Допуск к защите Выполнил студент группы Л-11
Пинчук В.А.
Принял преподователь:
Дата защиты Косинов Г.П
Цель работы: Получить навыки разработки и реализации типовых алгоритмов обработки одномерных массивов на языке Delphi. Научиться находить максимальный и минимальный элемент массива и определять его место в массиве; изменять значение и расположение элементов массива; обрабатывать элементы массива, находящиеся перед (после) максимальным (минимальным) элементом.
Выполнение работы.
Найти минимальный элемент и записать вместо него число N2+N.
Вид окна
алгоритм массив язык delphi
Таблица свойств компонентов
Элемент интерфейсаИмя компонентаСвойствоЗначение свойстваЗаголовок окна формыForm1CaptionForm1НадписьLb11CaptionЧисло элементов массиваПоле ввода n массива xEdt4TextНадписьLbl4CaptionМинимальный элементПоле ввода aEdt2TextНадписьLbl2CaptionИсходный массивНадписьLbl3CaptionПолученый массив
КнопкаBtn1CaptionвычеслитьтаблицаStrinGrid1FixedRown0таблицаStrinGrid1FixedCols0таблицаStrinGrid1ColCount20таблицаStrinGrid1RowCount1таблицаStrinGrid1Options-goEditingTrueтаблицаStrinGrid1Options-goTabsTrueтаблицаStrinGrid2FixedRown0таблицаStrinGrid2FixedCols0таблицаStrinGrid2ColCount20таблицаStrinGrid2RowCount1таблицаStrinGrid2Options-goEditingTrueтаблицаStrinGrid2Options-goTabsTrue
Таблица используемых событий
Таблица используемых переменных
Имя переменной в задачеИмя переменной в программеТип переменнойкомменарийma,b,zrealпеременыеi,n,si,n,sintegerxxarray[1..20] of real
Распечатка текста модуля
unit Unit1;,Messages,SysUtils,Variants,Classes,Graphies,Controls,Forms,,StdCtrls,Crids,Math;= class(TForm): TLabel;: TEdit;: TLabel;: TStringGrid;: TButton;: TLabel;: TEdit;: TLabel;: TStringGrid;Button1Click(Sender: TObject);
{Public declarations}
{Public declarations};: TForm1;
{$R *.dfm}TForm1.Button1Click(Sender: TObjest);:array[1..20] of real;,n,b,g:integer;:real;:=StrToFloat(StringGrid1.Cells[i-1,0]);i:=1 to n do[i]:=StrToFloat(StringGrid1.Cels[i-1,0]);:=x[1];i :=1 to n dox[i]<=m then:=x[i];:=I;:=sqr(n)+n;;[b]:=g;.Text:=FloatToStr(g);i:=1 to n do.Cells[i-1,0]:=FloatToStr(x[i]);;
end.
Тест 1