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

Тема в разделе "Pascal and Delphi", создана пользователем Romag, 27 апр 2012.

Статус темы:
Закрыта.
  1. Romag

    Romag Гость

    Безымянный.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.
     
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    да не... всё работает)

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

Поделиться этой страницей