Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
8
Добавлен:
17.04.2013
Размер:
1.46 Кб
Скачать
{€бб«Ґ¤®ў ­ЁҐ дг­ЄжЁ© Ја дЁзҐбЄЁ¬ ¬Ґв®¤®¬}

Program Cursov;
Uses crt,graph;
Const step=0.05;
Var i,j,driver,mode,kx,ky,Gd,Gm:integer;
y,x0,dx,x:real;






Procedure Koord;
Begin
SetColor(Green);
SetLineStyle(0,1,3);
Line(0,-225,0,225);
Line(0,-225,-4,-220);
Line(0,-225,4,-220);
Line(-270,0,270,0);
Line(270,0,260,4);
Line(270,0,260,-4);
SetColor(LightGreen);
SetLineStyle(0,0,2);
For i:=-10 to 10 do Line(i*kx,2,i*kx,-2);
For j:=-10 to 10 do Line(2,j*ky,-2,j*ky);
OutTextXY(260,10,'x');
OutTextXY(-15,-225,'y');
SetColor(LightGreen);
End;




Procedure Giperb;
Begin
kx:=200 div 10; ky:=200 div 10;
x0:=-220;
SetFillStyle(0,Black);
Bar(-310,200,-80,207);
Koord;
Repeat
y:=cos(x)/(x+1);
x:=x0/kx;
SetLineStyle(0,1,2);
PutPixel(Round(x0),-Round(y*ky),White);
x0:=x0+step;
until x0>220;
end;

Begin
Driver:=detect;
Initgraph(Driver,Mode,'e:\BP\BGI');
SetViewPort(320,240,520,440,Clipoff);
Repeat
ClearDevice;
SetColor(Green);
SetTextStyle(0,0,2);
ClearDevice;
giperb;
Until readkey=#27;
CloseGraph;
End.








Соседние файлы в папке variant 13