Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

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

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

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

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

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

Сортировка двумерного массива.

Пример 36. Задан двумерный массив X из 6 строк и 4 столбцов. Упорядочить массив X по возрастанию элементов дробной части столбца с номером N. Отсортированный массив X вывести на экран монитора.

Инициализация одномерного массива.

Отличительной особенностью Паскаля от большинства процедурных языков является то, что все переменные должны быть инициализированы. То есть в разделе VAR переменным отводится место, а начальное ...

Процедура MoveRel (x,y) перемещает текущий указатель на расстояние x и y.
Процедура OutText (‘’) выводит текст на экран в графическом режиме. Текст заключается в кавычки и круглые скобки.

 Процедура MoveRel и OutText.





Program Graphika6;
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;
MoveTo(100,100);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
MoveRel(200,200);
OutText('PASCAL');
ReadLn;
CloseGraph;
End.



В строке №19 ставим текущий указатель в точке с координатами (100,100).

В строке №20 записываем процедуру OutText. Эта процедура выводит на экран текст, который указывается в скобках и кавычках после слова OutText. На экране текст будет выводиться в том месте, где установлен текущий указатель. Причем текущий указатель перемещается на конец текста. Итак, в строке №20 выводим текст («PASCAL»). Соответственно текст у нас выводится на экране с координатами (100,100).

В строке №21 записываем процедуру MoveRel(200,200). Теперь текущий указатель переместится на 200 пикселей по оси X и на 200 пикселей по оси Y т.е. в точку (300,300).

В строке №22 выводим тот же текст. Теперь он выведется на экране в точке с координатами (300,300).
То же самое происходит в строках №23 и №24. Текст выводится уже с координатами (500,500).

moverel outtext

moverel outtext.


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

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

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


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

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

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