Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Использование Var, Integer, Readln.

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

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

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

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

Итерационные циклы.

Если число повторений заранее не известно и решение о завершении цикла принимается на основе анализа некоторого условия, то такой повторяющийся вычислительный процесс называется итерационным циклом.

...

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

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

Функция GetX возвращает значение, которое содержит текущие координаты указателя по оси X.
Функция GetY возвращает значение, которое содержит текущие координаты указателя по оси Y.

 Использование функций GetX и GetY.




Program Graphika24;
Uses Graph;
var x,y:integer;
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;
settextstyle(4,0,4);
outtext('Язык ');
x:=getx;
y:=gety;
outtextxy(0,50,'Pascal');
outtextxy(x,y,'программирования');
readln;
closegraph
end.




В строке №3 записываем переменные «x» и «y» для хранения значений функций GetX и GetY.

В строке №21 выводим на экран слово «Язык». Теперь текущий указатель сместился в конец этого слова. Для того чтобы запомнить координаты текущего указателя применяются функции GetX и GetY.

В строке №22 присваиваем переменной «x» значение функции GetX, т.е. координату текущего указателя по оси X.

В строке №23 присваиваем переменной «y» значение функции GetY, т.е. координату текущего указателя по оси Y.

В строке №24 выводим на экран текст «Pascal». Этот текст будет находиться на 50 пикселей ниже слова «Язык».

Строка №25. Предположим, что по условия задачи нам необходимо вывести слово «программирование» справа от слова «Язык». Это можно сделать с помощью процедуры OutTextXY, которая выводит текст в точке с координатами X и Y. При этом координата Y должна быть равна 0, а вот координату X придется подбирать, чтобы новый текст не залез на старый, а находился чуть подальше. Для того чтобы избежать ситуации, когда необходимо подбирать координаты, используются функции GetX и GetY. Для того чтобы вывести слово «программирование» рядом со словом «Язык», указываем в качестве координат для процедуры OutTextXY (в строке №25) переменные «x» и «y» (которым присвоены координаты текущего указателя после вывода на экран слова «Язык»). 

Funkcii GetX i GetY

Funkcii GetX i GetY.


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

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

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


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

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

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