МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ
Установа освіти
«Гомельський державний технічний університет імені П.О.Сухого»
Кафедра «Інформатика»
Лабораторна робота №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] lt;=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
