та результати рахунки вивести на екран (передбачити можливість роздруківки результатів роботи на принтері), забезпечивши їх відповідними заголовками.
. Підрахувати кількість А) порівнянь елементів; Б) перестановок елементів.
Зміст звіту:
1) Постановка завдання.
2) Опис усіх дій по створенню додатку.
) Блок-схема або алгоритм (у тому числі сортування)
) Математичні викладки
) Лістинг програми і всіх модулів
) Контрольний приклад (роздруківка зображень екранів, що ілюструють роботу програми).
Методичні вказівки:
Вихідні дані повинні включати і позитивні числа, і негативні, і нулі.
Варіант завдання:
Дан двовимірний масив, що містить 5 рядків і 3 стовпці. Елементами масиву є цілі числа. Упорядкувати масив по які зменшенням елементів другого рядка.
Код програми:
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, StdCtrls, ExtCtrls, Printers; = class (TForm): TPanel;: TPanel;: TStringGrid;: TStringGrid;: TPanel;: TRadioButton;: TRadioButton;: TPanel;: TButton;: TEdit;: TLabel;: TLabel;: TEdit;: TButton;: TPanel;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel; : TLabel;: TPanel;: TButton;: TButton; btn1Click (Sender: TObject); btn2Click (Sender: TObject); btn3Click (Sender: TObject); btn4Click (Sender: TObject);: Integer;: Integer;: array of array of Integer;
{Public declarations};: TForm1;
{$ R *. dfm} = 99; TForm1.btn1Click (Sender: TObject);: = StrToInt (edt1.Text);: = StrToInt (edt2.Text); (a, m, n);. RowCount: = m;. ColCount: = n;. RowCount: = m;. ColCount: = n;. Enabled: = False;. Enabled: = True;. Options: = StringGrid1.Options + [goEditing] ;; TForm1.btn2Click (Sender: TObject);, j: Integer; rb1.Checked theni: = 0 to m - 1 doj: = 0 to n - 1 do [i, j]: = StrToInt (StringGrid1.Cells [j , i]); i: = 0 to m - 1 doj: = 0 to n - 1 do [i, j]: = Random (2 * MyRandMax + 1) - MyRandMax;. Cells [j, i]: = IntToStr (a [i, j]);;;. Enabled: = False;. Enabled: = True;. Options: = StringGrid1.Options - [goEditing];; TForm1.btn3Click (Sender: TObject);, j, k: Integer;, XchgCount: integer;: integer;. Enabled: = False;. Enabled: = True;: = 0;: = 0; i: = 0 to m - 2 dok: = i + 1 to m - 1 do ( CmpCount); a [i] [1]> a [k] [1] thenj: = 0 to n - 1 do (XchgCount);: = a [i] [j]; [i] [j]: = a [k] [j]; [k] [j]: = buf;;; i: = 0 t...
