Max и min значения функции

[[Garfield]]

На заданном отрезке [a,b] изменения x с шагом h найти наименьшее и наибольшее значения функции y=sin(x*x + c)^2 и запомнить значения аргумента, при котором они полученыю Приняв последние за новые границы, вычислить на нём 10 значений y, включая граничные точки. (задачу оформить с помощью модуля и процедур)

[Stilet]

На заданном отрезке [a,b] изменения x с шагом h найти наименьшее и наибольшее значения функции y=sin(x*x + c)^2 и запомнить значения

var с,ax1,ax2,h,y,x,mx,mn,a,b:double;
begin
 h:=1;a:=0;b:=1;c:=1;mn:=maxint;mx:=-mn;
 x:=a;while x<b do begin
  y:=sqr(sin(x*x + c));
  if y<mn then begin mn:=y;ax1:=x;end;
  if y>mx then begin mx:=y;ax2:=x;end;
  x:=x+h;
 end;
end.

Немного громоздко но думаю сработает

[[Garfield]]

mn:=maxint;mx:=-mn;


а что это такое?

[Ol'ga_new]

Maxint-это наибольшее возможное число целого типа, здесь его принимаем для минимума..., но в данном случае при использовании типа double, логичнее воспользоваться: maxlongint.

[[Garfield]]

ясно....только проблема в том ,что a,b,c,h с клавиатуры задаются

[Stilet]

но в данном случае при использовании типа double, логичнее воспользоваться: maxlongint.

Ой... Не заметил...

только проблема в том ,что a,b,c,h с клавиатуры задаются

И? Read(a); уже отменили?

[[Garfield]]

а,точн) спс)))

[[Garfield]]

у меня воникла проблема,вобщем(сначала напишу модуль,потом саму программу) у меня в конечном итоге:
1. почему то знаению x присвоилось значение b и он при нём посчитал y.
2. мне нужно 10 значений, а он вывел одно
помогите найти ошибку