Программа табулирования сложной функции

09.06.2011, 13:56. **Показов** 1268. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, доделываю ргз и последнее задание -написать программу табулирования сложно й функции, есть такой вариант, но не совсем рабочий, что нужно сделать чтоб заработал??

Procedure Tab(a,b,h,e:real);
Var
n,f,x,y:real;
begin
f:=1;
y:=0;
x:=a;
while x<=b do
begin
if x<1 then
begin
n:=0;
while abs(f)>e do
begin
y:=y+f;
n:=n+1;
f:=f*(sqr(x)/n);
end;
end
else
begin
n:0'
while abs(f)>=e do
begin
y"=y+f;
n:=n+1;
f:=f*(1/n);
end;
end;
end;
writeln('x=',x:6:2,' ','y=',y:6:2);
x:=x+h;
readln;
end;

@Питер Блад · 10.06.2011, 03:31

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

SilviaK
		1
	Программа табулирования сложной функции 09.06.2011, 13:56. Показов 1268. Ответов 1 Метки нет (Все метки) Помогите пожалуйста, доделываю ргз и последнее задание -написать программу табулирования сложно й функции, есть такой вариант, но не совсем рабочий, что нужно сделать чтоб заработал?? Procedure Tab(a,b,h,e:real); Var n,f,x,y:real; begin f:=1; y:=0; x:=a; while x<=b do begin if x<1 then begin n:=0; while abs(f)>e do begin y:=y+f; n:=n+1; f:=f(sqr(x)/n); end; end else begin n:0' while abs(f)>=e do begin y"=y+f; n:=n+1; f:=f(1/n); end; end; end; writeln('x=',x:6:2,' ','y=',y:6:2); x:=x+h; readln; end;

@Питер Блад 1 / 1 / 0 Регистрация: 10.06.2011 Сообщений: 5
	10.06.2011, 03:31	2
	Напишите функцию нормальным выражением, не факт, что ваша запись правильная, да и удобнее для восприятия 0