Abs, Sqr в Pascal.

Abs - функция языка Паскаль, которая вычисляет модуль числа.
Sqr - функция языка Паcкаль, которая возводит число в квадрат.

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

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

Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

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

Программирование циклов. Оператор безусловного перехода.

Цикл — это последовательность операторов, которая может выполняться более одного раза. В языке Паскаль разработано три механизма для конструирования циклов, использующих операторы FOR, WHILE, REPEAT.

...

Тип данных Boolean.

Тип BOOLEAN (булевский, логический). Логический тип в языке Паскаль задается как перечисляемый тип, содержащий всего два значения, которые имеют идентификаторы FALSE (ложь) и TRUE (истина).

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

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

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


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

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

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