Курсовая работа: Современное состояние вычислительной техники

PROGRAM GRAFIK;

CONST W = 61; M = 10;

VAR

Y: ARRAY [1..25] OF REAL;

C: ARRAY [1..71] OF CHAR;

K, L, N, I, J: INTEGER;

A, B, H, Y MAX, Y MIN, X, MY: REAL;

BEGIN

WRITELN (¢ВВЕДИТЕ A, B, N¢);

READ (A, B , N);

Y MAX = -1E4; YMIN:=+1E4;

H: = (B-A)/N;

FOR I:=1 TO 71 DO C [ I ]: = ¢¢;

X: = A;

FOR I: = 1 TO N DO

BEGIN

Y[ I ]: = SIN(X)/X ;

IF Y [I ] > Y MAX THEN Y MAX: = Y [I ];

IF Y [I ] < Y MIN THEN Y MIN: = Y [I ];

X: = X+H;

END;

MY:=ROUND((YMAX-YMIN)/W+0.5);

K:=ROUND (ABS(YMIN)/MY+0.5)+M;

C[K]:= ¢I ¢ ;

WRITELN (¢ГРАФИКФУНКЦИИ Y=SIN(X)/X ¢);

WRITELN (¢ …………………………………¢);

FOR I:=1 TO N DO

BEGIN

L:=ROUND ((Y[ I ]- YMIN)/MY+0.5)+M;