Помогите бедному крестьянину

[БЕР]

Помогите бедному крестьянину

Разработка алгоритма табулирования функции. Вычисление значения функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организация вывода значения аргумента и вычисленного значения функции в виде таблицы.

 

[shrek=)]

Как-то так:

const
h=0.5;
a=2.6;
b=-0.39;
var
y,x:real;
begin
x:=0;
while x<>7 do begin
  if (x<2.8) then
  y:=(a+b)/exp(x)+cos(x);
    if (x>=2.8) and (x<6) then
    y:=(a+b)/(x+1);
      if (x>6) then
      y:=exp(x)+sin(x);
writeln ('x=',x:1:3,' y=',y);
x:=x+h;
end;
readln
end.

Если я не прав поправьте!

 

[Vladimir_S]

Фу, чушь какая...

CONST
 a=2.6;
 b=-0.39;
 Xbeg=0.0;
 Xfin=7.0;
 dx=0.5;
VAR
 x:Real;
 i,N:Integer;

Function Y(z:real):Real;
begin
 If z<2.8 then Y:=(a+b)/(Exp(z)+Cos(z)) else
 If z<6.0 then Y:=(a+b)/(z+1) else
 Y:=Exp(z)+Sin(z);
end;

BEGIN
 N:=ROUND((Xfin-Xbeg)/dx);
 For i:=0 to N do
  begin
   x:=Xbeg+dx*i;
   Writeln(x:3:1, Y(x):12:3);
  end;
 Readln
END.

P.S. Ну вот, аж целых 2 варианта .

 

[БЕР]

Благодарность

Огромная человеческая благодарность обоим авторам!!! Бер