Найти сумму всех значений функции

@Евдокия · Регистрация: 24.10.2013

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

Используя ф-цию $https://www.cyberforum.ru/cgi-bin/latex.cgi?F(x)= 9*\cos {x}^{2}$ , построить массив с элементами $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}_{k}=F(k)$ . Найти:
1) Сумму всех значений ф-ции.
2) значение х, при котором ф-ция достигает минимума.
С 1-м пунктом я разобралась. Что нужно добавить в программу, чтобы найти значение х, при котором ф-ция достигает минимума?

Pascal

 program ех;
uses CRT;
var n:integer; 
Y: array [1..100] of real; 
S: real; 
k: integer; 
function F(x: real): real;
begin
F:=9*cos(sqr(x));
end;
begin
clrscr;
write('Введите кол-во членов последовательности  n:');
readln(n);
writeln(' x   Y(x));
for k:=1 to n do
begin
Y[k]:=F(k);
Writeln(k:5,Y[k]:5:2);
S:=S+Y[k];
end;
writeln('Сумма элементов массива S=',S:5:2);
end.

@code-n'-help · 19.02.2014, 16:57

Попробуй поставить скобки в 15 строке.

@Евдокия · 19.02.2014, 17:52 **[ТС]**

Поставила. Как мне найти значение х, при котором функция будет минимальной?

@Евдокия · 20.02.2014, 17:05 **[ТС]**

Ну помогите мне с программой

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	19.02.2014, 16:57	2
	Попробуй поставить скобки в 15 строке. 1

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	19.02.2014, 17:52 [ТС]	3
	Поставила. Как мне найти значение х, при котором функция будет минимальной? 0

@Евдокия 8 / 8 / 1 Регистрация: 24.10.2013 Сообщений: 205
	20.02.2014, 17:05 [ТС]	4
	Ну помогите мне с программой 0

Опции темы