МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ Учреждение образования
«Гомельский государственный технический университет имени П.О.Сухого»
Кафедра «Информатика»
Лабораторная работа № 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 | | |
таблица | StrinGrid1 | FixedCols | | |
таблица | StrinGrid1 | ColCount | | |
таблица | StrinGrid1 | RowCount | | |
таблица | StrinGrid1 | Options-goEditing | True | |
таблица | StrinGrid1 | Options-goTabs | True | |
таблица | StrinGrid2 | FixedRown | | |
таблица | StrinGrid2 | FixedCols | | |
таблица | StrinGrid2 | ColCount | | |
таблица | StrinGrid2 | RowCount | | |
таблица | 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
