Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Функции trunc, round в Pascal.

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

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

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

Структурное программирование

Самое главное в программировании - это научиться писать четкие, логические и структурированные программы.

• Используйте осмысленные имена для переменных, процедур и функций.

• Используйте отступы ...

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

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

Процедура 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.

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

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


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

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

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