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

 

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

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

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

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












Лабораторная работа №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

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

КомпонентсобытиеИмя процедуры обработки событияРеализуемый алгоритмBtn1OnClickTform1.btn1Clickтабулирование

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

Имя переменной в задачеИмя переменной в программеТип переменнойкомменарий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


МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ Учреждение образования «Гомельский государственный технический университет имени П.О.Сухого» Каф

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ