Процедура задания строк и столбцов исходя из значения поля Edit 1
(на кнопку «Изменить размерность массива)
procedure TForm1.Button1Click(Sender: TObject);
begin
N:=StrToInt(Edit1.Text);
{Задание числа строк и столбцов в таблицах}
StringGrid1.ColCount:=N+1;
StringGrid1.RowCount:=N+1;
StringGrid2.RowCount:=N+1;
StringGrid3.RowCount:=N+1;
{Заполнение верхнего и левого столбцов поясняющими подписями}
for i:=1 to N do begin
StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
end;
Процедура вычисления (на кнопку «Вычислить»):
Задание 2 : создать приложение, которое выводит двумерный массив случайных целых чисел и определяет минимальный и максимальный элементы в этом массиве.
Процедура обработки события кнопки Button1:
Procedure TForm1.Button1Click (Sender: TObject) ;
{заполнение массива}
begin
randomize;
with StringGrid1 do
begin
I := 0 ;
For J := 1 to RowCount – 1 do {вывести номера строк}
Cells [ I , J ] := IntToStr( J ) ;
J := 0 ;
For I := 1 to ColCount – 1 do {вывести номера столбцов}
Cells [ I , J ] := IntToStr( I ) ;
End;
With StringGrid1 do {заполнение в таблице двумерного массива}
For I := 1 to ColCount – 1 do
For J := 1 to RowCount – 1 do
Begin
Cells [ I , J ] := IntToStr(Round(Sin(Random(100))*100)) ;
End ;
End ;
Процедура обработки массива для второй кнопки «Вычислить»:
procedure TForm1.Button2Click(Sender: TObject); {обработка массива}
var
min, max : integer ;
begin
if CheckBox1.Checked then
with StringGrid1 do
begin
min := StrToInt (Cells [1,1]) ;
for I :=1 to colCount – 1 do
for J := 1 to RowCount – 1 do
if StrToInt (Cells [ I , J ]) < min then min := StrToInt (Cells [ I , J ] ) ;
Edit1.Text := IntToStr (min) ;
End
Else Edit1.Text := ‘’ ; …
(Определение максимального записать самостоятельно аналогично первой части модуля).
|
|
|
End ;
Оценивание работы
На оценку «4» выполнение Задания 1
На оценку «5» выполнение Задания 1 и Задания 2
Дата добавления: 2020-11-15; просмотров: 117; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!