Учебный курс Программирование на Delphi. Модуль 10 - История изменений

Сутков Александр в 06:32, 1 марта 2008

2008-03-01T06:32:04Z

Сутков Александр в 06:17, 1 марта 2008

2008-03-01T06:17:29Z

Сутков Александр в 06:15, 1 марта 2008

2008-03-01T06:15:54Z

Сутков Александр в 06:07, 1 марта 2008

2008-03-01T06:07:13Z

Новая страница

<center>'''Программирование на Delphi. Модуль 10'''</center>

==Пример 1==
*'''Условие'''

*'''Использованные компоненты'''

*'''Программный код'''

'''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
{Private 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.

*'''Форма с результатом работы программы'''

==Задание ==

==Литература ==

==Ссылки==

[[Учебный курс Программирование на Delphi]]

[[Учебный план курса Программирование на Delphi]]

[[Категория: Учебный курс Программирование на Delphi]]

← Предыдущая		Версия 06:32, 1 марта 2008
Строка 8:		Строка 8:

	*'''Использованные компоненты'''		*'''Использованные компоненты'''
		+
		+	<center>[[Изображение:11-1.JPG]]</center>

	*'''Программный код'''		*'''Программный код'''

← Предыдущая		Версия 06:17, 1 марта 2008
Строка 1:		Строка 1:
−	<center>~~'''Программирование на Delphi. Модуль 10~~'''</center>	+	<center>Программы сортировки '''</center>

	==Пример 1==		==Пример 1==

@@ Строка 2: / Строка 2: @@
 ==Пример 1==
 *'''Условие'''
 *'''Использованные компоненты'''
 *'''Программный код'''
    '''unit Unit1;'''