Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Закрытая тема
 
Опции темы Опции просмотра
Старый 24.10.2010, 15:53   #1 (permalink)
MAXA090
Новичок
 
Регистрация: 24.10.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию График функции в Паскале

не могу врубиться как построить этот график в паскале y=x в квадрате + х - 2 на отрезке [-1;1]

помогите пожалста очень надо
MAXA090 вне форума  

Старый 24.10.2010, 15:53
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Не стоит откладывать прочтение схожих тем

График в Excel'e
График на Турбо-Паскале
График функций
Функции на Паскале

Старый 24.10.2010, 19:17   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Цитата:
Сообщение от MAXA090 Посмотреть сообщение
не могу врубиться как построить этот график в паскале y=x в квадрате + х - 2 на отрезке [-1;1]

помогите пожалста очень надо
Например, так:
Код:
Uses Graph, CRT;
VAR
 i,j:INTEGER;
 S:String;
 x,y:Real;

BEGIN
 InitGraph(<параметры задайте сами>);
 Line(20,465,620,465);
 Line(320,5,320,465);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 FOR i:=0 TO 20 DO
  begin
   Line(20+i*30,455,20+i*30,465);
   If (i mod 2)=0 then
    begin
     Str((i-10)/10:4:1,S);
     OutTextXY(20+i*30,470,S);
    end;
  end;

 SetTextJustify(RightText,CenterText);
 FOR i:=0 TO 19 DO
  begin
   Line(320,5+i*23,330,5+i*23);
   Str((-i)/20*2.3:4:1,S);
   OutTextXY(315,5+i*23,S);
  end;
 SetLineStyle(SolidLn,0,ThickWidth);
 MoveTo(20,5+ROUND(-460*(-2)/2.3));
 For i:=-99 to 100 do
  begin
   x:=i/100;
   y:=SQR(x)+x-2;
   LineTo(20+300+ROUND(x*300),5+ROUND(-460*y/2.3));
  end;
 ReadKey;
 CloseGraph;
END.
Должно получиться так: aaaaa01.jpg
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:29.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.