Строки в Паскаль.

Тип данных String (строковый тип) используется в Паскаль для обработки текстов. Если в одну переменную типа Char можно записать лишь один символ, то в переменную типа String можно записать до 255 символов.

Ввод логических переменных с клавиатуры.

В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую ...

Применение логических операций с оператором IF.

В данном уроке мы рассмотрим применение логической операции And с условным оператором If.

Циклы и массивы

ЗАПИСИ. ТИП ДАННЫХ RECORD.

В описании данных и связей между ними используют понятия: запись логическая и запись физическая. Физическое описание данных определяет способ их хранения во внешней памяти ЭВМ. Логическое описание ...

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Процедура Ellipse рисует на экране эллипсную дугу. В качестве параметров для этой процедуры указываются координаты центра дуги в пикселах, начальный и конечный углы в градусах, горизонтальный и вертикальный радиус дуги в пикселах.
Процедура FillEllipse рисует на экране закрашенный элипс, для которого стиль и цвет закраски задается процедурой SetFillStyle.

 Процедуры Ellipse и FillEllipse.




Program Graphika14;
Uses Graph;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
SetLineStyle(0,0,3);
SetColor(1);
ellipse(200,300,0,270,150,100);
setfillstyle(7,14);
fillellipse(600,300,150,100);
readln;
end.



Строка №19. Задаем толщину линии эллипсов. С помощью процедуры SetLineStyle для окружностей, дуг и эллипсов можно установить только толщину линии. Тип линии будет всегда иметь значение 0 (сплошной).

Строка №20. Задаем цвет линии эллипсов.

Строка №21. Рисуем эллипсную дугу с помощью процедуры Ellipse. Эта процедура имеет 6 параметров. Первые 2 параметра определяют координаты центра эллипсной дуги (в нашем примере 200 пикселей по оси X,300 пикселей по оси Y). 3-й параметр определяет начальный угол дуги (в нашем примере 0 градусов). 4-й параметр определяет конечный угол дуги ( в нашем примере 270 градусов). 5-й параметр определяет горизонтальный радиус эллипса, т.е. расстояния от центра эллипса до максимальной точки по оси X  (в нашем примере 150 пикселей). 6-й параметр определяет вертикальный радиус, т.е. расстояние от центра до максимальной точки эллипса на оси Y.

Строка №22. Записываем процедуру SetFillStyle. Она определит тип и цвет закраски для эллипса, который задается в строке №23 с помощью процедуры FillEllipse.

Строка №23. Процедура FillEllipse рисует закрашенный эллипс. Эта процедура имеет 4 параметра. Первые 2 параметра определяют координаты центра эллипса, 3-й параметр определяет горизонтальный радиус, 4-й параметр определяет вертикальный радиус. Тип закраски и ее цвет определен в строке №22.

Procedurih Ellipse i FillEllipse.

Procedurih Ellipse i FillEllipse..


Предыдущая статья : Процедуры Circle и Arc.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура FloodFill.


Комментарии  

 
-4 # вика 05.09.2014 16:50
:-x :-x :-x :-x :-x :-x :-x :-x :-x :-x :-x :-x
 
   ГлавнаяПаскальГрафика в ПаскальПроцедуры Circle и Arc.