Қ Ң ˲ Ә Ғ˲ò
.. Ғ Ҳ Ҳ
Ө
Қ: ғ, ә ұ ғ ғ, ә қ қ .
: 2
:
Ғ:
ҚҒ: .
2016 .
қ: ғ, ә ұ ғ ғ, ә қ қ .
1.
1. ө өңi құ . өң ү ң әү қ .[5,5] . ғ қ қ ғ .
2. ұ әң қ қ ә қ . 10 ө ң ң қ ә ә ұ ә қ ң.
3. ә ң ә. қ f . : ) f ң ң қ; ) ң ңғ .
4. 
[5,5] . ғ қ қ ғ .
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, Spin;
type
TForm1 = class(TForm)
Label1: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
Label2: TLabel;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Button1: TButton;
Label9: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure SpinEdit2Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation {$R *.dfm}
var
A:array[1..6,1..8] of extended;
X:array[1..8] of extended;
n,m,p,q:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
SpinEdit1.Text:='4';
SpinEdit2.Text:='6';
StringGrid1.RowCount:=4;
StringGrid1.ColCount:=6;
StringGrid2.RowCount:=6;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
n:=strtoint(spinedit1.Text);
|
|
|
stringgrid1.RowCount:=n;
end;
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
m:=strtoint(spinedit2.Text);
stringgrid1.colCount:=m;
stringgrid2.RowCount:=m;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer; min:real;
begin
n:=strtoint(spinedit1.Text);
StringGrid1.RowCount:=n;
m:=StrToInt(SpinEdit2.Text);
StringGrid1.ColCount:=m;
StringGrid2.RowCount:=m;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=Random(51)-25;
A[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);
i:=1;
while i<n do
begin
min:=a[i,1];
if min>a[i,j] then min:=a[i,j];
StringGrid2.Cells[j-1,0]:=FloatToStr(min);
i:=i+2;
end;
end; end.
