Минимальное и максимальное значение

@Doker1996 · Регистрация: 14.09.2011

Author24 — интернет-сервис помощи студентам

Вобщем, я табулирую определенную функция, на промежутку [a,b] нужно найти максимальное и минимальное значение протабулированой функции.
А потом посчитать среднее арифметическое минимального и максимального значения.
Я то знаю что это делается с помощью Min, Max и Mean, но вот как их туда подставить??
Помогите пожалуйста!

Одиночка · 10.11.2012, 23:49

Тебе при выводе значений нужно искать максимальное и минимальное значения. Выкладывай свой код табулирования, и посмотрим чего куда там вставить. И Min и Max тут не при чём.

@Doker1996 · 11.11.2012, 00:16 **[ТС]**

Сообщение от Одиночка

Тебе при выводе значений нужно искать максимальное и минимальное значения. Выкладывай свой код табулирования, и посмотрим чего куда там вставить. И Min и Max тут не при чём.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a, b, h, n, k, z, x, y : real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
h := StrToFloat(Edit3.Text);
x := a;
n := 0;
k := 0;
Memo1.Lines.Add('Табулювання функції');
Memo1.Lines.Add('x          y');
repeat
y :=  (sin(x) - (1/2)* sqr(cos(x))) / x ;
If (x > 3) and (x < 4) then n:=n+1;
If _______________ then k:=k+1;
Chart1.Series[0].Add(y, FloatToStr(x),clGreen);
Memo1.Lines.Add(FloatToStr(x)+ '        ' + FloatToStr(y));
x := x+h;
until
x >= b + (h/2);
begin
Edit4.Text :=  FloatToStr(n);
Edit5.Text :=  FloatToStr(k);
z := sqr(n) + k;
Edit6.Text :=  FloatToStr(z);
end;
end;

Там где ___ должно быть вычисление минимального и максимального, просто здесь в задаче, не только это нужно сделать!

@Doker1996 · 11.11.2012, 00:20 **[ТС]**

Вот задача, если что.

Одиночка · 11.11.2012, 00:32

Ты решил табулировать другую функцию? А я в той теме решение тебе выложил. А здесь...
Определи ещё две переменные:

Delphi

1	MinY, MaxY: real;

Перед началом цикла поставь:

Delphi

1 2	MinY := MaxInt; MaxY := -MaxInt;

а вместо строки 15:

Delphi

1 2	If MinY > y Then MinY := y; If MaxY < y Then MaxY := y;

После цикла:

Delphi

1	(MaxY+MinY)/2

- среднее значение - выводи куда нужно.

Не по теме:

Чтобы увидеть выложенный ответ - нужно самому обновлять страницу.

@Doker1996 · 11.11.2012, 00:49 **[ТС]**

Сообщение от Одиночка

Ты решил табулировать другую функцию? А я в той теме решение тебе выложил. А здесь...
Определи ещё две переменные:

Delphi

1	MinY, MaxY: real;

Перед началом цикла поставь:

Delphi

1 2	MinY := MaxInt; MaxY := -MaxInt;

а вместо строки 15:

Delphi

1 2	If MinY > y Then MinY := y; If MaxY < y Then MaxY := y;

После цикла:

Delphi

1	(MaxY+MinY)/2

- среднее значение - выводи куда нужно.

Не по теме:

Чтобы увидеть выложенный ответ - нужно самому обновлять страницу.

Спасибо, большое, все получилось, большое спасибо, за помощь!

@Doker1996 1 / 1 / 0 Регистрация: 14.09.2011 Сообщений: 26
		1
	Минимальное и максимальное значение 10.11.2012, 19:24. Показов 6161. Ответов 5 Метки нет (Все метки) Вобщем, я табулирую определенную функция, на промежутку [a,b] нужно найти максимальное и минимальное значение протабулированой функции. А потом посчитать среднее арифметическое минимального и максимального значения. Я то знаю что это делается с помощью Min, Max и Mean, но вот как их туда подставить?? Помогите пожалуйста! 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	10.11.2012, 23:49	2
	Тебе при выводе значений нужно искать максимальное и минимальное значения. Выкладывай свой код табулирования, и посмотрим чего куда там вставить. И Min и Max тут не при чём. 1

	11.11.2012, 00:49