uses crt,graph;
const
        h=0.01;
        scale=100;
var GrDr,GrM,CX,CY:integer;
    a,b,x,y:real;
begin
        GrDr:=9;
        GrM:=2;
        initgraph(GrDr,GrM,'');

        CX:=round(GetMaxX/2);
        CY:=round(GetMaxY/2);

        moveto(CX-scale*2,CY);
        linerel(scale*2,-scale*2);
        linerel(scale*2,scale*2);
        linerel(-scale*2,scale*2);
        linerel(-scale*2,-scale*2);
        circle(CX,CY,scale*2);
        x:=-2;
        y:=-2;
        repeat
           repeat
           a:=2*(abs(x)+abs(y));
           b:=sqr(x)+sqr(y);
           if (a>=b) and (b>=4) then
                putpixel(CX+round(x*scale),CY+round(y*scale),15);
           x:=x+h;
           until x>2;
        y:=y+h;
        until y>2;
        readln;
        closegraph;
end.

Задание №1.
Табулирование функции.
Вычислить таблицу значений функции y=f(x) для значений аргумента X,
изменяющегося в интервале от Xнач до Xкон c шагом dX. Для вычисления
функции использовать подпрограмму, т.е. ввести функцию пользователя F(x).

вариант     вид функции      Xнач    Xкон    dX
00        y=2x/(1=sin(x/3))  1,3     6,5     0,5
01        y=0,7(1/x+lnx)     14      34      2,5
02        y=2x(1+cos(x/2))   0,9     5,5     0,5
03        y=2x(1+sin(x/3))   1,7     6,3     0,5
04        y=2,5/(1/x+lnx)    12      25      2,5
05        y=2x/(2+cos(x/2))  0,9     5,6     0,5
06        y=0,7(3x+1/lnx)    10      19      1,5
07        y=2x(1+cos(x/2))   0,9     5,5     0,5
08        y=1/x+2cos(x)      12      25      2,5
09        y=2x(0,5*x+cosx)   1,5     6,5     0,5
10        y=0,9(3/x+lnx)     13      34      2,5
11        y=2x(3+sin(x/3))   1,7     6,3     0,5
12        y=0,5/(1/x+lnx)    10      25      1,5
13        y=2x/(2+sin(x/2))  0,7     5,6     0,5
14        y=0,7(3x+1/lnx)    10      19      1,5
15        y=5x(2+cos(x/2))   0,5     5,5     0,5

Задание №2.
Обработка одномерного массива.
Ввести одномерный массив X, содержащий 9 вещественных чисел.
Выполнить обработку по варианту. Исходный массив и результаты
вывести на экран.

вариант     содержание задания
00          Найти сумму отрицательных и произведение положительных
            чисел массива.
01          Найти минимальное число массива.
02          Подсчитать количество чисел, равных 5.
03          Найти сумму элементов с чётными номерами.
04          Найти среднее арифметическое всех положительных чисел
            массива.
05          Определить количество положительных и количество
            отрицательных чисел массива.
06          Вывести на экран номера чисел, равных 0.
07          Преобразовать массив, расположив в нём числа
            в обратной последовательности.
08          Преобразовать массив, заменив все отрицательные числа
            на -1, а положительные на 1.
09          Вывести на экран числа, встречающиеся в массиве
            более одного раза.
10          Преобразовать массив, расположив сначала все отрицательные,
            затем все положительные числа (порядок следования чисел
            внутри группы не изменять).
11          Заменить все отрицательные числа их модулем.
12          Найти минимальное число массива и его порядковый номер.
13          Заменить все отрицательные числа на нулевые.
14          Подсчитать количество чисел больших 10.
15          Найти среднее арифметическое всех отрицательных
            чисел массива.

Задание №3.
Обработка двумерного массива.
Ввести массив чисел, содержащий N строк и M столбцов.
Значения N и M задать самим. Выполнить обработку по варианту.
Исходный массив и результаты вывести на экран, при этом двумерный
массив выводить в форме матрицы.

вариант     содержание задания
00          Сформировать одномерный массив, состоящий из максимальных
            чисел каждой строки.
01          Сформировать одномерный массив, состоящий из максимальных
            чисел каждого столбца.
02          Преобразовать массив: элементы строки, в которой находится
            максимальный элемент матрицы, заменить на нули.
03          Преобразовать массив: элементы того столбца, в котором
            находится максимальный элемент матрицы, заменить на нули.
04          Каждый столбец матрицы упорядочить по убыванию.
05          Каждую строку матрицы упорядочить по убыванию.
06          Преобразовать массив: разделить элементы каждого столбца
            заданной матрицы на последний элемент столбца.
07          Преобразовать массив: разделить элементы каждой строки
            матрицы на последний элемент этой строки.
08          Определить количество нулевых чисел в каждой строке
            матрицы.
09          Определить количество нулевых чисел в каждом столбце
            матрицы.
10          Сформировать массив, состоящий из сумм положительных чисел
            каждого столбца.
11          Сформировать массив, состоящий из сумм отрицательных чисел
            каждой строки.
12          Найти среднее арифметическое положительных чисел каждой
            строки.
13          Найти среднее арифметическое положительных членов каждого
            столбца.
14          Преобразовать массив, умножив элементы каждой строки на
            минимальный элемент этой строки.
15          Преобразовать массив, умножив элементы каждого столбца на
            минимальный элемент этого столбца.