Учебный курс Программирование на Delphi. Модуль 13: различия между версиями
(→Задание) |
|||
Строка 7: | Строка 7: | ||
В заголовке процедуры, может быть задан список формальных параметров.При вызове процедур, формальные параметры, будут заменены фактическими. | В заголовке процедуры, может быть задан список формальных параметров.При вызове процедур, формальные параметры, будут заменены фактическими. | ||
− | В Delphi7, | + | В Delphi7, обновление процедур происходит автоматически при создании действия с элементом. |
Создать такое действие можно либо просто дважды щёлкнув на объекте (click), либо выбрав нужное действие из подменю events в object inspector | Создать такое действие можно либо просто дважды щёлкнув на объекте (click), либо выбрав нужное действие из подменю events в object inspector | ||
Версия 08:53, 19 апреля 2008
Использование процедур
Часто в программе появляются участки, выполняющие одни и те же действия с различными данными. Такие участки лучше всего оформлять в виде подпрограмм. Выделяют два вида подпрограмм: Процедуры и функции. Процедурой называют особенным образом оформленный фрагмент программы, имеющий собственное имя. В заголовке процедуры, может быть задан список формальных параметров.При вызове процедур, формальные параметры, будут заменены фактическими.
В Delphi7, обновление процедур происходит автоматически при создании действия с элементом. Создать такое действие можно либо просто дважды щёлкнув на объекте (click), либо выбрав нужное действие из подменю events в object inspector
Пример объявления процедуры:
procedure TForm1.Button1Click(Sender: TObject); Эта строка означает, что если нажать (click) на кнопку button1, находящуюся на форме form1, то будут выполнятся действия, которые указаны в теле процедуры.
Пример 1.
- Условие
Массив A(n) отсортировать в порядке возрастания элементов.
Сортировка осуществляется методом выбора.
Для этого в процедуре max ищется номер максимального элемента. В основном алгоритме максимальный эемент и последний меняются местами. Цикл повторяется до тех пор, пока не останется только один не отсортированный элемент.
- Использованные компоненты
label1 - для текстовых комментарий;
label2 - для текстовых комментарий;
label3 - для текстовых комментарий;
Button1 - для формирования вектора;
Button2 - для вызова процедуры сортировки;
Button3 - для выхода;
StringGrid1 - для вывода исходного массива;
StringGrid2 - для вывода отсортированного массива.
- Программный код
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, Grids, StdCtrls, Buttons; type x=array [1..20] of real; TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Label1: TLabel; StringGrid1: TStringGrid; Label2: TLabel; Button2: TButton; StringGrid2: TStringGrid; Label3: TLabel; XPManifest1: TXPManifest; BitBtn1: TBitBtn; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; a:x; i, j, n, k: integer; R: real; implementation {$R *.dfm} procedure max (q: integer; var nmax: integer); var m: real; l: integer; begin m:=A[1]; nmax:=1; for l:=1 to q do if A[l]>m then begin m:= A[l]; nmax:= l end end; {конец описания процедуры} procedure TForm1.Button2Click(Sender: TObject); begin randomize; n:=strtoint(edit1.Text); j:=n; for i:=1 to n do begin a[i]:=random(11); stringgrid1.Cells[i-1,0]:=floattostr(a[i]); end; end; procedure TForm1.Button1Click(Sender: TObject); begin {основная программа} while j <> 1 do begin max (j, k); R:= A[k]; A[k]:= A[j]; A[j]:= R; j:= j-1; end; for i:=1 to n do stringgrid2.Cells[i-1,0]:=floattostr(a[i]); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin close; end; end.
- Форма с результатом работы программы
Задание
Таблица 19
Номер варианта | Условие |
---|---|
В массиве A(n) и B(n) все элементы, следующие за максимальным (за первым по порядку, если их несколько), заменить на 1. | |
Дана матрица A(n,m). Упорядочить столбцы по убыванию элементов. | |
Дана матрица X(n,m). Упорядочить строки по возрастанию элементов. | |
Дана матрица У(k,l). Получить из нее вектор, содержащий суммы элементов строк. Отсортировать его в порядке убывания элементов. | |
Из текста выделить слова и вывести их в алфавитном порядке. | |
Вычислить:
где Xmax - максимальный элемент вектора X(n) Уmax - максимальный элемент вектора У(m). | |
Вычислить суммы элементов векторов У(k) и X(L), находящиеся в интервале от а до b. | |
Вычислить: | |
Решить уравнение a*x+b=0,
где а - длина вектора У(n), b - длина вектора Z(m). | |
Решить уравнение Файл:T13-10.JPG
где а - произведение элементов целочисленного вектора Т(к), b - произведение элементов целочисленного вектора D(L), с - произведение элементов целочисленного вектора R(n). | |
Дана матрица У(к,к). Сформировать вектор, содержащий диагональные элементы матрицы У. Отсортировать его в порядке убывания элементов. | |
Решить уравнение Файл:T13-12.JPG
где р - минимальный элемент матрицы A(3,3), q - минимальный элемент матрицы B(4,4), r - минимальный элемент матрицы С(5,5). | |
Заданы три матрицы A(m,m), B(n,n), C(k,k). Найти минимальный из всех максимальных элементов главных диагоналей матриц. | |
Вычислить: |
Литература
- Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
- Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
- Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.