Технический форум - Помогите бедному крестьянину

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Помогите бедному крестьянину (http://www.tehnari.ru/f43/t59965/)

БЕР	18.11.2011 21:40

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

Вложений: 1

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

shrek=)

19.11.2011 09:46

Как-то так:

Код:

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

19.11.2011 09:58

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

Код:

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 варианта :D.

БЕР	19.11.2011 18:55

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

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

Часовой пояс GMT +4, время: 06:51.