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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.11.2007, 22:04   #1
LEX.darnica
Пользователь
 
Регистрация: 25.11.2007
Сообщений: 17
Восклицание Построить график в Паскале.

построить график
Y=Х*ln(x)/(x+2) на промежутке от 1 до 2
с сеткой, стрелочками,нумерацией.
LEX.darnica вне форума Ответить с цитированием
Старый 28.11.2007, 14:24   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

А что у тебя самого не получается?
I like WPF
kommunist вне форума Ответить с цитированием
Старый 28.11.2007, 14:41   #3
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

Вот тебе сетки стрелочки нумерация и оси координат
график попробуй сам достроить.

Код:
program Zadacha_1;
uses
  crt, graph;
const
  ED = 15;{Kolichestvo tochek po osi x na odnoi storone}
var
  Driver, Mode       : Integer;
  dx, i, xC, yC,
  xI, yI             : Integer;

  x, y               : Real;
{_______________________________________}
  begin
  ClrScr;
{Vvod dannih}

  writeln('Vvedite x: ');
  ReadLn(x);

{Raschet y po dannomu x}
  if x < 0 then
    writeln('v tochke s argumentom = ', x:4:4,
            ' znachenie functsii ne opredeleno');
    else
    y:= Õ*ln(x)/(x+2);
    readkey;
    exit;
  end;
{______________________________________}
{initializatsia grafiki}
  Driver := Detect;
  initGraph(Driver, Mode, '');
  SetTextStyle(2, 0, 3);
{______________________________________}
  {Chertim osi koordinat}
  xC := GetMaxX div 2;
  yC := GetMaxY div 2;
  Line(0, yC, xC * 2, yC);
  Line(xC, 0, xC, yC * 2);
{______________________________}
{Vicherchivaem delenia}
  dx := xC div ED;
  xI := xC - ED * dx;
  repeat
    Str((xI - xC) div dx, s);
    Line(xI, yC - 2, xI, yC + 2);

    if xI <> xC then
      OutTextXY(xI - 3, yC + 5, s);
    Inc(xI, dx);
  until xI > xC * 2;

  yI := yC - ED * dx;
  repeat
    Str((yC - yI) div dx, s);
    Line(xC - 2, yI, xC + 2, yI);

    if yI <> yC then
      OutTextXY(xC + 5, yI - 3, s);
    Inc(yI, dx);
  until yI > yC * 2;
{______________________________________}
{Chertim graphic}


end.
I like WPF
kommunist вне форума Ответить с цитированием
Старый 28.11.2007, 18:11   #4
LEX.darnica
Пользователь
 
Регистрация: 25.11.2007
Сообщений: 17
По умолчанию

Цитата:
Сообщение от kommunist Посмотреть сообщение
А что у тебя самого не получается?
спасибо. получаеться осталось только график?
LEX.darnica вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как построить график Nijaz Общие вопросы Delphi 5 09.06.2014 11:25
Графика в паскале (построить график функции) matic Помощь студентам 4 26.11.2012 17:02
как построить график в паскале? Vitas1234 Паскаль, Turbo Pascal, PascalABC.NET 1 11.06.2008 16:53
построить график по формуле Prof Помощь студентам 1 02.06.2008 08:07