program grafik;
uses crt,graph;
var Driver,mode:integer;
x,h:real;Xg,Yg,I:integer;
const pi=3.14;
begin
driver:=detect;
initgraph (Driver,mode,'C:\BP7.0\BP\BGI');
setcolor(white);
setbkcolor(black);
line(50,250,500,250);
line(270,100,270,400);
line(493,245,500,250);
line(493,255,500,250);
line(262,110,270,100);
line(275,110,270,100);
{x:=0;} h:=4*pi/67;
for I:=160 to 375 do
begin
xg:=0+round(1/h*x);
Yg:=250-Round(50*cos(x/4));
putpixel(Xg,Yg,yellow);
x:=i*h;
end;
moveto(260,255);
outtext('0');
moveto(260,205);
outtext('1');
moveto(290,265);
outtext('pi/8');
moveto(350,265);
outtext('pi/4');
moveto(360,265); {
outtext('3pi/8');}
moveto(215,265);
outtext('-pi/8');
moveto(160,265);
outtext('-pi/4');
moveto(250,100);
outtext('y');
moveto(500,260);
outtext ('x');
moveto(130,40);
outtext ('y=cos(x/4)');
outtext ('   Vypolnil student 4V gruppy:Shaibakov Ilmir');
readln;
end.