Проектирование алгоритмов и программ с использованием цикла с предусловием

[Сергей Наумов]

Проектирование алгоритмов и программ с использованием цикла с предусловием

Люди добрые, помогите пожалуйста решить программу, очень срочно надо. :tehnari_ru_837: Буду очень признателен всем, кто поможет. Программа выглядит так:
Значение функции f(x)=2cos5/4x заданы в точках x= x0(hx)xn . Определить среднее значение функции f(x), определенных в заданных точках и имеющих положительные значения.

Форумчане, выручайте!!!!!:tehnari_ru_837:
И если кто решит проявить инициативу, то не откажусь от блок-схемы к программе.

 

[Vladimir_S]

Так - ну, судя по меткам, речь идет о Паскале. Или нет? И почему это последнее время почти все, кто к нам обращается, не утруждают себя указанием ЯП?
Эта высокопарная дребедень насчет "цикла с предусловием" означает попросту оператор while...do? Или я не так понимаю?
Фразу "Определить среднее значение функции f(x), определенных в заданных точках и имеющих положительные значения." решительно не понял. Она и грамматически-то не согласована! Будьте любезны внятно своими словами разъяснить принцип отбора.

 

[shrek=)]

С помощью лома и какой-то там матери, у меня получилось вот такое решение

var
p,h,x0,y:real;
n,i,k:integer;
begin
write ('x0='); {Начальное значение}
readln (x0);
write ('n='); {Количество значений}
readln (n);
write ('h='); {Шаг изменения значения X}
readln (h);
i:=1;
p:=0;
while i<>n do begin
y:=2*cos(5/(4*x0)); {Нахождение f(x)}
x0:=x0+h; {Увеличение значения X}
inc(i);
if y>0 then begin {Выявление положительного значения функции}
p:=p+y; {Нахождение суммы f(x) удовлетворяющих условию}
inc(k); 
end;
end;
p:=p/k;
write ('Среднее значение функции',p);
readln
end.

Но я не совсем уверен.