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

БЕР · 18.11.2011, 21:40

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

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

.

БЕР · 19.11.2011, 18:55

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

18.11.2011, 21:40	#1 (permalink)
БЕР Новичок Регистрация: 18.11.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите бедному крестьянину Разработка алгоритма табулирования функции. Вычисление значения функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организация вывода значения аргумента и вычисленного значения функции в виде таблицы. Миниатюры

19.11.2011, 09:46	#2 (permalink)
shrek=) Студент БГПУ Регистрация: 06.02.2010 Сообщений: 420 Записей в дневнике: 3 Сказал(а) спасибо: 1 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 470	Как-то так: Код: 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. Если я не прав поправьте!

19.11.2011, 09:58	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Фу, чушь какая... Код: 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 варианта .

19.11.2011, 18:55	#4 (permalink)
БЕР Новичок Регистрация: 18.11.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Благодарность Огромная человеческая благодарность обоим авторам!!! Бер

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070