.


:

:



,



( , )

:

































 

 

 

 
FAQ

.

⇐ 12



Program N2;

var M: Array [1..10] of Integer; Max: Integer; I: Byte;

begin Writeln(' 10 : ');

For I:= 1 to 10 do

begin Write('N',i,': ');

Readln(M[i]);

end;

Max:= M[1];

For I:= 1 to 10 do

if Max < M[i] then Max:= M[i];

Write(' : ', Max);

Readln;

end

% 1

.

% 2

10 .

% 3

15 .

% 4

10 .

% 5

15 .

GRAPH. 79 , , . GRAPH : CGA, MCGA, EGA, VGA, HERCULES, AT&T, 3270 PC. BGI.

:

program ;
USES GRAPH; { }
var GR,GM:integer;
begin
GR:=detect;
initgraph(gr,gm,' '); { GRAPH}

readln;
closegraph;
end.

INITGRAPH(, , '') - . - , . - integer, (GM). - TPU.

DETECT - .

CLOSEGRAPH - .


0 -
1 -
2 -
3 -
4 -
5 -
6 -
7 - -
8 - -
9 - -
10 - -
11 - -
12 - -
13 - -
14 -
15 -


:

  1. SETCOLOR() - ;
  2. SETBKCOLOR() - ;
  3. MOVETO(x,y) - x,y, ;
  4. LINETO(x,y) - x,y;
  5. LINEREL(Dx,Dy) - Dx,Dy;
  6. PUTPIXEL(x,y,) - ;
  7. LINE(x1,y1,x2,y2) - ;
  8. CIRCLE(x,y,r) - ;
  9. ARC(x,y, , ,r) - ( );
  10. ELLIPSE(x,y,.,.,Rx,Ry) - ;
  11. RECTANGLE(x1,y1,x2,y2) - , x1,y1 - , x2,y2 - ;
  12. BAR(x1,y1,x2,y2) - ;
  13. BAR3D(x1,y1,x2,y2,,false true) - ;
    x1,y1 - ; x2,y2 - , true - , false - .
  14. FILLELLIPSE(x,y,Rx,Ry) - ;
  15. SECTOR(x,y,.,.,Rx,Ry) - ;
  16. SETFILLESTYLE(,) - ;

    :


0 -
1 -
2 - _ _ _
3 - ////
4 - ///
5 - \\\\
6 - \\\
7 - ++++
8 - x x x
9-
10 -
11 -
12 -


  1. FLOODFILL(x,y,, ) - ;

:


1.
program g1;
uses graph;
var gr,gm:integer;
begin
gr:=detect;
initgraph(gr,gm,' ');
setcolor(3);
setbkcolor(14);
setfillstyle(8,4);
fillellipse(100,100,30,50);
setfillstyle(2,2);
circle(200,200,50);
floodfill(200,200,3);
readln;
closegraph;
end.

 

 

2.
program g2;
uses graph,crt;
var d,r,e:integer;
{ }
begin
d:=detect;
initgraph(d,r,' ');
e:=graphresult;
if e<>grok then
writeln(grapherrormsg(e))
else
begin
setgraphmode(0);
repeat
setcolor(succ(random(4)));
line(random(getmaxx),random(getmaxy),
random(getmaxx),random(getmaxy))
until keypressed;
closegraph;end;
end.


, ..

  1. OUTTEXT() - ,
  2. OUTTEXTXY(x,y,) - , x,y
  3. SETTEXTSTYLE(,,) - ,
    : 0 - , 1 - , 2 - , 3 - , 4 - ;
    : 0 - - , 1 - - ;
    : 1_32 , 1_10
  4. SETUSERCHARSIZE(x1,x2,y1,y2) -

USES GRAPH3 - "" .

.

:

  1. SHOWTURTLE -
  2. HIDETURTLE -
  3. FORWARD(n) - n
  4. BACK(n) - n
  5. TURTLEDELAY() -
  6. SETHEADING() - ( )
  7. SETPOSITION(x y) -
  8. HOME -
  9. PENDOWN -
  10. PENUP -
  11. SETPENCOLOR () - ,
  12. TURNRIGHT() - , -
  13. TURNLEFT() -
  14. TURTLEWINDOW(x,y,,) -
  15. XCOR__ YCOR__

⇐ 12


:

: 2017-02-11; !; : 697 |

:

:

, - , ; , - .
==> ...

1417 - | 1445 -


© 2015-2024 lektsii.org - -

: 0.011 .