|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Среднее арифмитическое матрицы
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, Grids; type TForm1 = class(TForm) SpinEdit1: TSpinEdit; StringGrid1: TStringGrid; se1: TSpinEdit; btn1: TButton; procedure FormCreate(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure se1Change(Sender: TObject); procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin SpinEdit1.MinValue :=1; SpinEdit1.MaxValue := 10; Se1.MinValue :=1; Se1.MaxValue := 10; StringGrid1.ColCount := SpinEdit1.Value; StringGrid1.RowCount := Se1.Value; end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin StringGrid1.ColCount := SpinEdit1.Value; if SpinEdit1.Value > 5 then StringGrid1.Width := StringGrid1.Width + 36; end; procedure TForm1.se1Change(Sender: TObject); begin StringGrid1.RowCount := Se1.Value; if Se1.Value > 5 then StringGrid1.height := StringGrid1.height + 36; end; procedure TForm1.btn1Click(Sender: TObject); var mas:array[1..100,1..100] of integer; i,j,m,sum:integer; x:real; begin m:=0; x:=0; randomize; for i := 1 to 10 do for j := 1 to 10 do begin mas[i,j]:=random(100)-50; StringGrid1.Cells[i,j]:=inttostr(mas[i,j]); end; end; end. Код:
sum:=0; for i := 1 to 10 do for j := 1 to 10 do summ := summ + mas[i];sr := summ / 10; |
#2
|
||||
|
||||
Так вы определитесь что же вам надо. Среднее арифметическое для суммы элементов или среднее арифметическое для количества элементов. Согласитесь, что количество мешков муки и вес муки в мешках не одно и тоже.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |