7 Program grafik Uses crt graph Const K50

  • Slides: 19
Download presentation

7

7

Program grafik; Uses crt, graph; Const K=50; Cx=640; Cy=512; Var gd, gm, i: integer;

Program grafik; Uses crt, graph; Const K=50; Cx=640; Cy=512; Var gd, gm, i: integer; Function f (x: real): real; Begin F: =sin(x)*cos(x)*x; End; Function x (p: integer): real; Begin X: =(p-cx)/k; End; Function y(p: real): integer; Begin Y: =round (-p*k+cy); End; BEGIN Procedure sk; Clrscr; Begin Gd: =0; Setcolor (9); Gm: =0; Line (0, cy, 1280, cy); Initgraph (gd, gm, ’’); Line (cx, 0, cx, Sk; Setcolor (14); 1024); Moveto (0, y(f(x(0)))); Setcolor (15); For i: =0 to 1280 do Line (638, 462, 642, 462); Lineto (I, y(f(x(i)))); Readln; Line Closegraph; (690, 510, 690, 514); End; 9

10

10

Программа для создания нескольких графиков функций в одной системе координат. Program grafik; Uses crt,

Программа для создания нескольких графиков функций в одной системе координат. Program grafik; Uses crt, graph; Const K=50; Cx=640; Cy=512; Var gd, gm, i: integer; Function f (x: real): real; Begin F: =sin(x)*сos(x)*x; End; Function f 2(x: real): real; Begin F 2: =2*sin(x)+cos((abs(x))-x; End; Function x (p: integer): real; Begin X: =(p-cx)/k; End; Function y(p: real): integer; Begin Y: =round (-p*k+cy); End; Procedure sk; Begin Setcolor (9); Line (0, cy, 1280, cy); Line (cx, 0, cx, 1024); Setcolor (15); Line (638, 462, 642, 462); Line (690, 510, 690, 514); End; BEGIN Clrscr; Gd: =0; Gm: =0; Initgraph (gd, gm, ’’); Sk; Setcolor (14); Moveto (0, y(f(x(0)))); For i: =0 to 1280 do Lineto (I, y(f(x(i)))); Setcolor (11); Moveto (0, y(f 2(x(0)))); For i: =0 to 1280 do Lineto (I, y(f 2(x(i)))); Readln; Closegraph; End. 11

12

12

Program grafik; Uses crt, graph; Const K=50; Cx=320; Cy=512; Сх2=970; Var gd, gm, i:

Program grafik; Uses crt, graph; Const K=50; Cx=320; Cy=512; Сх2=970; Var gd, gm, i: integer; Function f (x: real): real; Begin F: =cos(x); End; Function f 2(x: real): real; Begin F 2: =2*cos(2*x); End; Function x (p: nteger): real; Begin X: =(p-cx)/k; End; Function y(p: real): integer; Begin Y: =round (-p*k+cy); End; Function x 2 (p: integer): real; Begin X 2: =(p-cx 2)/k; End; Procedure sk; Begin Setcolor (9); Line (0, cy, 630, cy); Line (cx, 0, cx, 1024); Setcolor (15); Line (640, cy, 1280, cy); Line (cx 2, 0, cx 2, 1024); End; BEGIN Clrscr; Gd: =0; Gm: =0; Initgraph (gd, gm, ’’); Sk; Setcolor (14); Moveto (0, y(f(x(0)))); For i: =0 to 640 do Lineto (I, y(f(x(i)))); Setcolor (11); Moveto (640, y(f 2(x(0)))); For i: =690 to 1280 do Lineto (I, y(f 2(x(i)))); Readln; Closegraph; 14 End.

15

15

Function x (p: nteger): real; Program grafik; Begin Uses crt, graph; X: =(p-cx)/k; Const

Function x (p: nteger): real; Program grafik; Begin Uses crt, graph; X: =(p-cx)/k; Const End; K=50; Function y(p: real): integer; Cx=320; Begin Cy=512; Y: =round (-p*k+cy); Сх2=970; End; Var gd, gm, i: integer; Function x 2 (p: integer): real; Function f Begin (x: real): real; X 2: =(p-cx 2)/k; Begin End; F: =cos(x); Procedure sk; End; Var I, xn, xk, yn, yk: integer; Function f 2(x: real): Begin real; Setlinestyle (3, 1, 1); Begin Xn: =cx div k; F 2: =2*cos(2*x); Xk: = (1280 – cx) div k; End; For i: =-xn to xk do Line (cx+i*k, 0, cx+i*k, 1024); yn: =cy div k; yk: = (1024 – cy) div k; For i: =-yk to yn do Line (0, cy+i*k, 1280, cy+i*k); Setlinestyle (0, 1, 1); Setcolor (9); Line (0, cy, 630, cy); Line (cx, 0, cx, 1024); Setcolor (15); Line (640, cy, 1280, cy); Line (cx 2, 0, cx 2, 1024); End; BEGIN Clrscr; Gd: =0; Gm: =0; Initgraph (gd, gm, ’’); Sk; Setcolor (14); Moveto (0, y(f(x(0)))); For i: =0 to 640 do Lineto (I, y(f(x(i)))); Setcolor (11); Moveto (640, y(f 2(x(0)))); For i: =690 to 1280 do Lineto (I, y(f 2(x(i)))); Readln; 17 Closegraph; End.

18

18

19

19