Помогите с графиком программы!PASCAL

black778 · 16.12.2012, 03:28

Вообщем,нужно,чтобы программа показывала графически как ведет себя функция.С графиками не очень,спасайте(.А еще если кто знает может сказать,как сделать,чтобы функция задавалась не с кода,а с экрана?
PROGRAM GUFRIP2;
Uses Crt;

Function f(x: Double): Double;
Begin
f:=x*x+x*x*2-3;
End;

Var
x, Eps, a, b, c: Double;

begin
ClrScr;
a:=-100;
b:=100;
Eps:=0.0001;

Repeat
c := (a + b) / 2;
If (f(a) * f(c)) <= 0 Then b := c
Else a := c;
writeln(' ',c:4:7,' ',f(c):4:7);
Until (b - a) <= Eps;

x := (a + b) / 2;
WriteLn('корень* x=', x:10:7);

ReadKey
end.

sheff-09 · 18.12.2012, 15:19

black778, не очень разбираюсь в Pascal, но можно попробовать, например, так:

Код:

uses graph;
const
x1=-10;
x2=10;
var

mx,my,a,x,dx,y:real;
x0,y0,grD,px,py,grM,i,k:integer;
s,s1,F:string;
begin
Write('Введите функцию:');
Readln(F);
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;
Y0:=getmaxY-40;
mx:=600/(x2-x1);
my:=y0/4;
SetBkColor(7); 
SetColor(1);
line(0,y0,getmaxX,y0); 
line(x0,getmaxy,x0,0); 
setcolor(1);  
for i:=1 to 10 do   
   begin
    line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
    line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
    line(x0+round(i*mx),y0-3,x0+round(i*mx),Y0+3); 
    line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
    str(i,s);
    outtextXY(x0-25,y0-round(i*my),s);
    outtextXY(x0-25,y0+round(i*my),'-'+s);
    str(i,s);
    outtextXY(x0+round(i*mx),y0+10,s);
    outtextXY(x0-round(i*mx),y0+10,'-'+s);
  end;
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); 
     if abs(x)>0.001 then
      begin
       y:=(x+3)/(x*x); 
       py:=y0-round(y*my);
       putpixel(px,py,4);
      end;
     x:=x+dx; 
   end;
setcolor(10);
outtextXY(x0+150,y0-50,F);
readln;
end.

16.12.2012, 03:28	#1 (ссылка)
black778 Новичок Регистрация: 16.12.2012 Сообщений: 1 Репутация: 0	Помогите с графиком программы!PASCAL Вообщем,нужно,чтобы программа показывала графически как ведет себя функция.С графиками не очень,спасайте(.А еще если кто знает может сказать,как сделать,чтобы функция задавалась не с кода,а с экрана? PROGRAM GUFRIP2; Uses Crt; Function f(x: Double): Double; Begin f:=xx+xx2-3; End; Var x, Eps, a, b, c: Double; begin ClrScr; a:=-100; b:=100; Eps:=0.0001; Repeat c := (a + b) / 2; If (f(a) f(c)) <= 0 Then b := c Else a := c; writeln(' ',c:4:7,' ',f(c):4:7); Until (b - a) <= Eps; x := (a + b) / 2; WriteLn('корень* x=', x:10:7); ReadKey end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите решить задачу на pascal	Sakhalin	Программирование	0	27.04.2012 14:21
нужна помощь в написании программы в двух видах на Pascal	dimuk	Программирование	0	29.11.2011 21:41
помогите в решение задачи на Pascal ABC	ABC lexa	Программирование	0	27.11.2011 21:15
помогите написать программу в pascal	tatu	Программирование	3	19.09.2011 19:15
Помогите с задачей (реализация С/С++ или Pascal)	MooNDeaR	Программирование	0	29.07.2011 19:49

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Ads