# include <stdio.h> // библиотека для вызова функций ввода и вывода
# include <time.h> // библиотека для заполнения массива случайными числами (зависит от текущего времени)
# include <stdlib.h> // библиотека для вызова функции random
#define ARRAY_MAX 1000

int main(void){
	srand(time(NULL));
	int i,j,x1,x2;
	int X[ARRAY_MAX];
	printf("Введите x1 ");
	scanf("%d", &x1);
	printf("Введите x2 ");
	scanf("%d", &x2);
	
	for(i=0; i<ARRAY_MAX; i++){ // цикл заполнения массива
		X[i]=rand()%100; // генерирования случайного числа
		printf("%d, ", X[i]);
		}
	printf("\n\n");

	int summa=0;
	for(i=x1-1, j=0;i<x2;i++){
		summa=summa+X[i];
		j++;
		}
	
	printf("Сумма элементов = %d, число элементов = %d\n", summa, j);
}

program TABULIR_FUNC;

uses graph;

var
mx,my,x,h:real;
intI,x1,x2:integer;
gd,gm:integer;

function xm(x:real):integer;
         begin
              xm:=round(320+mx*x);
         end;

function ym(y:real):integer;
         begin
         ym:=round(240-my*x);
         end;

function  f(a:real):real;
          begin
          f:=2*exp(a)+4;
          end;

procedure linovka;
var x,y:integer;
begin
setcolor(15);{color is white}
x:=5;y:=0;
repeat {draw vertical line}
line(x,0,x,GetMaxY);
x:=x+35;
until x>GetMaxX;
repeat {draw horizontal line}
line(0,y,GetMaxX,y);
y:=y+30;
until y>GetMaxY;
end;

procedure DrawAxis;
begin
setcolor(blue);{color is white}
{draw axis of ordinate}
line(round(GetMaxX/2),0,round(GetMaxX/2),GetMaxY);
line(round(GetMaxX/2),0,round(GetMaxX/2-5),10);
line(round(GetMaxX/2),0,round(GetMaxX/2+5),10);
{draw axis of abscis}
line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2-5));
line(round(GetMaxX),round(GetMaxY /2),GetMaxX-10,round(GetMaxY/2+5));
line(0,round(GetMaxY/2),GetMaxX,round(GetMaxY/2));
end;

begin
mx:=10;{Mashtab X}
my:=10;{Mashtab Y}
h:=0.001;
x1:=-10;
x2:=10;

writeln('Tabulirovanie funkzii');
writeln('	X	','Y');
for intI:=x1 to x2 do  writeln('    X = ',intI,'    Y = ',f(intI):6:4);
writeln('Press any key');

readln;
gd:=detect;
initgraph(gd,gm,'D:\user\program\bp\bgi');
linovka;
DrawAxis;

x:=x1;
while (x<=x2) do begin
putpixel(xm(x),ym(f(x)),red);
x:=x+h;
end;

readln;
closegraph;
end.

Tabulirovanie funkzii
        X       Y
    X = -10    Y = 4.0001
    X = -9    Y = 4.0002
    X = -8    Y = 4.0007
    X = -7    Y = 4.0018
    X = -6    Y = 4.0050
    X = -5    Y = 4.0135
    X = -4    Y = 4.0366
    X = -3    Y = 4.0996
    X = -2    Y = 4.2707
    X = -1    Y = 4.7358
    X = 0    Y = 6.0000
    X = 1    Y = 9.4366
    X = 2    Y = 18.7781
    X = 3    Y = 44.1711
    X = 4    Y = 113.1963
    X = 5    Y = 300.8263
    X = 6    Y = 810.8576
    X = 7    Y = 2197.2663
    X = 8    Y = 5965.9160
    X = 9    Y = 16210.1679
    X = 10    Y = 44056.9316
Press any key