Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.09.2008, 22:44   #11
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Немного ошибся с суммой, считал с 1, а не с 0. График правильный, но очень некрасивый
Код:
uses graph, crt;
var
  kx, ky, x, e, slag: real;
  sum: array[-1..250] of real;
  i, j: integer;
  gd, gm: integer;
function fact(a: byte): longint;
begin
  if a > 1 then fact := a * fact(a - 1)
  else fact := 1
end;
begin
  write('x, e == '); readln(x, e);
  i := -1;
  sum[i] := 0;
  repeat
    inc(i);
    slag := exp((2*i-1)*ln(x)) / (fact(2*i+1)*(2*i-1));
    if i mod 2 = 0 then slag := -slag;
    if abs(slag) < e then break;
    sum[i] := sum[i-1] + slag;
    writeln(i:5, slag:15:8, sum[i]:15:8)
  until false;
  readln;

  gd := detect;
  initgraph(gd, gm, '');
  line(0, getmaxy div 2, getmaxx, getmaxy div 2);
  line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
  kx := getmaxx / 3 / i;
  ky := getmaxy / 3 / sum[i-1];
  moveto(getmaxx div 2, getmaxy div 2);
  for j := 0 to i-1 do
  begin
    setcolor(random(5)+5);
    lineto(getmaxx div 2 + round(kx*j),
           getmaxy div 2 - round(ky*sum[j]));
  end;
  readln;
  closegraph
end.
Для правильной работы скопировать в папку с турбо Паскалем

Последний раз редактировалось eoln; 22.09.2008 в 07:50. Причина: цвет
eoln вне форума Ответить с цитированием
Старый 21.09.2008, 23:17   #12
Horknee
Пользователь
 
Регистрация: 21.09.2008
Сообщений: 70
По умолчанию

Он опять пишет, что нет файла graph.tpu а когда я удаляю строчку uses и запускаю снова, он пишет error 3: unknown identifier и переносит курсор на сторку gd :=detect;
Horknee вне форума Ответить с цитированием
Старый 21.09.2008, 23:46   #13
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Файлы graph.tpu и egavga.bgi (иногда другой) нужны обязательно. Скачай нормальный Turbo Pascal
Вложения
Тип файла: rar tp.rar (933.9 Кб, 37 просмотров)
eoln вне форума Ответить с цитированием
Старый 22.09.2008, 00:08   #14
Horknee
Пользователь
 
Регистрация: 21.09.2008
Сообщений: 70
По умолчанию

Спасибо, теперь ошибок нет, но не понимаю, где можно увидеть график после ввода x и e
Horknee вне форума Ответить с цитированием
Старый 22.09.2008, 00:14   #15
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Мда... после вывода таблицы на экран жмём ENTER, далее будет график. Сразу скажу, что на 2-3-их шагах приращение функции мало по отношению к приращению аргумента, поэтому график будет почти прямой.
eoln вне форума Ответить с цитированием
Старый 23.09.2008, 09:50   #16
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Как пример рисование графика функции (улитка Паскаля)
Вложения
Тип файла: rar ULITKA.rar (1.4 Кб, 38 просмотров)
madmot вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как построить график Nijaz Общие вопросы Delphi 5 09.06.2014 11:25
Построить график функции, используя компонент TChart. vitalik007 Компоненты Delphi 3 09.06.2014 11:20
Графика в паскале (построить график функции) matic Помощь студентам 4 26.11.2012 17:02
построить график по формуле Prof Помощь студентам 1 02.06.2008 08:07