Для выполнения второго задания необходимо следовать следующего алгоритма

Построение простых графических изображений.

Цель работы: Овладение навыками работы с графическим режимом экрана, используя модуль GRAPH

Литература: В.П. Попов TURBO PASCAL.для школьников. Версия 7.0.

Краткие теоретические сведения:

Для подключения модуля Graph, как и любого другого модуля, необходимо внести его имя в предложении USES. Однако этого недостаточно для того, чтобы перейти в графический режим. Инициализация графического режима работы осуществляется процедурой

INITGraph (A,B: Integer;C:String), где переменная А определяет тип графического драйвера, В задает режим работы адаптера, С содержит имя файла драйвера и, возможно, полный путь до него.

Тип драйвера должен соответствовать типу адаптера. В настоящее время используется в основном тип VGA, соответствующий цифре 9, однако, если вы не уверены, что правильно установили тип адаптера, можете воспользоваться режимом автоопределения типа – Detect.

Uses Graph;

Var A, B: Integer;

Begin

A:= detect;

InitGraph (A,B,’C:\TP7\BGI’);

……………..

End.

Подпрограммы Graph позволяют адресоваться к любому пикселю графического экрана и управлять его светимостью. Для указания пикселя используется следующая система координат: верхний левый угол графического экрана имеет координаты 0,0; горизонтальная координата Х увеличивается слева направо, вертикальная координата У – сверху вниз. Например, в режиме 640х480 (адаптер VGA) правый нижний угол экрана имеет координаты 639х479, а центр экрана – координаты 319х239.

В модуле имеется несколько процедур для рисования элементарных графических фигур - точек, линий, окружностей, прямоугольников, дуг и т.п. При необходимости замкнутые фигуры могут быть закрашены различными цветами и стилями.

Процедура SetViewPort создает на экране графическое окно. Если окно определено, весь дальнейший графический вывод осуществляется относительно координат этого окна и отсекается его границами.

Порядок выполнения работы:

1. Включить ПЭВМ

2. Загрузить интегрированную среду TURBO PASCAL

3. Перейти в окно редактирования и создать текст программы:

4. Записать созданный текст программы в файл на диске.

5. Провести компиляцию программы. Если в процессе компиляции обнаружена ошибка, ее необходимо исправить.

6. Сохранить откорректированный файл на диске и провести компиляцию снова

7. Выполнить программу. Правильные результаты представить преподавателю и переписать в отчет.

8. Выйти из среды TURBO PASCAL.

Для выполнения второго задания необходимо следовать следующего алгоритма

1. Ввести количество периодов (годов) N.

2. Для хранения значения цен на бензин, создать одномерный массив BN вводом с клавиатуры для N годов.

3. Определить максимальное значение элементов, входящих в систему, в нашем примере максимальную стоимость (Мах) бензина за рассматриваемый период времени.(С помощью алгоритма определения максимального в одномерном массиве)

4. Инициализировать графический режим.

5. Рассчитать высоту НМах в пикселах самого высокого столбика Мах, используя функцию GETMAXY. Нмах:=getmaxY-100;

6. Вычислить количество пикселов KPixH, приходящихся на единицу стоимости kPixH:=round(hmax/max);

7. Вычислить высоту в пикселах каждого элемента системы. В цикле для каждого элемента массива BN[i]:=BN[i] * kpixH;

8. рассчитать ширину одного столбика, учитывая при этом межстолбиковое расстояние и используя функцию GETMAXX. ST:= trunc ((GetmaxX-100/n)+2;

9. Используя графические процедуры и функции вывести столбиковую диаграмму на экран. Stt:=50; В цикле FOR вычислить: Setfillstyle (1,1+i);

Bar (stt,hmax-bn[i],stt+st,hmax);

Stt:=stt+st;