Проверьте Пожал Написать Программу На Табулирования Сложной Функции

  • Автор темы Romag
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

Romag

Гость
#1
Безымянный.jpg
почему то не работает программа на табулирования сложной функции
program z10_4;
uses crt;
var x,z,z1,z2,y:real;
i,n:integer;
begin
clrscr;
x:=-2;n:=1;
while x<=3.5 do
begin
y:=x/(2*n);
z:=x/2;
for n:=2 to 8 do
z1:=z+y*x;
z1:=z1*(x/2);
n:=1;
y:=sqr(x)/(4*n);
z2:=0;
for n:=1 to 6 do
z2:=z2+y*sqr(x);
z2:=z2*(sqr(x)+1)/3;
z:=z1+z2;
writeln('z(',x:2:2,')=',z:2:2);
x:=x+0.5;
end;
end.
 

Senset

Well-Known Member
11.09.2006
136
0
#2
да не... всё работает)

только вот сами вычисления сумм странные) в вашей реализации... по вашему коду изменяется только x, а при подсчете суммы должно меняться и n (и это измененное n должно быть тоже в цикле)
 
Статус
Закрыто для дальнейших ответов.