Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 108 стр.

Методические указания
1. Разработать алгоритмы и программы для решения задач заданий.
2. Скомпилировать программы.
3. Составить контрольные тесты и протестировать программы.
4. Составить отчет и представить его к защите.
Для выполнения первого задания необходимо придерживаться следующей схемы:
       а) подсчитать общее количество элементов, входящих в систему, например:
                      К = КО + КХ + КП,
           где К - количество элементов в системе (количество всех студентов);
               КО - количество отличников;
               КХ - количество хорошистов;
               КП - количество прочих;
       б) вычислить процентное отношение группы элементов в системе, например,
       процентное отношение отличников в системе равно:
               KO *100%
        %O =
                    K
       в) вычислить, сколько радиан составляет та или иная группа элементов, если вся
       система составляет 2 π радиан, например:
                       2 * π * %O
       Кол.рад.отл.=
                         100%
       г) используя графические процедуры и функции вывести на экране круговую
       диаграмму.
       Для выполнения второго задания необходимо:
       а) определить максимальное значение элементов, входящих в систему, в нашем
       примере - максимальную стоимость (Max) бензина за рассматриваемый период
       времени;
       б) рассчитать высоту HMax в пикселах самого высокого столбика Max, используя
       функцию GetMaxY;
       в) вычислить количество пикселей KPixH, приходящихся на единицу стоимости;
       г) вычислить высоту в пикселях каждого элемента системы;
       д) рассчитать ширину одного столбика, учитывая при этом межстолбиковое
       расстояние и используя функцию GetMaxX;
       е) используя графические процедуры и функции вывести столбиковую диаграмму на
       экран.
 Для выполнения третьего задания используйте пример программы, приведенный ниже.
Пример. Построение графика функции Y = Sqr(X).
При отображении графика функции на экране необходимо выполнить переход от
локальной системы координат в систему координат экрана, а также во избежание помех
рассчитать граничные значения X, при которых значения Y начинают выходить за пределы
экрана.
Программа:
Program GraficFunction;
Uses Graph;
Var
       grDriver : Integer;
       grMode : Integer;
       ErrCode : Integer;
       X, Y, X1, Y1, CX, CY, XG: Integer;
Begin
{*** инициализация графического режима экрана ***}
grDriver := Detect;

                                                                                 108