Пошук середнього арифметичного рядка двомірного масиву
Діалогове вікно програми пошуку середнього арифметичного рядка двомірного масиву містить відповідним чином налаштований компонент stringGrid. Значення елементів однови-мірного масиву складаються із середнього арифметичного значень елементів строк двовимірного масиву. Процедура пошуку середнього арифметичного елемента: Процедура вводу значень масиву через формулу: Алгоритм може складатися… Читати ще >
Пошук середнього арифметичного рядка двомірного масиву (реферат, курсова, диплом, контрольна)
Алгоритм ошуку середнього арифметичного рядка двомірного масивудосить очевидний: спочатку знаходимо суму елементів першого рядка, потім ділимо на 5, цикл переходить далі. Знаходиться друге середнє арифметичне другого рядка, третього та четвертого, і виводиться в одномірний вертикальний масив.
Алгоритм може складатися з декількох частин:
читання значень елементів масиву;
процес додавання та ділення результату;
вивід результату;
Діалогове вікно програми пошуку середнього арифметичного рядка двомірного масиву містить відповідним чином налаштований компонент stringGrid.
Далі буде приведена процедура обробки події Onclick для командної кнопки Button1, яка вводить масив, виконує пошук середнього арифметичного елемента і виводить результат — середньє арифметиче рядка двомірного масиву масиву.
Тексти процедур Delphi-програми
№ варіанта. | Розмірність. | Тип даних. | Вираз для обчислення елементу масиву. | Виконати. | |
непарного. | парного. | ||||
4 х 5. | Дійсний. | 15. 5 — i. | 7. 2 + i. | Значення елементів однови-мірного масиву складаються із середнього арифметичного значень елементів строк двовимірного масиву. |
Процедура пошуку середнього арифметичного елемента:
procedure TForm1. Button1Click (Sender: TObject) ;
var.
s, sr: real;
begin.
For i: =1 To 4 Do.
For j: =1 To 5 Do.
If (StringGrid1. Cells[j-1, i-1]='') Then.
SG1[i, j]: =0.
Else.
SG1[i, j]: =StrToFloat (StringGrid1. Cells[j-1, i-1]) ;
For i: =1 To 4 Do.
Begin.
s: =0;
sr: =0;
For j: =1 To 5 Do.
s: =SG1[i, j]+s;
sr: =s/5;
SG2[i]: = sr;
End;
For i: =1 To 4 Do.
StringGrid2. Cells[0, i-1]: = FloatToStr (SG2[i]) ;
end;
Процедура вводу значень масиву через формулу:
procedure TForm1. Button5Click (Sender: TObject) ;
begin.
k: =1;
For i: =1 To 4 Do.
For j: =1 To 5 Do.
Begin.
If ((k Mod 2) 0) Then.
StringGrid1. Cells[j-1, i-1]: =FloatToStr (15. 5-k).
Else.
StringGrid1. Cells[j-1, i-1]: =FloatToStr (7. 2+k) ;
k: =k+1;
End;
end;
Процедура очищення середовища таблиць:
procedure TForm1. Button3Click (Sender: TObject) ;
begin.
For i: =1 To 4 Do.
For j: =1 To 5 Do.
StringGrid1. Cells[j-1, i-1]: ='';
For i: =1 To 5 Do.
Begin.
StringGrid2. Cells[0, i-1]: ='';
SG2[i]: =0;
End;
end;
Процедура вводу значень масиву випадково:
procedure TForm1. Button2Click (Sender: TObject); {ВИПАДКОВИЙ}.
begin.
Randomize;
For i: =1 To 4 Do.
For j: =1 To 5 Do.
StringGrid1. Cells[j-1, i-1]: =FloatToStr (Random (101) /2−25) ;
end;