1.4. Опрацювання завдань з теми «Програмування в середовищі Turbo Pascal»
10.1. Скласти програму і блок-схему для розв’язку задачі: «Вивести таблицю температур по Цельсію від 0 до 100˚ та їх еквівалентів по шкалі Фаренгейта, використовуючи для переводу формулу » в середовищі Turbo Pascal.
Щоб розв’яза дану задачу виконую наступний алгоритм:
Запускаю середовище Turbo Pascal, яке має таку структуру: зверху розміщений рядок меню, під ним заголовок програми і номер вікна, під ними синій фон – робоча область, справа і знизу – полоси прокрутки, і внизу екрана рядок стану (Рисунок 10.1. Середовище Turbo Pascal).
Рис.10.1. Середовище Turbo Pascal
Складаю блок-схему до програми використовуючи спеціальні позначення:
б
лок
початку і кінця.б
лок
процесу.б
лок
вводу і виводу.перевірки умови
ц
иклічні
конструкції.
к
оментарі
Пишу текст прогами для розв’язання задачі використовуючи команди мови Pascal:
Program<ім’япрограми> - заголовок програми, в ньому записується ім’я програми згідно правил запису ідентифікаторів.
USES – розділ в якому підключаються модулі для роботи з екраном, принтером та інше.
Crt – моділь очистки екрану.
Var – розділ оголошеня змінних, вньому прописуються всі змінні які потрібні в програмі.
Integer – цілий тип даних.
Real – дійсний тип даних.
i:integer – присвоєння змінній «i» цідого типу даних.
Array – опис масиву.
Begin – початок виконавчої частини програми.
Clrscr – процедура очистки екрану.
For to do– цикл з параметром, використовується коли відоме наперед число повторів.
:= - оператор присвоєння: змінній, що стоїть в лівій частині присвоюється значення виразу, що стоїть в правій частині.
Write – оператор виводу на екран повідомлень які записує користувач.
ln - це закінчення дозволяє преводити курсор після закінчення виво-
ду чи вводу на новий рядок.
Gotoxt – команда,яка переміщає курсор в потрібне місце екрану.
Repeat until keypressed – конструкція, яка перевіряє натиснення клавіші під час виконання програми і показує відразу результат роботи програми на екрані.
End – кінець виконавчої частини.
4.зберігаю «File – Save As» і запускаю на виконання «Ctrl+F9».
Виконубчи вказівки даного алгоритму я виконав поставлену задачу (Додаток Е:Лістинг програми shcala),(Додаток Є: Блок- схема програми shcala) і (Додаток Ж: Результат роботи програми shcala).
11.1. Скласти програму і блок-схему для розв’язку задачі: «Ввести одномірний масив з 9 цілих чисел з клавіатури та вивести його на екран. Знайти його найбільший елемент і замінити його на 100 і вивести на екран масив після заміни» в середовищі Turbo Pascal.
Щоб виконати дане завдання виконую таку послідовність дій як і попередньому завданні:
запускаю середовище Turbo Pascal (Рисунок 10.1. Середовище Turbo Pascal).
складаю блок-схему (за допомогою спеціальних позхначень),за якою буду писати прогаму для даної задачі:
блок початку і кінця.
Блок процесу.
Блок вводу і виводу.
Перевірки умови
циклічні конструкції.
Коментарі
записую текст програми на мові Pascal використовуючи спеціальні слова:
Program<ім’япрограми> - заголовок програми, в ньому записується ім’я програми згідно правил запису ідентифікаторів.
USES – розділ в якому підключаються модулі для роботи з екраном, принтером та інше.
Crt – моділь очистки екрану.
Var – розділ оголошеня змінних, вньому прописуються всі змінні які потрібні в програмі.
Integer – цілий тип даних.
Real – дійсний тип даних.
I:integer – присвоєння змінній «i» цідого типу даних.
Array – опис масиву.
Begin – початок виконавчої частини програми.
Clrscr – процедура очистки екрану.
For to do – цикл з параметром, використовується коли відоме наперед число повторів.
:= - оператор присвоєння: змінній, що стоїть в лівій частині присвоюється значення виразу, що стоїть в правій частині.
Write – оператор виводу на екран повідомлень які записує користувач.
Read – оператор вводу в пам’ять комп’бтера дані без яких неможе працювати програма.
Ln - це закінчення дозволяє преводити курсор після закінчення виводу чи вводу на новий рядок.
If <вираз> then – оператор перевірки умови.
Gotoxt – команда,яка переміщає курсор в потрібне місце екрану.
Repeat until keypressed – конструкція, яка перевіряє натиснення кла-
віші під час виконання програми і показує відразу результат роботи програми на екрані.
End – кінець виконавчої частини.
зберігаю «File – Save As» і запускаю на виконання «Ctrl+F9».
Виконавши всі ці команди я отримав розв’язану задачу (Додаток З: Лістинг програми sto), (Додаток И: Блок-схема програми sto) і (Додаток І: Результат роботи програми sto).
12.1. Скласти програму і блок-схему для побудови зображення (ДодатокЇ Лчстинг програми linza), (Додаток Й Блок-схема програми linza), (Додаток К Результат) використовуючи графічні засоби середовища Turbo Pascal.
Для побудови потрібного зображення я виконую насиупний алгоритм роботи:
запускаю середовище Turbo Pascal (Рисунок 10.1. Середовище Turbo Pascal).
складаю блок-схему (за допомогою спеціальних позхначень),за якою буду писати прогаму для даної задачі:
блок початку і кінця.
Блок процесу.
Блок вводу і виводу.
Коментарі.
Наперед визначени процес.
записую текст програми на мові Pascal використовуючи спеціальні слова:
Program<ім’япрограми> - заголовок програми, в ньому записується ім’я програми згідно правил запису ідентифікаторів.
USES – розділ в якому підключаються модулі для роботи з екраном, принтером та інше.
Crt – моділь очистки екрану.
Graph – модуль призначений для роботи з графікою.
Var – розділ оголошеня змінних, вньому прописуються всі змінні які потрібні в програмі.
Driver, mode – змінні графічного режиму.
Integer – цілий тип даних.
I:integer – присвоєння змінній «i» цідого типу даних.
Begin – початок виконавчої частини програми.
Clrscr – процедура очистки екрану.
:= - оператор присвоєння: змінній, що стоїть в лівій частині присвоюється значення виразу, що стоїть в правій частині.
Initgraph(driver,mode,’ ‘) – процедура ініціалізації графічного режиму.
Setbkcolor(<номер кольору>) – процедура, яка задає колір фону в графічному режимі екрану.
Setcolor(<номер кольору>) – задає колір майбутнього зображення в графічному режимі екрану.
Line(<координати кінців лінії>) – малює лінію між двома точками.
Outtextxy(<координати, текст>) – вмводить даний текст в заданому місці.
Arc(<координати центра, початковий і кінцевий кути, радіус>) – малює дугу.
Repeat until keypressed – конструкція, яка перевіряє натиснення кла-
віші під час виконання програми і показує відразу результат роботи програми на екрані.
End – кінець виконавчої частини.
зберігаю «File – Save As» і запускаю на виконання «Ctrl+F9».
Виконуючи всі ці команди я отримав потрібне мені зображення (Додаток Ї Лістинг програми linza ), (Додаток Й Блок-схема програми linza) і (Додаток К Результатроботи програми linza).