Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Функции Copy, Pos, процедуры Delete, Insert.

Функция Copy позволяет копировать из строки часть символов. Функция имеет 3 параметра. Copy (st, index, count). St-строка из которой копируют, Index-номер символа, с которого начинается копирование, Count-количество символов, которое будет ...

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

Тип данных Real.

Тип REAL (вещественный). Число типа REAL занимает три слова (шесть байтов). При работе с вещественными числами нужно помнить, что на любом отрезке вещественной оси существует бесчисленное множество ...

Вложенный арифметический цикл. Часть 2.

Примеры использования различных операторов цикла. Вложенный цикл.

Процедура PieSlice рисует на экране заполненный сектор окружности, а процедура Sector – заполненный эллиптический сектор. Цвет секторов определяется процедурой SetColor, а заполнение - процедурой SetFillStyle.

 Процедуры PieSlice и Sector в Паскаль.




Program Graphika16;
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;
setcolor(2);
setfillstyle(3,4);
pieslice(150,150,0,90,100);
sector(400,150,0,90,100,150);
readln;
closegraph
end.



Строка №19. Устанавливаем зеленый цвет для границы секторов.

Строка №20. Заполняем сектора красными клеточками.

Строка №21. Записываем процедуру PieSlice. Она рисует сектор окружности. Процедура PieSlice имеет 5 параметров. Первые 2 параметра определяют центр окружности, в которой находится сектор (в нашем примере 150,150). 3-й параметр определяет начальный угол сектора (в нашем примере 0 градусов), 4-й параметр – конечный угол сектора (в нашем примере 90 градусов). 5-й параметр определяет радиус сектора (в нашем примере 100).

Строка №22. Записываем процедуру Sector. Эта процедура рисует эллиптический сектор. Процедура имеет 6 параметров. Первые 2 параметра определяют центр эллипса, в котором находится эллиптический сектор (в нашем примере 400,150). 3-й и 4-й параметры определяют начальный и конечный углы сектора (в нашем примере 0,90). 5-й параметр определяет радиус эллипса по оси X (в нашем примере 100). 6-й параметр определяет радиус эллипса по оси Y (в нашем примере 150).

Procedurih PieSlice i Sector.

Procedurih PieSlice i Sector..


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

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

Следующая статья : Вывод текста на экран в графическом режиме.


   ГлавнаяПаскальГрафика в ПаскальПроцедуры PieSlice и Sector.