Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
ВнизВопрос по массивам ? Найти похожие ветки
← →
Barlok (2003-05-26 19:14) [0]Подскажите как в матрице a : array[1..n,1..n] of real найти среднее арифметическое элементов каждой строки матрицы и вычисть его из элементов этой строки. Помогите пожалуйста.
← →
Palladin (2003-05-26 19:19) [1]тоже высшее, судя по возрасту последний курс... педучилища...
← →
Barlok (2003-05-26 19:23) [2]Это ответ :) .
← →
VMcL (2003-05-26 19:24) [3]>Barlok © (26.05.03 19:14)
Среднее арифметическое не находят, его вычисляют.
← →
MegaVolt (2003-05-26 19:24) [4]Функция Mean (
const Data: array of Double ): Extended;
--------------------------------------------------------------------------------
Модуль: Math
Описание
Функция возвращает среднее арифметическое всех значений массива чисел Data.
Пример
var
Mas: array of Real;
m: Real;
i: byte;
begin
...
SetLength(Mas, 10);
for i:= 0 to 9 do Mas[i]:= i/10;
m:= Mean(Mas); // m:= 0.45
...
end;
Взято с http://www.atrussk.ru/delphi/5/content.htm
← →
Palladin (2003-05-26 19:26) [5]1 операция сложения в паскале это символ "+", пример - x:=y+z
2 операция вычитания в паскале это символ "-", пример - x:=y-z
3 среднее арифметическое считается так: берутся все цифры и складываются, а потом полученая сумма делится на количество этих цифр - пример SredneeArif:=(x+y+z)/3;
догоняешь?
← →
MegaVolt (2003-05-26 19:31) [6]Так лениво же самому писать это :) Есть же готовая функция. Врядли чел. спрашивал формулу для расчёта :) Хотя всё бывает :)
← →
VMcL (2003-05-26 19:32) [7]>Palladin © (26.05.03 19:26)
>берутся все цифры и складываются
Цифры ли? Или, всё-таки, числа, :)
← →
Palladin (2003-05-26 19:33) [8]
> VMcL © (26.05.03 19:32)
рано ему еще с числами работать, дети начинают понимать разницу между числами и цифрами в более позднем возрасте, а пока для него везде цыферьки...
← →
VMcL (2003-05-26 19:34) [9]>Palladin © (26.05.03 19:33)
Deal.
← →
Barlok (2003-05-26 19:42) [10]Я делаю на Delphi через StringGrid. Ввожу числа в StringGrid
запоминаю в матрице a[i,j],
for j := 1 to n do
for i := 1 to n do
begin
a[i,j] := StrToFloat(StringGrid1.Cells[i-1,j-1]);
end;
дальше незнаю.
← →
old_monkey (2003-05-26 21:05) [11]Ну не знаешь, так пробеги в цикле for - самый дубовый способ.
Его в средней школе проходят. Без уклона - 10 кл, с уклоном - 7.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c