Побудова системи координат (продовження)

У попередньому прикладі ми почали будувати систему координат за допомогою процедури SetViewPort. Доповнимо попередній приклад тим, що побудуємо на осях координат одиниці виміру і пронумеруємо їх.

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

У рядку №3 записуємо кілька змінних. Одна з цих змінних «i» буде використовуватися для циклу.

У рядку №30 цієї змінної ми присвоюємо початкове значення рівне - 250.

У рядку №31 починається цикл Repeat. Until. У цьому циклі будуть виконуватися 2 операції (рядок №33 - малювання лінії і рядок №34 - операція присвоювання), тому обидві операції необхідно укласти в операторні дужки begin. end (рядок №32 - №35). Нагадаю, що операторні дужки необхідно використовувати кожен раз, коли в циклі виконується більш однієї операції.

Рядок №33. Малюємо лінію. Як координати X вказуємо значення зміною «i». Спочатку, змінна «i» дорівнює -250. Таким чином, будується лінія з координатами (-250,10, -250, -10).

Рядок №34. Надаємо змінної «i» нове значення, яке на 50 пікселів більше попереднього. Після цього буде побудована лінія з координатами (-200,10, -200, -10). Цикл триватиме до тих пір, поки змінної «i» не присвоєно значення в 300 пікселів (рядок №36). Таким чином, буде побудовано кілька ліній, які будуть перетинати вісь X з інтервалом в 50 пікселів.

У рядку №37 - №43 також будуємо лінії, які тепер будуть перетинати вісь Y.
На рис. знизу представлений попередній результат дії циклів.

Тепер для кожної з цих ліній поставимо у відповідність число від -5 до 5.

У рядку №3 вказуємо змінну для зберігання цих чисел «ch»

У рядку №44 присвоюємо змінної «ch» первинне значення, рівне -5.

У рядку №45 змінної «i», яка використовується для визначення кроку циклу, присвоюємо значення -250.

Рядок №46. Встановлюємо шрифт, напрямок і величину символів виведеного тексту. Тут необхідно врахувати, що якщо ви збираєтеся виводити текст за межами вікна, встановленого процедурою SetViewPort, то слід вибирати шрифт, відмінний від шрифту DefoltFont (тобто того, який стоїть за умовчанням). Якщо ви будете використовувати цей шрифт, а текст не поміститься в вікно, то він просто не виведеться на екран.

У рядку №47 встановлюємо колір для символів, що виводяться.

Рядок №48. Початок циклу. У циклі буде виконано 4 операції (рядок №50 - №54).

Рядок №50. Переводимо числове значення змінної «ch» в строкове значення і записуємо це значення рядка в змінну «chi» (не забудьте оголосити цю змінну в розділі Var - рядок №4). Первісне значення змінної «ch» дорівнює числу -5. За допомогою процедури Str це число буде перетворено в символ -5.

Рядок №51. Виводимо на екран текст. Як координати X вказуємо значення змінної «i», а в якості тексту вказуємо значення змінної «chi». Первісне значення змінної «i» одно -250, а початкове значення змінної «chi» є символ -5. Таким чином, за допомогою процедури OutTextXY, на екран виведеться символ -5 з координатами (-250,20).

У рядку №52 збільшуємо змінну «ch» на одиницю, а встроке №53 збільшуємо змінну «i» на 50 пікселів. Після цього, на екран виведеться вже символ -4 в координатах (-200,20). Цикл буде повторюватися до тих пір, поки змінної «ch» не присвоєно значення, рівне 6. Таким чином, на екран виведеться 11 чисел від -5 до 5 (включаючи 0) з інтервалом в 50 пікселів. Ці числа будуть виводитися під віссю X.
На рис. знизу представлено дію цього циклу.

Способом, описаним вище, малюємо цифри для осі Y (рядок №56 - №70). Тут нам потрібно виключити з циклу цифру 0, так як вона вже намальована. Для цього в рядках №64 - №68 записуємо умова. Якщо змінної «ch» буде присвоєно значення, рівне 0, то воно повинно бути зменшено на одиницю, а координата виведення цифри повинна бути збільшена на 50 пікселів.