![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Код:
var Form1: TForm1; M:array[0..4,0..4] of Double; MAX,i,j: Integer; SREDN: Double; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject); begin for i:=0 to 4 do for j:=0 to 4 do begin Randomize; M[i,j]:=Random(9)+1; SG.Cells[j,i]:=FloatToStr(M[i,j]); end; SREDN:=2*(Mean(M[i,j])); LabeledEdit1.Text:=FloatToStr(SREDN); end; end. Считать не хочет и в Едит выводит 0. Помогите |
#2
|
|||
|
|||
![]() Для начала - Randomize вынести из цикла
Во вторых, в функцию Mean нужно подавать одномерный массив Double, Для двумерного напиши сам |
#3
|
||||
|
||||
![]() Код:
procedure TForm1.SpeedButton1Click(Sender: TObject); Var AMid: Array[0..4] of Extended; begin Randomize; for i:=0 to 4 do begin for j:=0 to 4 do begin M[i,j]:=Random(9)+1; SG.Cells[j,i]:=FloatToStr(M[i,j]); end; AMid[i] := Mean(M[i]); end; LabeledEdit1.Text := FloatToStr(Mean(AMid)); end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
hsMapk (28.06.2014)
|