протабулировать функцию

[Broneslav]

тут в задаче надо протабулировать функцию у.. и вычислить произведение таких у, модуль которых больше с... с вводишь сам..

Var
j,i,n :integer;
x,y,h,a,b,c,Proizv  : real;
function f(x:real) ^real;
begin
a:=-100;
b:=100;
h:=0,5;
n:=trunk((b-a)/h);
for i:=0 to n do
begin
x:=a+i*h;
y:=cos(x)*exp(-x)+ln(abs(x));
writeln('x=',x:10:4','y=',y:10:4);
end;
writeln('vvedite c');
readln(c);
Proizv:=0;
for j:=0 to n do begin
if(j>c),(j<-c) then begin
Proizv:=Proizv*j;
end
else 
Proizv:=Proizv;
end;writeln(Proizv:9:3);
readln;
end.

[puporev]

uses crt;
Var x,y,h,a,b,c,Proizv:real;
begin
clrscr;
write('c=');readln(c);
a:=-4; {зачем от -100 до 100, на экран не влезет, да и произведение будет очень уж большое}
b:=4;
h:=0.5;{если известен шаг, то зачем еще и n?}
x:=a;Proizv:=1;{если Proizv:=0;, то результат всегда будет ноль!}
while x<=b do
  begin
   if x=0 then writeln('x=',x:10:4,' Y ne opredelen!'){а конкретно ln(0)}
   else
     begin
      y:=cos(x)*exp(-x)+ln(abs(x));
      writeln('x=',x:10:4,'   y=',y:10:4);
      if abs(y)>c then Proizv:=Proizv*y;
     end;
   x:=x+h;
  end;
writeln;
writeln('Proizvedenie=',Proizv:0:4);
readln
end.

[JTG]

Гыгы, протабулировать - это не табов натыкать, а вычислить значение функции от х1 до х2 с каким-то шагом

[Broneslav]

а почему х:=а? разве он не вычисляется по формуле х:=а+i*h?

[puporev]

а почему х:=а? разве он не вычисляется по формуле х:=а+i*h?

Сначала х принимет начальное значение х=а, потом в цикле, пока не будет больше b увеличиваеся каждый раз на h.
Конструкция х:=а+i*h была правильной, когда использовался цикл
for i:=1 to n. Но мы его заменили на цикл while x<=b и надобность в этом отпала. Вообще если задан шаг, то надо использовать цикл while, потому что количество точек нас уже не волнует.

Гыгы, протабулировать - это не табов натыкать, а вычислить значение функции от х1 до х2 с каким-то шагом

Честно, юмора не понял. Вроде про табы никто и не говорил.

[Broneslav]

понятно) спасибо огромное!

[JTG]

Сообщение от puporev

Честно, юмора не понял. Вроде про табы никто и не говорил.

Опс, извиняюсь Показалось код тот же