Тип данных String в Pascal.

Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.

Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Процедуры STR и VAL.

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

...

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

ЗАПИСИ. ТИП ДАННЫХ 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.


Комментарии  

 
-3 # вика 05.09.2014 16:50
:-x :-x :-x :-x :-x :-x :-x :-x :-x :-x :-x :-x
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальГрафика в Паскаль