АЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ БІЛІМ ЖӘНЕ ҒЫЛЫММИНИСТРЛІГІ
М.Х. ДУЛАТИ АТЫНДАҒЫ ТАРАЗ МЕМЛЕКЕТТІК УНИВЕРСИТЕТІ
СӨЖ
ТАҚЫРЫБЫ: Стандартты функцияларға, іздеу және сұрыптау алгоритмдеріне арналған есептер шығару, модульдік программалауды және динамикалық жадыны қолданып программа жасау.
КУРС: 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.
