неправильный подсчет мин. значения в цикле

[Elabrion]

Привет всем, не могу понять, почему программа высчитывает не правильное минимальное значение функции? Исходные данные: 2,7 0,8 2,4 0,2
Код:

program lab2;
var
   Q,E:text;
   a,x,xk,xn,dx,w,S,P,max,min:real;
   kol_p,kol_o:integer;
begin
assign(Q,'lab2.dat');
assign(E,'lab2.res');
reset(Q);
rewrite(E);
read(Q,a,xn,xk,dx);
x:=xn;
S:=0;
P:=1;
kol_p:=0;
kol_o:=0;
max:=-99999999;
min:=99999999;
while x<=xk do
begin
if x<=1 then
begin
w:=(a*(ln(x)/ln(10))+exp(1/5*ln(abs(sin(x)*sin(x)*sin(x)/cos(x)*cos(x)*cos(x)-cos(x)))));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end
else
if x>=2 then
begin
w:=ln(a+x)/ln(x)-sin(exp(x))*sin(exp(x))*sin(exp(x));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end
else
begin
w:=(exp((x-1)*ln(a))+exp(1/3*ln(a*x))+(Pi*x*x*x));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end;
if w>0 then kol_p:=kol_p+1
else
kol_o:=kol_o+1;
S:=S+w;
P:=P*w;
x:=x+dx;
if w>max then max:=w
else
if min>w then min:=w;
end;
writeln;
writeln(E,'Сумма = ',S:5:2,' Произведение = ',P:5:2);
writeln;
writeln(E,'Количество положительных значений = ',kol_p:2,' Количество отрицательных значений = ',kol_o:2);
writeln;
writeln(E,'Максимальное значение = ',max:4:2,' минимальное значение = ',min:4:2);
close(Q);
close(E);
end.

[evg_m]

первое значение может быть (и будет) одновременно и максимальным и минимальным (среди уже вычисленных). В твоем коде такое не предполагается.

 if w>max then max:=w
  else
  if min>w then min:=w;

[Elabrion]

что-то я ничего не понял. минимальным - да, оно будет, а вот максимальным нет.
как ты предлагаешь исправить код?

[l1pton17]

Может так?)

program lab2;
var
   Q,E:text;
   a,x,xk,xn,dx,w,S,P,max,min:real;
   kol_p,kol_o:integer;
   first:boolean;
begin
assign(Q,'lab2.dat');
assign(E,'lab2.res');
reset(Q);
rewrite(E);
read(Q,a,xn,xk,dx);
first:=true;
x:=xn;
S:=0;
P:=1;
kol_p:=0;
kol_o:=0;
{max:=-99999999;}
{min:=99999999;}
while x<=xk do
begin
if x<=1 then
begin
w:=(a*(ln(x)/ln(10))+exp(1/5*ln(abs(sin(x)*sin(x)*sin(x)/cos(x)*cos(x)*cos(x)-cos(x)))));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end
else
if x>=2 then
begin
w:=ln(a+x)/ln(x)-sin(exp(x))*sin(exp(x))*sin(exp(x));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end
else
begin
w:=(exp((x-1)*ln(a))+exp(1/3*ln(a*x))+(Pi*x*x*x));
writeln(E,'x=',x:5:2,' w=',w:5:2)
end;
if w>0 then kol_p:=kol_p+1
else kol_o:=kol_o+1;
S:=S+w;
P:=P*w;
x:=x+dx;
if (first=true) then
begin
 max:=w;
 min:=w;
 first=false;
end;
if w>max then max:=w
else
if min>w then min:=w;
end;
writeln;
writeln(E,'Сумма = ',S:5:2,' Произведение = ',P:5:2);
writeln;
writeln(E,'Количество положительных значений = ',kol_p:2,' Количество отрицательных значений = ',kol_o:2);
writeln;
writeln(E,'Максимальное значение = ',max:4:2,' минимальное значение = ',min:4:2);
close(Q);
close(E);
end.

[evg_m]

max:=-99999999;
min:=99999999;

v:=10;

чему должно быть равно НОВЫЕ значениЯ max и min?
при таких (смотри выше) исходных данных.

и чему онИ БУДУТ равны в соответсвии с кодом?

if w>max then max:=w
else
if min>w then min:=w;
end;

а теперь пспробуй посчитать такое

max:=-99999999;
min:=99999999;

v:=10; //первое вычисленное значение
min,max ?
v:=14; // аторое вычисленное значение
min,max ?

что должно быть и что посчитает программа.