Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы / Pascal.1.курс / part 1 / variant 13 / lab5ex2
.PAS {€бб«Ґ¤®ў ЁҐ дгЄжЁ© Ја дЁзҐбЄЁ¬ ¬Ґв®¤®¬}
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.
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