3Опис структури програмного проекту
procedure TForm1.BitBtn1Click(Sender: TObject);//Завдання 1
begin
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=cos(i+j)*k;
StringGrid1.Cells[j-1,i-1]:=FloatToStrF(a[i,j],ffFixed,6,2);
label3.caption:='Згенерована квадратна матриця А розмірності де дорівнює (К-номер студента в журналі групи а j-номер групи)'
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject); //Завдання 2
var
min:real;
begin
for i:=1 to n do
for j:=1 to n do
if abs(a[i,j])< min then min:=abs(a[i,j]);//знаходження мінімального об`єкта
label1.caption:='Мінімальний об`єкт '+FloatToStrF(min,ffFixed,6,2);
label3.caption:='В двовимірному масиві, що відповідає матриці а, знайти мінімальний по модолю об`єкт'
end;
procedure TForm1.BitBtn3Click(Sender: TObject); //Завдання 3
var
sb:real;
begin
for i:=1 to n do
begin
sb:=0;
for j:=1 to n do
if j mod 2<>0then sb:=sb+a[i,j];
b[i]:=sb;
stringgrid2.Cells[i-1,0]:=floattostrF(b[i],ffFixed,6,2);
label3.caption:='b[i] є сумою [i] рядка з непарним номером стовбців'
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject); //Завдання 4
var
t:real;
begin
for i:=1 to n do//Сортування масиву
c[i]:=b[i];
for i:=1 to n do
for j:=1 to n-1 do
if c[j]>c[j+1] then
begin
t:=c[j];
c[j]:=c[j+1];
c[j+1]:=t;
end;
for i:=1 to n do
StringGrid3.Cells[i-1,0]:=FloatToStrF(c[i],ffFixed,6,2);
label3.caption:='сортування одновимірного масиву b за зростанням методом обмінного сортування'
end;
procedure TForm1.BitBtn5Click(Sender: TObject); //Завдання 5
var
s:real;
begin
s:=0;
for i:=1 to n do
s:=s+sin(b[i]+c[n+1-i]);// знаходження добутку за формулою s:=s+ +sin(b[i]+c[n+1-i])
label2.caption:='Сума-'+floattostrF(s,ffFixed,6,2);
label3.caption:='використовуючи елементи масивів b та c виконати обчислення s:=s+sin(b[i]+c[n+1-i])'
end;
procedure TForm1.BitBtn6Click(Sender: TObject); //Завдання 6
var
s,t:real;
min:integer;
//Обчислюємо характеристику стовпців матриці А - сума додатних елементів
begin
for i:=1 to n do
begin
s:=1;
for j:=1 to n do
if (j mod 2 <>0) then s:=s*a[i,j];
X[i]:=S;
stringGrid5.Cells[0,i-1]:=FloatToStr(x[i]);
end;
for i:=1 to n do
begin
y[i]:=x[i]; //Копія массиву x
stringGrid5.Cells[0,i-1]:=FloatToStr(y[i]);
end;
for i:=1 to n do //Сортування масиву
for j:=1 to n do
d[i,j]:=a[i,j];
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if y[j]<y[min] then min:=j;
t:=y[i];
y[i]:=y[min];
y[min]:=t;
for j:=1 to n do
begin
t:=d[i,j];
d[i,j]:=d[min,j];
d[min,j]:=t;
end;
label3.caption:='Характеристика рядків матриці А є добуток елементів з непарними індексами'
end;
for i:=1 to n do
stringGrid6.Cells[0,i-1]:=FloatToStr(y[i]); //Виведення відсортованої характеристики
for i:=1 to n do
for j:=1 to n do
stringGrid4.Cells[j-1,i-1]:=FloatToStrF(D[i,j],ffFixed,6,2); //Виведення відсортованого масиву
end;
procedure TForm1.BitBtn7Click(Sender: TObject); //Завдання 7
var
st:string;
begin
for i:=1 to n do
begin
st:='';
for j:=1 to n do
st:=st+' '+floattostrF(a[i,j],ffFixed,6,2); //Виведення матриці А в поле memo1
memo1.Lines.add(st);
end;
memo1.Lines.SaveToFile('a.txt'); //Збереження елементів матриці А в текстовий документ
for i:=1 to n do
begin
st:='';
st:=st+' '+floattostrF(b[i],ffFixed,6,2);
memo2.Lines.add(st);
end;
memo2.Lines.SaveToFile('b.txt');
for i:=1 to n do
begin
st:='';
st:=st+' '+floattostrF(c[i],ffFixed,6,2);
memo3.Lines.add(st);
end;
memo3.Lines.SaveToFile('c.txt');
for i:=1 to n do
begin
st:='';
st:=st+' '+floattostrF(x[i],ffFixed,6,2);
memo4.Lines.add(st);
end;
memo4.Lines.SaveToFile('x.txt');
for i:=1 to n do
begin
st:='';
for j:=1 to n do
st:=st+' '+floattostrF(d[i,j],ffFixed,6,2);
memo5.Lines.add(st);
end;
memo5.Lines.SaveToFile('d.txt');
label3.caption:='збереження масивів'
end;
end.