Практикум по решению задач на ЭВМ. Тарова И.Н - 90 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
xc:=xa+lx;yc:=ya-ly;
grDriver:=detect;
InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
ErrCode:=GraphResult;
if ErrCode=grOk then
begin
{построение контура окна(с заливкой)}
SetColor(2);
Setfillstyle(1,green);
bar(xa,ya,xc,yc);{закрашенный прямоугольник}
setcolor(white);
line(xa,y0,xc,y0);
line(x0,ya,x0,yc);
{построение графика}
for i:=1 to n do
begin
x:=a+(i-1)*h;y:=f(x);
x11:=round(mx*x);y11:=round(my*y);
putpixel(x0+x11,y0-y11,white);
end;
{line(100,100,200,200);
Rectangle(100,120,50,50);}
repeat until keypressed;
end;
CloseGraph;
END.
90
                           Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  xc:=xa+lx;yc:=ya-ly;
    grDriver:=detect;
    InitGraph(grDriver,grMode,'D:\Soft\BP\BGI');
    ErrCode:=GraphResult;
    if ErrCode=grOk then
     begin
     {построение контура окна(с заливкой)}
    SetColor(2);
    Setfillstyle(1,green);
  bar(xa,ya,xc,yc);{закрашенный прямоугольник}
    setcolor(white);
    line(xa,y0,xc,y0);
    line(x0,ya,x0,yc);
    {построение графика}
    for i:=1 to n do
       begin
         x:=a+(i-1)*h;y:=f(x);
         x11:=round(mx*x);y11:=round(my*y);
         putpixel(x0+x11,y0-y11,white);
       end;
    {line(100,100,200,200);
   Rectangle(100,120,50,50);}
   repeat until keypressed;
   end;
  CloseGraph;
END.




                                90

Страницы