Информатика

Interface

Интерфейсная секция описание заголовков процедур и функций

Implementation

Секция реализации содержит обращение к процедурам и функциям

Секция инициализации содержит обращение к модулю.

• 2. Модуль CRT и GRAPH
• TextColor(Color:n) - устанавливает цвет n выводимых на экран cимволов.TextBackGround(Color:m) - устанавливает цвет фона m, т.е. цвет области, которая окружает отображаемый на экране символ.
• ClrScr - очищает активное окно и устанавливает курсор в верхний левый угол экрана.
• GotoXY(x,y:byte) - перемещает курсор в позицию с координатами X,Y экрана.
• WhereX - возвращает X-координату текущей позиции курсора.
• WhereY - возвращает Y-координату текущей позиции курсора.

• Пример 1. Массив X(N) напечатать на экране , выделить элементы цветом, превышающие по значению величину К.
•  
• PROGRAM P1;
• USES Crt;
• VAR x:array[1..20] of real;
• i, N, M:integer; K:real;
• BEGIN
• readln(N,M,K);
• FOR i:=1 TO N DO readln(x[i]);
• ClrScr;
• FOR i:=1 TO N DO
• IF x[i]>K THEN
• BEGIN
• TextColor(14);TextBackGround(4); END ELSE
• BEGIN
• TextColor(15);TextBackGround(1);
• END;
• write(x[i]:6:4);END;
• END.

• 7

• Модуль Graph позволяет работать с экраном в графическом режиме
• В этом режиме любое изображение на экране синтезируется из мельчайших элементов, называемых пикселями. Каждый пиксель представляет собой светящуюся точку таких размеров, при которых промежутки между отдельными пикселями отсутствуют. Если группа смежных пикселей светится, то они воспринимаются не как совокупность отдельных точек, а как сплошной участок.
• В графическом режиме экран разделяется прямоугольной сеткой, каждый элемент которой имеет свои координаты. Левый верхний угол экрана имеет координаты (0,0). Значение левой координаты (X) увеличивается в горизонтальном направлении слева направо. Значение правой координаты (Y) увеличивается в вертикальном направлении сверху вниз.

• Установка цвета линий осуществляется процедурой SetColor(Color:integer).
• Пример 2.
• USES Graph;
• VAR Gd,Gm:integer;
• BEGIN
• Gd:=Detect;
• InitGraph(Gd,Gm,'d:\bp\bgi');
• rectangle(100,50,200,100);
• line(100,50,200,100);
• line(100,100,200,50);
• ellipse(150,75,0,360,50,25);
• readln;
• CloseGraph;END. 

• Графический режим инициализируется с помощью стандартной процедуры