Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2009, 16:11   #1
katris
Пользователь
 
Регистрация: 25.10.2009
Сообщений: 22
По умолчанию Подскажите, что неверно написано?..

Задание такое: Вычислить и вывести на экран значения функции, заданной с помощью ряда Тейлора на интервале от х нач. до х кон. с шагод дельта х с точность Е.
Код:
program Project21;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var xk,dx,E,x,n:real; S,H,f:extended; a:integer;


  begin

  writeln ('xn='); read (x);
  writeln ('xk='); read (xk);
  writeln ('dx='); read (dx);



  while x<=xk do
    begin

    S:=x;
    H:=x;
    E:=0.001;
    a:=1;
    n:=n+1;
    F:=1;

    while (1/a)>=E do
    begin
       f:=f*(n+1)*(n+2);
       H:=H*sqr(x);
       if (a mod 2 = 0) then S:=S+(H/f)
       else S:=S-(H/f);
       a:=a+1;

      end;
    writeln (f, h);
    writeln ('x=',x:4:2,' F=',S:4:2,' N=',n:4:1);

    x:=x+dx;
    readln;
        end;
readln;

end.
Замечание модератора: Используйте тег [CODE]

Последний раз редактировалось Rembo; 25.10.2009 в 18:28.
katris вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что неверно в макросе? Иванов_ДМ Microsoft Office Excel 11 22.05.2009 20:57
Неверно обрабатывается GET-запрос Cold_Night Работа с сетью в Delphi 3 31.03.2009 11:17
программа считывает символы не полностью, причём произвольное количество. Написано на Си Crasty Помощь студентам 2 25.02.2009 14:53
Задача на Repeat! все написано, проверьте... Andrux Помощь студентам 1 28.12.2008 10:38
sql запрос работает неверно :( Vasya БД в Delphi 4 26.08.2007 13:59