VPF::Вычисление функции - Форум программистов

felmor

Дата 26.12.2008, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.12.2008

Репутация: нет
Всего: -1

Большая просьба помочь с этой не легкой програмкой
Спасибо

user posted image

volvo877

Дата 26.12.2008, 19:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Ссылки внизу страницы смотрел? Там же есть вычисление рядов. И в поиске есть, сколько можно одно и то же спрашивать? Не надоело велосипеды-то изобретать?

Код

function _cos(x: real): real;
const eps = 1E-9;
var
  i: integer;
  s, next: real;
begin
  next := 1; i := 1;
  repeat
    s := s + next;
    next := - next * sqr(x) / (i * succ(i));
    inc(i, 2);
  until abs(next) < eps;
  _cos := s;
end;

const
  A = 5;
  step = 0.25;
var
  x: real;

begin
  x := 0;
  writeln('x':5, 'func':16, 'cos':16);
  while x < A + step/2 do begin
    writeln(x:5:2, _cos(x):16:12, ' ', cos(x):16:12);
    x := x + step;
  end;
end.

Dobermann

Дата 27.12.2008, 02:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

Цитата(volvo877 @ 26.12.2008, 19:33

)

Не надоело велосипеды-то изобретать?

Данный велосипед называется СЕССИЯ smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »