, помогите, плиз.
PS Нужно очень срочно
- Код: Выделить всё
procedure TForm1.createarray1Click(Sender: TObject);
{Процедура двухмерного массива создания массива}
//Обьявление переменных
var i:integer;
var i2:integer;
var val:integer;
begin //начало процедуры
val:=0;
{в цыклах создадим двухмерный массив, и отобразим его в гриде}
for i:=1 to 4 do
for i2:=1 to 5 do
begin
val:=val+1;
matrix[i,i2]:=val;
grid.Cells[i2-1,i-1]:=floattostr(matrix[i,i2]);
end
end;
- Код: Выделить всё
procedure TForm1.recountarrayClick(Sender: TObject);
{процедру пересчета элементов массива согласно формуле
2+I; 2-I}
var i:integer;
var i2:integer;
begin
{в этих цыклах согласно формуле, результат выводим в грид}
for i:=1 to 4 do
for i2:=1 to 5 do
begin
if ((i+i2) mod 2 <> 0) then
matrix[i][i2]:=matrix[i][i2]-6.9
else
matrix[i][i2]:=3.1+matrix[i][i2];
grid.Cells[i2-1,i-1]:=floattostr(matrix[i][i2]);
end
end;
- Код: Выделить всё
procedure TForm1.gridKeyPress(Sender: TObject; var Key: Char);
{проверка ввода данных в грид}
begin
case Key of
'0'..'9':;
'.',',': key:=DecimalSeparator;
#13:;
#8:;
else
key:='0';
end;
end;
- Код: Выделить всё
procedure TForm1.createarray2Click(Sender: TObject);
{процедура создания одномсерного массива
(значения одномерного массива - сумма значений столбцов двумерного массива)}
//обьявление переменных
var i:integer;
var i2:integer;
var t:real;
begin
arrlst.Items.Clear;//Очищаем лист, в котором будет отображаться одномерный массив
for i2:=1 to 5 do
begin
for i:=1 to 4 do
begin
t:=t+matrix[i,i2];//временная переменная, в которую записываем элемент двухмерного массива
arr[i2]:=t;
end;
arrlst.Items.Add(floattostr(arr[i2]));//отображаем весь массив в листбоксе
t:=0;
end
end;
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
{процедура создания рандомного массива}
//Обьявление переменных
var i:integer;
var i2:integer;
begin //начало процедуры
{в цыклах создадим двухмерный массив, и отобразим его в гриде}
for i:=1 to 4 do
for i2:=1 to 5 do
begin
matrix[i,i2]:=random(100);//присваиваем текущему элементу масива рандомное число от 0 до 100
grid.Cells[i2-1,i-1]:=floattostr(matrix[i,i2]);
end
end;
