Vladimir_S |
24.10.2010 19:17 |
Вложений: 1
Цитата:
Сообщение от MAXA090
(Сообщение 408940)
:tehnari_ru_837: не могу врубиться как построить этот график в паскале y=x в квадрате + х - 2 на отрезке [-1;1]
помогите пожалста очень надо :tehnari_ru_942:
|
Например, так:
Код:
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.
Должно получиться так: Вложение 23888
|