Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
|
|
Вступ |
5 |
Основні поняття мови Паскаль |
7 |
1.1. Алфавіт мови Turbo Pascal. Типи даних |
7 |
1.2. Службові слова мови Turbo Pascal |
9 |
Стандартні типи даних |
10 |
2.1. Операції відношень |
10 |
2.2. Операції над стандартними типами даних |
11 |
2.3. Вирази. Приклади |
12 |
Структура програми мовою Turbo pascal 7.0 |
13 |
3.1. Правил написання Pascal-програм |
14 |
Основні оператори мови Turbo Pascal |
15 |
4.1. Оператор присвоєння в Turbo Pascal |
15 |
4.2. Введення та виведення інформації у Pascal-програмах |
15 |
Вікно середовища програмування Turbo Pascal 7.0 |
16 |
5.1. Основний екран інтегрованого середовища |
16 |
5.2. Основні команди і гарячі клавіши |
17 |
Базові алгоритмічні конструкції |
18 |
6.1. Лінійна структура |
18 |
6.1.1. Складений оператор і оператор переходу |
20 |
6.2. Оператор перевірки умови (розгалуження) |
21 |
6.2.1. Оператор вибору |
22 |
6.3. Оператори циклу |
23 |
6.3.1. Цикл із наперед заданою кількістю повторень For |
23 |
6.3.2. Цикл із передумовою While |
24 |
6.3.3. Цикл із післяумовою Repeat |
26 |
Використання підпрограм у Turbo Pascal |
28 |
7.1. Класифікація підпрограм. |
28 |
7.2. Підпрограми-процедури. Приклади створення |
28 |
7.3. Підпрограми-функції. Приклади створення |
29 |
7.5. Рекурсивні підпрограми |
30 |
Робота з масивами в Turbo Pascal |
31 |
8.1. Поняття про масиви. Класифікація масивів |
31 |
8.2. Операції над одномірними масивами (рядками) |
31 |
8.3. Операції над двомірними масивами (матрицями) |
33 |
Рядки в Turbo Pascal |
35 |
9.1. Поняття про рядки. Стандартні процедури та функції. |
35 |
9.2. Приклади типових програм по обробці рядків. |
36 |
Елементи комп'ютерної графіки |
38 |
10.1. Графічний режим. |
38 |
10.2. Процедури і функції для графічних побудов. |
39 |
10.3. Приклади |
40 |
Приклади програм |
42 |
Коди типових помилок програми Turbo Pascal 7.0 |
46 |
Література |
47 |
Як відомо, для того, щоб компютер міг виконувати потрібні нам задачі, ним повинна керувати програма. Основна відмініть ЕОМ, в тому числі ПК, від інших пристроїв полягає в тому, що ним керує програма.
Компютерна програма - це набір інструкцій, які вказують ЕОМ послідовність дій по вирішенню певної поставленої перед ним задачі.
Для того, щоб компютер “зрозумів” вказівки програміста, він повинен “спілкуватись” із програмістом на спільній мові, яку називають мовою програмування.
На сьогоднішній день у світі існують сотні різних мов програмування, які в загальному можна поділити на мови програмування низького (Asembler) та високого рівня (Pascal, Delphi, C і т.д.). Крім цього мови програмування можна поділити на функціональні, структурні, логічні, процедурні, обєктно-орієнтовані.
Мова Pascal є однією із класичних мов програмування. Найбільшої популярності вона досягла у 80-х - першій половині 90-х років. На її основі розроблено цілий ряд сучасних мов програмування, таких як Borland Delphi.
Мову програмування Pascal розроблено в 1968 році на кафедрі інформатики Стенфордського університету швейцарським ученим Ніклаусом Віртом. Ця мова програмування отримала назву на честь відомого французького математика й філософа Блеза Паскаля (1623-1662). Спочатку вона розглядалась як навчальна мова програмування і завдяки простоті використання застосовувалась у навчальних закладах як “перша” мова програмування для студентів. В 1983 році фірма Borland International перевела її на комерційну основу в якості мови програмування для персональних компютерів. Переломним етапом для мови Pascal став 1985 рік, коли появилась її нова версія, яку назвали Turbo Pascal 3.0. Вона містила оболонку для зручного написання та редагування тексту програм та компілятор стандартного Pascal. З цього часу Pascal набув широкого використання в колах як досвідчених програмістів так і початківців. В наступній версії Turbo Pascal 4.0 було усунуто багато обмежень компілятора, що часто піддавались критиці, та підвищено продуктивність системи. Найбільш важливим нововведенням стало застосування модульної концепції (UNIT-концепції), що була запозичена з мови програмування Modula-2. Це дозволило реалізувати в Turbo Pascal розробку великих програмних продуктів.
З появою версії 5.0 Turbo Pascal отримала ще більші можливості для використання професійними програмістами. Одним із важливих нововведень стало використання апаратних перекриттів або оверлеїв (overlays). Вони дозволили створювати потужні програмні продукти, які розраховані на використання при малих обємах памяті. Механізм оверлеїв полягає в поділі програми на частини, що почергово завантажуються в память (з дискети або жорсткого диска) по мірі необхідності. Крім цього в Turbo Pascal 5.0 розширено можливості відлагодження програм і забезпечено можливість підтримки розширеної памяті.
Ще одним важливим етапом для Turbo Pascal була поява версії 5.5. Саме в цій версії зявилась концепція обєктно-орієнтованого програмування (ООП). фактично мова Pascal стала засновником цього напрямку розвитку мов програмування. ООП полягає у використанні спеціального типу даних - обєктів (Object), які спрощують процес програмування, роблячи тексти програм значно компактнішими. В результаті чого зявився термін Object Pascal. Паралельно з цим, обєктно-орієнтоване програмування розвивається і в іншій популярній мові програмування C, в результаті чого зявляється C++. На основі Object Pascal корпорація Borland розробила нову мову програмування Delphi, яка набула великої популярності в другій половині 90-х років.
Популярність цієї мови пояснюється ще й тим, що вона належить до мов візуального програмування. Мови візуального програмування значно полегшують процес програмування інтерфейсу створюваних програм. Адже зовнішній вигляд вікон та інших обєктів програміст створює лише з допомогою миші та панелей обєктів-заготовок. Серед поширених мов візуального програмування можна також відмітити Visual Basic - це мова, на якій створюють макроси для документів дуже популярного офісного пакета Microsoft Office.
В даному посібнику розглянуто основні можливості програмування на стандартній мові програмування Turbo Pascal версії 7.0. Цей посібник розрахований перш за все на початківців, які тільки знайомляться із світом програмування. Знання Pascal допоможуть їм набути базових навичок програмування та стануть основою для подальшого вивчення більш потужних мов, таких як Delphi.
Транслятор програма, що перетворює програму, написану мовою асемблеру або МВР, в машинні коди.
Транслятори поділяються на дві категорії: інтерпретатори і компілятори.
Інтерпретатор перетворює невеликий фрагмент вихідної програми в машинні коди і, лише дочекавшись, коли процесор їх виконає, переходить до обробки наступного фрагмента.
Turbo Pascal 7.0, залишаючись сумісним із попередніми версіями Turbo Pascal та Turbo Pascal for Windows, надає нам ряд нових можливостей. Найважливішою з них є наявність значно швидшого компілятора програм, який став своєрідним світовим стандартом для компіляторів.
Компілятор - це спеціальна програма (програмний модуль), яка здійснює перетворення тексту програми, написаного на відповідній мові програмування, у програмний код, зрозумілий компютеру. Сам процес перетворення тексту програми, у програмний код називається компіляцією.
Потрібно відмітити, що при компіляції відбувається автоматичний пошук компілятором помилок у тексті програми.
Алгоритм це чітка послідовність дій, напрямлена на досягнення мети або на розв'язання поставленого завдання.
Програма це алгоритм, записаний мовою програмування.
Мова програмування це система позначень, за допомогою яких можна точно описати алгоритм для виконання його комп'ютером.
Мови програмування поділяються: машинні коди, мови асемблеру (Asembler), мови високого рівня (Turbo Pascal), візуальне програмування (Delphi).
Класифікація мов високого рівня: Алгоритмічні (процедурні) мови програмування, дескриптивні (непроцедурні) мови програмування.
Основні поняття мови Паскаль
Алфавіт мови Turbo Pascal. Типи даних.
Як описано вище, компютерні програми створюються з допомогою спеціальних мов, які називаються мовами програмування. Мова програмування, які і будь-яка інша мова, містить свій алфавіт.
Алфавіт мови програмування - це набір констант, типів даних, змінних, стандартних процедур і функцій, операндів та операторів, з яких складається програма.
Розглянемо ці терміни більш детально.
Константи - це дані, значення яких відоме до завантаження програми і не змінюється в процесі її виконання.
В Pascal існують як стандартні константи, так і вказані користувачем. До стандартних констант належить, наприклад, число Pi=3,141592.... Константи, задані користувачем, потрібно вказувати в спеціальному розділі програми (див. наступний розділ посібника).
Змінні - це дані, значення яких вводиться та змінюється під час виконання програми. Усі змінні, що використовуються в Pascal-програмі, потрібно описувати в спеціальному розділі програми (див. наступний розділ посібника)..
Тип даних - це набір даних (констант, змінних, значень функцій і т.д.), які мають спільні характеристики (формат представлення в памяті ПК, множина допустимих значень, множина допустимих операцій, що можна використовувати для даного типу).
Типи даних в Pascal поділяються на прості та складні. До простих типів даних відносяться: -цілі числа; -дійсні числа;
- символьний тип;
- логічний тип;
- інтервальний тип;
- перераховний тип.
Складні типи даних - це типи, які складаються з елементів, що відносяться до простих типів. До складних типів даних відносяться:
- масиви;
- множини;
- стрічки;
- записи;
- файли;
- динамічні змінні;
- вказівки;
- лінійні списки (стеки, черги);
- нелінійні списки (двійкові дерева, несиметричні дерева, тексти, графи);
- процедурний тип;
- обєкти.
Крім цього, типи даних у Turbo Pascal можна поділити на впорядковані та невпорядковані. Впорядковані - це типи, в яких дані розміщені в певному, наперед визначеному, порядку і кожен з елементів характеризується своїм порядковим номером. Невпорядковані - це типи, в яких дані не мають своїх порядкових номерів.
Процедури та функції- це підпрограми, що використовуються в середині програми (більш детально будуть описані далі). До алфавіту мови програмування відносять стандартні процедури та функції, тобто такі, що сприймаються мовою програмування без їх додаткового опису.
Операнди - це спеціальні символи або послідовності символів, які виконують над даними певні операції (математичні, логічні і т.д.). Прикладом операндів можуть бути операнди математичних операцій: “+” - додавання даних), “-” - віднімання даних, “*” -множення даних, “/” - ділення даних, “=” - рівність даних і т.д.
Оператори - це деякі неподільні елементи програми, що дозволяють виконувати певні алгоритмічні дії у програмі, тобто виконувати в програмі певні команди. фактично, оператор - це окрема команда в алгоритмі програми, тобто окремий крок виконання програми.
В Turbo Pascal оператори поділяються на прості та структурні. До простих операторів відносяться:
- оператор присвоєння (:=);
- оператор безумовного переходу (goto);
- оператор звертання до процедури (функції).
Структурними операторами називаються такі, що складаються з інших операторів. До них відносяться:
- складний оператор - представляє собою набір операторів, що поміщені в операторні дужки (begin - end);
- умовний оператор (if);
- оператор вибору (case);
- оператори циклу (repeat, while, for);
- оператор приєднання (with).
Усі вищеописані елементи алфавіту мови програмування складаються з окремих символів. В якості символів, що складають елементи алфавіту, в Turbo Pascal можна використовувати більшість символів, що входять в стандартну ASCII-таблицю. Заборонено використовувати символи розширеної ASCII-таблиці, тобто символи з кодами від 128 до 255, а також символи: (&), (!), (%), (~), (”). Ці символи можна використовувати лише в якості коментарів та в текстових стрічках, які беруться в одинарні лапки ().
Інтегроване середовище програмування це система програмування, що суміщає редактор для зручного введення і редагування програми, транслятор і налагоджувач помилок.
Інтегроване середовище програмування Turbo Pascal 7.0 складається з редактора, компілятора, редактора зв'язків і налагоджувача.
|
Опис |
Приклад |
Алфавіт мови |
Літери латинського алфавіту, цифри, спеціальні символи, зарезервовані слова. |
A...Z, a...z, 0...9, + - * / = < >[ ]{ }$ ^ & # |
Ідентифікатори |
Імена об'єктів (констант, типів даних, змінних, функцій, програм). Правила запису ідентифікаторів:
|
А, В begin Write Test My_First_Program |
Елементи даних |
Константа - комірка пам'яті, значення якої протягом виконання програми залишається постійним. |
45, Pi |
Змінна - комірка пам'яті, значення якої протягом виконання програми може змінюватися. |
a, b, c |
|
Коментар |
Призначений для внесення до тексту програми пояснень. Обмежується символами { } або (* *) |
{Це коментар) (*Це коментар*) |
Службові слова мови Turbo Pascal
and і остачі |
end кінець mod остача |
nil нуль процедура |
repeat повторювати інші. |
Перша програма. Програма це послідовність команд, за допомогою яких записують алгоритм розвязування задачі.
Програми (алгоритми) складають за таким принципом: вводять дані, визначають потрібне, виводять результати. Аналогічно розвязують задачі з математики та фізики, але тут обчислення вручну виконувати не потрібно їх виконає компютер.
Стандартні типи даних
За допомогою програм МВР вирішуються найрізноманітніші завдання, тому необхідно мати можливість створювати й обробляти різні типи даних. Основна одиниця інформації окремий елемент даних, наприклад число або символ.
Тип даних визначає обсяг пам'яті, необхідний для зберігання даного об'єкта, і операції, що можна над цим об'єктом виконувати.
Тип даних |
Позначення |
Опис |
Обсяг пам'яті |
Приклади |
Цілочисельний тип |
Byte |
Цілі числа в інтервалі [0; 255] |
1 байт |
0, 5, 245 |
Shortint |
128..127 |
1 байт |
-5, 26, 96 |
|
word |
0..65535 |
2 байта |
0, 36, 6545 |
|
Integer (основний) |
Цілі числа в інтервалі [-32767; 32767] |
2 байта |
457, -568, -7, 0 |
|
longint |
2147483648..2147483647 |
4 байта |
-2356, 988456 |
|
Дійсний тип |
single |
1.5·10453.4·1038 |
4 байта |
236,36; 6954,369 |
Real (основний) |
Значення з плавоючою крапкою, що містить мантису (до 11 значущих цифр) і експоненту - степінь числа 10 (від 10-39 до 1038) |
6 байтів |
0.4,-1.8, 0.172Е+3, 37Е-4 |
|
extended |
3.4·104951 1.1·104932 |
10 байт |
0.4,-1.8, 0.172Е+3, |
|
Символьний тип даних |
Char |
Символьні константи містять один символ, який обмежено апострофами |
1 байт |
А', 'є', Y, '2' |
Рядковий тип даних |
String |
Рядок символів довжиною не більше 255 |
Залежить від довжини |
|
Логічний тип даних |
Boolean |
Константи логічного типу мають два можливі значення: True (істинне) і False (хибне) |
1 байт |
5<3 - True 5+8>14- False |
Операції відношень
Результатом операції відношень є значення логічного типу:
> |
більше ніж |
< = |
менше ніж або дорівнює |
|
> = |
більше ніж або дорівнює |
= |
дорівнює |
|
< |
менше ніж |
< > |
не дорівнює |
Операції над стандартними
типами даних
Операції над цілими числами:
Операції над дійсними числами:
Зауваження. Операції над дійсними числами завжди дадуть дійсний результат, навіть якщо обидва аргументи цілі!
Вирази
Арифметичні вирази будуються з констант, змінних, функцій і операцій над ними.
Функція |
Тип аргументу |
Тип результату |
Математичний запис, коментар |
abs(x) |
integer, real |
integer, real |
|x| |
arctan(x) |
integer, real |
real |
arctgx |
cos(x) |
integer, real |
real |
cosx |
sin(x) |
integer, real |
real |
sinx |
exp(x) |
integer, real |
real |
ex |
ln(x) |
integer, real |
real |
lnx |
sqrt(x) |
integer, real |
real |
|
sqr(x) |
integer, real |
integer, real |
x2 |
ord(x) |
упорядкований |
integer |
ASCII-код символу |
succ(x) |
упорядкований |
упорядкований |
повертає наступне значення x |
pred(x) |
упорядкований |
упорядкований |
повертає попереднє значення x |
round(x) |
real |
integer |
заокруглює число х до цілого |
trunc(x) |
real |
integer |
відкидає дробову частину числа х |
int(x) |
real |
real |
відкидає цілу частину числа х |
frac(x) |
real |
real |
дробова частина числа х |
odd(x) |
integer |
boolean |
true (x непарне), false (x парне) |
random(x) |
integer |
integer |
Генерує випадкове число з діапазону від 0 до x |
upcase(x) |
char |
char |
замінює малу літеру латинської абетки на велику |
Процедури: |
|||
inc(x,y) |
integer |
integer |
збільшує x на y |
inc(x) |
integer, char |
integer, char |
збільшує x на 1 |
dec(x,y) |
integer |
integer |
зменшує x на y |
dec(x) |
integer, char |
integer, char |
зменшує x на 1 |
Приклади
Правила використання виразів:
1. Вираз записується в один рядок. Наприклад, вираз:
мовою Паскаль має бути записаний так:
(a*x+b*sqr(x)+c*sqr(x)*x)/(14*x-x).
2. У виразах використовуються тільки круглі дужки, причому кількість дужок, що відкриваються, повинна відповідати кількості дужок, що закриваються.
З. Не можна записувати підряд два знаки арифметичних операцій.
Обчислення виконуються зліва направо відповідно пріорітету операцій:
Структура програми мовою
Turbo pascal 7.0
В першому розділі програми програміст повідомляє компілятору, якими ідентифікаторами він позначає дані (константи, змінні), а також встановлює власні типи даних, які надалі він сподівається використовувати в програмі. При цьому необхідно слідкувати, щоб імена змінних, констант, назви типів не повторювались для різних даних.
Розглянемо більш детально всі підрозділи, що можуть використовуватись в програмі.
Program - це заголовок програми, що вказує її ім'я. Для Turbo Pascal 6.0 і більш новіших версій цей підрозділ вказувати необовязково, хоча рекомендовано вказувати заголовок програми, щоб уже при першому знайомстві з її текстом можна було отримати інформацію про її призначення.
Потрібно відмітити, що заголовок програми, що слідує, за словом PROGRAM є ідентифікатором і володіє всіма його властивостями. Крім цього, заголовок програми обовязково повинен починатись з латинської літери, а далі можуть знаходитись символи, допустимі для алфавіту Turbo Pascal.
Uses - цей підрозділ вказує назви модулів та бібліотек, що потрібно підключити до програми. Поняття “модуль”, “бібліотека”, “блок” складають основу термінології програмування на Pascal. Модуль представляє собою замкнутий блок, що має своє імя, компілюється окремо і підключається до вашої програми, як ніби “чорна скринька” із набором певних (описаних у ньому) процедур, функцій, типів даних, констант і т.д. Бібліотека представляє собою набір таких модулів. Якщо модулі в програмі не потрібно використовувати (не використовується процедури, функції і т.д., що описані в модулі), то цей підрозділ не вказуємо.
Потрібно відмітити, що оператор USES може використовуватись в програмі лише один раз, при цьому в нього є чітко визначене місце (він знаходиться поперед усіх операторів та підрозділів (крім заголовка програми та директив компілятора)).
Label - підрозділ, в якому вказується список усіх міток, що використовуються в програмі. Якщо міток у програмі немає, то підрозділ LABEL не вказуємо.
Вважається неофіційним правилом: не використовувати в Pascal-програмі міток, оскільки це суперечить принципам програмування в Pascal. Якщо в програмі використано мітки, то така програма вважається написаною дуже безграмотно.
Const - підрозділ опису констант. Якщо в програмі будуть застосовуватись константи, то їх імена та значення (після знаку рівності) вводять в розділі Const В інших випадках цей підрозділ не вказується. Слід відмітити, що стандартні константи, прийняті в Pascal, не потрібно описувати в даному розділі.
Type - підрозділ опису користувацьких типів даних. В цьому підрозділі переважно вказують складні та нестандартні типи даних. Якщо такі типи в програмі не використовують, то даний підрозділ не вказується.
Var - підрозділ опису всіх змінних, що використовуються в програмі. Потрібно відмітити, що всі змінні, що використовуються в програмі, обов'язково повинні бути описані в підрозділі var. Це єдиний підрозділ розділу описів та узгоджень, який обовязково повинен бути представлений у кожній Pascal-програмі.
Розділ текстів процедур та функцій вказується лише у випадку, якщо в програмі використовуються нестандартні процедури та функції, що створені самим користувачем (якщо вони не описані в одному з модулів вказаних у розділі USES). Потрібно відмітити, що процедури та функції - це спеціальним чином оформлені послідовності команд (у вигляді підпрограми). Доступ до цієї підпрограми може здійснюватись з будь-якого місця основної програми, а також з будь-якої процедури та функції, що описані нижче по тексту програми. Більш детально про використання процедур та функцій буде описано далі.
Третій розділ програми - це розділ основного блоку програми. В цьому розділі знаходиться основний текст програми. Починається цей розділ словом begin і закінчується словом end, після якого слідує крапка.
Правила написання Pascal-програм
1. Основний текст будь-якої програми починається службовим словом begin і закінчується словом end, після чого слідує крапка. Без крапки програма вважається не закінченою. І навпаки, якщо в програмі знаходиться крапка, то всі команди, що слідують за нею ігноруються (оскільки програма завершена).
2. В кінці кожної команди ставиться крапка з комою (“;”) - символ, що розділяє команди між собою.
3. Після команди, яка знаходиться перед end, крапку з комою (“;”) бажано не встановлювати, оскільки буде вважатись, що перед end є ще один порожній оператор.
4. Команди в Pascal можна записувати в один рядок, хоча для полегшення читабельності програми бажано кожну команду вказувати з нового рядка.
5. Якщо користувач бажає помістити в текст програми коментарі, то їх необхідно вказувати у фігурних дужках (замість фігурних дужок можна вказувати альтернативний набір символів - “(* ,,, *)” ).
6. При вказанні в програмі виразів, що містять будь-які дужки потрібно памятати, що кількість закритих та відкритих дужок повинна бути однаковою.
7. Якщо потрібно використати декілька операторів у якості одного складеного оператора, то їх слід взяти в операторні дужки, що починаються словом begin і закінчуються end. При цьому кількість слів begin у програмі повинна співпадати з кількістю слів end.
8. Усі змінні, константи та типи даних, що використовуються в програмі, повинні бути описані в розділах const, type та var.
Необов'язково (або "Правила хорошого тону")
1. Після команди begin всі наступні команди, аж до відповідного йому end, бажано записувати з відступом (наприклад, на величину слова begin).
2. Назви всіх команд бажано записувати малими літерами, а змінні - великими.
Оператори
Оператори це команди програми. Нижче наводяться основні оператори, за допомогою яких можна створювати првсті програми.
Оператор |
Загальний вигляд |
Опис |
Приклади |
:= Присвою-вання |
Ідентифікатор:= вираз |
Присвоює змінній конкретне значення, заповнюючи комірку пам'яті, відведену для змінної, новим значенням, відночас знищуючи старе |
А:=2 X:= У + 2 - Z Name:= 'Федір' |
Read Введення (зчитування) даних з клавіатури |
Read(a1, a2,... ,аn), де а1, а2, ...,аn змінні зазначених типів, яким присвоюються значення, що вводяться |
Програма зупиняється і чекає введення необхідної кількості даних. Числа при введенні поділяються пробілами або натиском клавіші <Enter>. Введення закінчується натиском клавіші <Enter> |
Read (Name) Read (А, В, У, Z) |
Readln |
Після введення значень а1, а2, ...,аn курсор переводиться на наступний рядок |
||
Write Виведення (запис) даних на монітор |
Write(a1, a2,... ,аn), де а1, а2, ...,аn константи або змінні зазначених типів |
Виведення зазначених даних (чисел, змінних, тексту, який обмежено апострофами) виконується з позиції курсору |
Write ('Відповідь',2) Відповідь 2 Write('Привіт,', Name,'!') Привіт, Федоре! |
Writeln |
Після виведення значень а1, а2, ...,аn курсор переводиться на наступний рядок |
Зауваження. Після кожного оператора в програмі ставиться символ «;» (крапка з комою). У кінці програми ставиться «.» (крапка).
Основний екран інтегрованого середовища програмування Turbo Pascal 7.0 виглядає таким чином:
По функціональному призначенню виділяється три області екрану:
Рядок меню активізується натисненням клавіші F10. У меню містяться наступні розділи:
Всі пункти меню доступні через гарячі клавіші. Для цього треба натиснути клавішу Alt і ту букву, яка виділена червоною в назві пункту меню. Меню також дозволяє працювати з мишею.
В робочої області є можливість відкривати різні вікна програми - вікна редагованого тексту, вікна допомоги, відладки і настройки. У вищенаведеному прикладі відкрито тільки одне вікно - вікно тексту програми. У заголовку вікна написано ім'я файлу - початкового тексту програми.
Рядок стану демонструє деякі доступні і важливі в даний момент операції і відповідні ним комбінації клавіш.
Основні команди і гарячі клавіши
Нижче наведені основні команди середовища програмування Турбо Паскаль і відповідні їм гарячі клавіші.
Базові алгоритмічні конструкції
Базові алгоритмічні конструкції (управляючі структури) це способи управління процесами обробки даних. Комбінуючи керуючі структури, можна складати програми для розв'язання різноманітних завдань.
Виділяють три базові алгоритмічні конструкції:
лінійні алгоритми (послідовне виконання);
умова (розгалуження);
цикли (повторення).
Лінійна структура
Лінійна структура передбачає, що тіло програми являє собою послідовність операторів, що виконуються підряд один за одним.
Блок-схема лінійного алгоритму наведена на рисунку ліворуч (рис.1)
Лінійна програма, яка підраховує суму двох чисел праворуч (рис. 2)
Лінійні алгоритми (інша назва прості) це алгоритми, що складаються з команд присвоєння, введення-виведення даних та викликів процедур.
Умова (розгалуження) це вид управляючої структури, що передбачає можливість вибору з декількох варіантів, для кожного з яких в залежності від певної умови виконується своя послідовність операторів.
Цикл (повторення) це вид управляючої структури, що дозволяє кілька разів повторити задану кількість операторів.
СКЛАДЕНИЙ ОПЕРАТОР І ОПЕРАТОР ПЕРЕХОДУ
1. Складений оператор.
Складений оператор це декілька операторів, об'єднаних в одну групу (блок) за допомогою службових слів BEGIN та END.
Ці слова називають операторними дужками.
Складений оператор має таку структуру:
BEGIN <оператор1 >; <оператор2 >; <оператор3 >; *** <оператор n > END; |
Складений оператор може бути записаний в будь-якому місці програми, де допускається один оператор.
Запис BEGIN END чи ;; називається порожнім операторм або операторними дужками.
Приклад 1. Розглянемо складений оператор (фрагмент програми):
BEGIN
Suma:=Suma+Cina;
N:=N+1
END;
2. Оператор переходу.
Оператор переходу це оператор, що реалізує розгалуження і передає керування у потрібне місце.
GOTO <позначка> |
Оператор переходу має таку структуру:
Позначку заздалегідь оголошують в розділі оголошення позначок:
LABEL <список позначок>. |
<позначка>: <оператор> |
Якщо позначка (ціле число) оголошена, то в програмі повинен бути такий фрагмент:
Зауваження 1. Оператор GOTO використовують зрідка.
Зауваження 2. У середовищі програмування Turbo (Borland) Pascal 7.0 службове слово PROGRAM можна не писати. Але це тільки у версії 7.0 і вище.
Вказівка розгалуження та вибору
3. ВКАЗІВКА РОЗГАЛУЖЕННЯ IF
Умова (розгалуження) це вид управляючої структури, що передбачає можливість вибору з декількох варіантів, для кожного з яких в залежності від певної умови виконується своя послідовність операторів.
Логічний вираз це засіб записування умов для відшукання потрібних даних. Логічний вираз може приймати значення true (істинність) або false (хибність). Логічні вирази бувають прості та складені. Простий це два арифметичні вирази, зєднані символом відношення, а складений це прості логічні вирази, зєднані назвами логічних операцій: not, and i or.
Опис та використання вказівки розгалуження
Вказівка розгалуження в мові програмування Паскаль може записуватися в повній або в скороченій формах.
if <умова> then <вказівка1> else <вказівка2>; |
Дія оператора: Якщо умова справджується, то виконується вказівка 1, якщо ні то вказівка 2.
2. Скорочена форма:
Іf <умова> then <вказівка>; |
Дія оператора: Якщо умова істинна, то виконується вказівка, якщо ні, то вказівка не виконується.
Службові слова, які використовуються в умовній вказівці, мають зміст if якщо, then то, else інакше.
Умова це вираз булевого типу. Умова може бути простою або складеною.
Наприклад.
1. Проста умова: а<5, с>=а, х=0, а<b
2. Складена умова (а>5) and (a<10 ), (а=2) or (b=3)
Складена умова записується з допомогою логічних операцій and і, or чи (або), not не. При записі умови можна використовувати всі можливі операції відношення. Результатом виразу умови завжди буде величина булевого типу.
4. вказівка вибору CASE
Довільна вказівка в програмі може бути помічена міткою. Мітка вказівки записується перед нею і відділяється від неї двокрапкою.
Мітка це довільне ціле число в інтервалі від 0 до 9999 або довільний ідентифікатор (тобто ім'я мітки записується згідно з правилами запису ідентифікаторів).
Однією міткою може бути помічена тільки одна вказівка. Ідентифікатор мітки не повинен співпадати з ідентифікатором змінної або константи.
Вказівка вибору ( варіанту)
У випадку, коли необхідно використовувати декілька вказівок розгалуження, вкладених одна в одну, то краще замінити їх вказівкою вибору.
Вказівка вибору записується у вигляді:
Case <вираз> of значення1:<вказівка1>; значення2:<вказівка2>; значенняМ:<вказівкаM> end; |
Дія оператора: Якщо значення виразу збігається зі значенням з деякого списку, то виконується відповідний оператор, а інші оператори не виконуються Якщо ні одне з значень не співпадає зі значенням виразу, то виконується вказівка, яка знаходиться після вказівки варіанту, тобто після службового слова end.
Вираз, який записується між службовим словом case і of, називається селектором. Селектор повинен належати до одного з цілого, булевого, символьного типів або типу користувача. Дійсні і рядкові типи в селекторах використовувати не можна.
Мітки варіантів константи, типи яких повинні співпадати з типом селектора. Всі мітки варіантів повинні бути різними. Якщо одній вказівці у вказівці варіанту відповідає декілька міток, то вони перераховуються через кому.
Виконується вказівка варіанту так.
Примітка.
Мітки варіанту не потрібно описувати в розділі міток Label і їх не можна використовувати у вказівці безумовного переходу Goto.
Наприклад.
Скласти програму, яка визначає пору року за порядковим номером місяця.
Program PORA;
Var MONTH: integer;
begin
Write('Введіть порядковий номер місяця (від 1 до 12): ');
readln(MONTH);
case MONTH of
3,4,5:writeln('Becнa');
6,7,8 : writeln ('Літо');
9,10,11:writeln('Ociнь');
12,1,2:writeln('Зимa')
end;
end.
ВКАЗІВКИ ПОВТОРЕННЯ (ЦИКЛУ)
5. Вказівка повторення з параметром FOR
Цикл це вид управляючої структури, що дозволяє кілька разів повторити задану кількість операторів. Цикли - основний засіб у програмуванні, що дозволяє коротко записувати алгоритм, який здійснює велику кількість дій.
Для реалізації циклічних алгоритмів у мові Паскаль використовуються оператори повторення (цикли):
Оператор циклу з параметром передбачає повторне виконання деякого оператора з одночасною зміною значення, що присвоюється керуючою змінною (параметру цього циклу). Він має вид:
а) зі значенням 1 кроку зміни параметра:
For < параметр > := <вираз1 > to <вираз2 > do <оператор > |
Дія оператора: Параметрові циклу присвоюється значення виразу 1. Якщо це значення менше-рівне, ніж значення виразу 2, то виконується оператор. Після виконання оператора значення параметра автоматично збільшується на 1 і знову порівнюється зі значенням виразу 2 і т.д. Коли значення параметра стане більшим, ніж значення виразу 2, то виконується наступний після циклу оператор.
або
б) зі значенням -1 кроку зміни параметра:
For < параметр >:=< вираз1 > downto <вираз2 > do <оператор> |
Дія оператора: Ця команда діє як попередня, але крок зміни параметра є 1.
Оператор - тіло циклу.
Параметр циклу, вираз1 і вираз2 повинні бути одного й того ж скалярного типу ( крім дійсного). Вираз1 і вираз2 обчислюється лише один раз - при вході в цикл, і, отже, повинні бути визначені до входу в цикл і не можуть бути змінені в тілі циклу.
Якщо вираз1 і вираз2 розділяє службове слово to, то після виконання оператора (тіла циклу) параметр циклу v приймає значення Succ(v), якщо ж дільником виразу1 і виразу2 служить слово downto, то параметр циклу v після виконання тіла циклу приймає значення Pred(v).
Приклад:
Піднести будь-яке дійсне число а до будь-якого цілого степення n.
Розв'язок:
program Stepin;
var
a,p:real;
i,n:integer;
begin
write('введіть a - основу степеня, а=');
readln(a);
write('введіть ціле n - показник степеня, n=');
readln(n);
p:=1;
for i:=1 to n do
p := p * a;
writeln('p=',p)
end.
6. Вказівка повторення WHILE
Оператор For використовується лише у випадку, коли заздалегідь відома кількість повторень тіла циклу. У більш загальному випадку, коли кількість повторень заздалегідь невідома, а задана деяка умова закінчення (або продовження) циклу, у мові Pascal використовують інші оператори повторення: оператор циклу з передумовою While і оператор циклу з післяумовою Repeat.
Вказівка циклу з передумовою:
Дія оператора:
Оператор (тіло циклу) виконується до тих пір, поки умова істинна. Якщо при першій перевірці умова виявилась хибною, оператор не виконується. Зазначений оператор виконується нуль, один або декілька разів, поки умова справджується.
Тіло циклу WHILE виконується до тих пір, поки умова приймає значення True. Дії, що містяться в тілі циклу, будуть виконані у крайньому випадку один раз. Таким чином, не виконання умови є умовою закінчення циклу.
7. Вказівка повторення REPEAT
Оператор For використовується лише у випадку, коли заздалегідь відома кількість повторень тіла циклу. У більш загальному випадку, коли кількість повторень заздалегідь невідома, а задана деяка умова закінчення (або продовження) циклу, у мові Pascal використовують інші оператори повторення: оператор циклу з передумовою While і оператор циклу з післяумовою Repeat.
Оператор циклу з післяумовою визначений діаграмою:
Оператор циклу з післяумовою передбачає повторне виконання деякого оператора(ів) до тих пір, поки не виконається умова.. Він має вид:
REPEAT <оператор1 > <оператор2 > <оператор3 > *** <оператор n > UNTIL <умова>; |
Дія оператора: Спочатку виконуються зазначені оператори, а пізніше перевіряється умова. Якщо умова справджується (істинна), то виконання циклу завершується, якщо ні, то оператори виконуються ще раз, і так далі.
Тіло циклу Repeat виконується до тих пір, поки умова приймає значення False. Дії, що містяться в тілі циклу, будуть виконані у крайньому випадку один раз. Таким чином, виконання умови є умовою закінчення циклу.
ВКЛАДЕНІ ЦИКЛИ: Вкладені цикли це декілька циклів записаних один за одним. Наприклад: for i:=1 to 10 do for j:=1 to 15 do <оператори> |
Зауваження:
Repeat Until KeyPressed умова, чи
натиснена клавіша (пауза);
Підпрограми
Підпрограми призначені для реалізації алгоритмів опрацювання окремих частин деякої складної задачі. Вони дають змогу реалізовувати концепцію структурного програмування, суть якого полягає в розкладанні складної задачі на послідовність простих підзадач і в складанні для алгоритмів розвязування кожної підзадачі відповідних підпрограм. Розрізняють два види підпрограм підпрограми-процедури та підпрограми-функції. Підпрограми поділяються на: стандартні та підпрограми користувача.
Стандартні підпрограми створювати не потрібно вони містяться у стандартних модулях System, Crt, Dos, Graph тощо.
Підпрограма користувача це пойменована група команд, яку створюють і описують в основній програмі в розділах procedure або function і до якої звертаються з будь-якого місця програми потрібну кількість разів.
1. Процедури (procedure). Загальний опис процедури:
procedure <назва> (<список формальних параметрів>); <розділи описів і оголошень процедури>; begin <розділ команд процедури> end; |
У списку формальних параметрів перераховують змінні разом із зазначенням їхніх типів. Розрізняють параметри-аргументи (інший термін: параметри-значення) вхідні дані для процедури, і параметри-результати (інший термін: параметри-змінні), через які можна повертати результати роботи процедури в основну програму. Перед списками параметрів-результатів кожного типу записують слово var.
Зауважимо, що масиви фіксованих розмірів у списках формальних параметрів не можна описувати за допомогою слова array (див. зразки програм).
Розділи описів і оголошень у підпрограмах мають таку саму структуру як і в основній програмі.
Приклад1. Розглянемо процедуру з назвою Cina, яка визначає с вартість k хвилин телефонної розмови з похвилинною оплатою 0.6 грн. + 20% ПДВ.
procedure Cina(k:integer; var c:real);
begin
c:=k*0.6; c:=c+0.2*c;
end;
У наведеному прикладі k є формальним параметром-аргументом, с формальним параметром-результатом.
До процедури звертаються з розділу команд основної програми або іншої підпрограми.
Звернення до процедури:
<назва процедури> (<список фактичних параметрів>); |
Параметри, які записують у команді виклику процедури, називаються фактичними. Фактичними параметрами-аргументами можуть бути сталі, змінні, вирази, а параметрами-результатами лише змінні. Типи даних тут не зазначають.
Між фактичними і формальними параметрами має бути відповідність за кількістю й типами. Зверніть увагу, відповідні фактичні та формальні параметри можуть мати різні імена.
Команда виклику функціонує так: значення фактичних параметрів присвоюються відповідним формальним параметрам процедури, виконується процедура, визначаються параметри-результати, значення яких надаються (повертаються) відповідним фактичним параметрам у команді виклику.
Змінні, описані в розділі описів основної програми, називаються глобальними. Вони діють у всіх підпрограмах, з яких складається програма. Змінні, описані в розділі описів конкретної процедури, називаються локальними. Вони діють тільки в межах даної процедури.
Процедури можуть отримувати і повертати значення не тільки через параметри-результати, але й через глобальні змінні. Тому списків параметрів у процедурі може і не бути.
2. Функції (function). Функція, на відміну від процедури, може повертати в місце виклику лише один результат простого стандартного типу.
Загальний опис функції:
function <назва>(<список формальних параметрів>) : <тип функції>; <розділи описів і оголошень функції>; begin <розділ команд функції, де має бути така команда: назва:=вираз> end; |
У розділі команд функції має бути команда присвоєння значення деякого виразу назві функції. Результат функції повертається в основну програму через її назву (як і випадку використання стандартних функцій, таких як sin, cos).
Звернення до функції:
<назва> (<список фактичних параметрів>). |
Приклад1. Створимо функцію для обчислення tg(x) та обчислимо значення виразу tg(x)+ctg(x)+tg2(x).
program Myfunc;
uses Crt;
var x,y:real;
function tg(x:real):real;
begin
tg:=sin(x)/cos(x)
end;
begin clrscr;
writeln('Введіть х');
readln(x);
y:=tg(x)+1/tg(x)+sqr(tg(x));
writeln('y=', y:5:2); readln
end.
3. Рекурсивні функції. Рекурсією називається алгоритмічна конструкція, де підпрограма викликає сама себе. Рекурсія дає змогу записувати циклічний алгоритм, не використовуючи команду циклу. Розглянемо спочатку поняття стеку.
Стек це структура даних в оперативної памяті, де дані запамятовуються і зберігаються за принципом «перший прийшов останнім пішов». Аналогом у військовій справі є ріжок для набоїв до автомата.
Приклад1. Рекурсивна функція обчислення суми цілих чисел від a до b має вигляд:
function Suma(a,b:integer):integer;
begin
if a=b then Suma := a {Це стоп-умова рекурсії}
else Suma := b + Suma(a, b1) {Це неявний цикл}
end;
Приклад2. Скласти рекурсивну функцiю Factorial для обчислення факторіала числа n! = 1·2·3·...·n, (0! = 1, 1! = 1), яка грунтується на багаторазовому (рекурсивному) застосуваннi формули n! = n·(n 1)!.
function Factorial(n : integer) : integer;
begin
if n = 0 then Factorial := 1 {Це стоп-умова}
else Factorial := n * Factorial(n1)
end;
Зауваження. Застосовуючи рекурсію, потрібно правильно складати стоп-умови, які забезпечують закінчення циклічних обчислень.
Масиви
Масив (array) це скінчений набір елементів одного (базового) типу, які зберігаються в послідовно розташованих комірках оперативної памяті і мають спільну назву.
У математиці поняттю мaсив відповідають поняття вектора та матриці. Розрізняють одно (рядки, стрічки, вектори)- та багатовимірні масиви. Двовимірний масив даних це таблиця, що складається з декількох рядків.
1. Одновимірні масиви (рядки, вектори):
Загальний вигляд конструкції опису типу масиву такий:
TYPE <назва типу>=array [<розмір>] of <назва базового типу>; |
можна і так:
<список змінних>:array [<розмір>] of <назва базового типу>; |
Розмір (кількість елементів) масиву найчастіше задають у вигляді діапазону або назви деякого перерахованого типу даних.
Описати масив можна у розділі опису типів type, у розділі констант const, або у розділі оголошення змінних var. Назви типів масивів і змінних-масивів придумує користувач.
Приклад. Розгляньте: 1) опис типу масивів (назва типу mymasyv), 2) оголошення cталого масиву (масиву-константи) vydatky типу mymasyv і 3) оголошення змінних-масивів a, a1 типу mymasyv та масивів: b (він має 7 елементів цілого типу), c (має 100 елементів-символів, тобто даних типу char).
type mymasyv= array [1..10] of real;
day=(mon, tue, wed, the, fri, sat, sun);
const vydatky: mymasyv =(1.2, 1, 1, 2, 18, 2.4, 8.97, 3, 7, 1.3);
var a, a1: mymasyv;
b: array[day] of integer;
c: array [1..100] of char;
Над масивами визначена єдина команда копіювання: a:=a1 усі значення масиву a1 будуть присвоєні відповідним елементам масиву a. Усі інші операції, наприклад, присвоєння конкретних значень, додавання, множення тощо, визначені лише над елементами масиву.
Доступ до елемента масиву здійснюється через назву масиву і номер елемента. Цей номер (його часто називають індексом) записується в квадратних дужках, наприклад, a[1] - перший елемент масиву а, b[tue]-другий елемент масиву b.
Щоб опрацювати всі елементи масиву використовують команду циклу for (чи while або repeat).
Приклад.Елементам описаних масивів можна надати значення так: a[1]:=15.1; b[tue]:=3; с[1]:=a; c[2]:=b. Сталі елементи мають такі значення: vydatky[1]=1.2; vydatky[2]=1; …; vydatky[10]=1.3.
Приклад. Створити масив з перших ста цілих чисел і обчислити суму всіх його елементів можна так: s:=0; for i:=1 to 100 do begin a[i]:=i; s:=s+a[i] end; writeln(s);
Задачі відшукуання в масиві конкретних даних розвязують методом сканування (перебирання, перегляду) усіх елементів масиву за допомогою циклу і умовної команди, де зазначають умову пошуку.
Задача 1. Нехай yk це число викликів, які поступають на АТС за k-ту секундy. Припустимо, що yk випадкове число зі значенням від 0 до 6, яке генерується формулою yk=trunc(abs(7sin(k))). Утворити масив y з десятьма елементами . Обчислити суму викликів за перші 10 секунд роботи АТС та максимальну кількість викликів, що були за деяку одну секунду. Вивести результати обчислень.
program ATS;
uses Crt;
type vyklyk= array[1..10] of integer;
var y: vyklyk; max, s, i: integer;
begin
clrscr;
max:=0; s:=0; {Припустимо, що max=0}
for i:=1 to 10 do
begin
y[i]:=trunc(abs(7*sin(i))); {Обчислимо кількість викликів}
write('Кількість викликів за ', i, 'ту секунду: '); {за і-ту секунду}
writeln(y[i]:5); {Виведемо цю кількість}
s:=s+y[i]; {Обчислимо суму викликів}
if y[i]>max then max:=y[i]; {Обчислимо max значення }
end;
writeln('Кількість викликів за 10 секунд = ', s:3);
write('Максимальна кількість викликів за одну ');
writeln('секунду = ', max:3);
readln
end.
Зауваження. Випадкове ціле число зі значенням від 0 до 6 можна згенерувати також за допомогою функції random(7). На початку виконуваного блоку слід записати виклик процедури randomize (вона забезпечить іншу послідовність випадкових чисел під час виконання програми вдруге).
Задача 2. Утворити масив y, елементи якого обчислюються за формулою yk=ln(k)3, де . Побудувати масив g, який складається з від'ємних елементів масиву y. Вивести результати обчислень. Якщо шуканих величин немає, вивести про це повідомлення.
У наступній програмі змінна n визначає кількість відємних елементів у новому масиві.
program DvaMasyvy;
uses Crt;
var y,g: array [1..10] of real;
k,n: integer;
begin clrscr;
n:=0; {Спочатку кількість елементів у g = 0}
for k:=1 to 10 do
begin
y[k]:=ln(k)3;
if y[k]<0 then {Перевіримо чи елемент від'ємний}
begin
n:=n+1; {Збільшимо кількість елементів вектора g}
g[n]:= y[k]; {Знайдемо n-ий елемент}
end;
writeln('y(' , k, ')=' , y[k]:7:2);
end;
if n=0 then writeln('Масив у від''ємних елементів не має')
else
for k:=1 to n do
writeln('g[' , k , ']=' , g[k]:7:2); {Виведемо масив g }
readln
end.
2. Двовимірні масиви (матриці). Елементи двовимірного масиву (дані можуть бути подані у вигляді таблиці-матриці) визначаються іменем масиву та двома індексами: перший індекс означає номер рядка, а другий номер стовпця, на перетині яких стоїть елемент, наприклад р[1,2], p[i,j].
Загальний вигляд конструкції опису типу матриці такий:
TYPE <назва типу>=array [<розмір>, <розмір>] of <назва базового типу>; |
можна і так:
<список змінних>:array [<розмір>,<розмір>] of <назва базового типу>; |
Розглянемо приклади оголошення масиву-константи bal, що має 2 рядки і 4 стовпці елементів, деякого масиву doba, який міститиме 24·60 елементів цілого типу, двовимірного масиву р розміру 9 на 9 (тут буде 9·9=81 елемент).
const bal: array [1..2, 1..4] of integer=((4,3,5,3), (4,4,5,3));
var doba: array [0..23] of array [0..59] of integer;
const n = 9;
var p : array [1..n, 1..n] of integer;
Тут bal[1,1]=4, bal[1,2]=3, …, bal[2,3]=5, bal[2,4]=3. Значення елементам масивів doba i p можна надати командою присвоєння двома способами,наприклад, так: doba[16][30]:=5, doba[16,30]:=5.
Задача 3. Скласти програму для занесення в двовимірний масив р таблиці множення двох чисел і виведення масиву на екран.
program Pifagor;
uses Crt;
const n = 9;
var p: array [1..n, 1..n] of integer; i, j : integer;
begin clrscr;
for i := 1 to n do begin
for j := 1 to n do begin
p[i, j] := i * j;
write(p[i, j] : 6) {Зверніть увагу на команди виведення масиву}
end; {у вигляді таблиці}
writeln
end;
readln; end.
Задача 4. Кондитерська фабрика для виготовлення п'яти сортів цукерок використовує п'ять видів сировини. Нехай норми затрат aij кожного виду сировини і на виробництво 1т цукерок сорту j задані формулою aij = 2|Sin(i)|+j, . Вивести на екран таблицю затрат сировини (тобто масив а). Визначити для якого сорту цукерок (imin) потрібно найменше сировини (min) третього виду.
program Fabryka;
uses Crt;
type vytraty = array [1..5, 1..5] of real;
var i,j,imin: integer; min: real; a:vytraty;
begin clrscr;
writeln(' Вид сировини');
writeln(' 1 2 3 4 5');
for i:=1 to 5 do {Утворимо таблицю затрат}
begin
write(i, ' сорт');
for j:=1 to 5 do
begin
a[i,j]:=2*abs(sin(i)) +j;
write(a[i,j]:7:2); {Роздрукуємо елементи і-го рядка}
end;
writeln {Перейдемо на новий рядок}
end;
imin:=1;
min:=a[1;3]; {Припустимо, що найменше сировини третього}
for i:=2 to 5 do {виду потрібно для цукерок першого сорту}
if a[i,3]<min then
begin
min:=a[i,3]; imin:=i; {Визначимо шуканий сорт цукерок}
end;
writeln('Найменше сировини третього виду ');
writeln('потрібно для цукерок ', imin, ' сорту');
readln; end.
Зауваження. Нехай задана деяка матриця ai,j, . Тоді вирази i = j, i < j та i > j визначають відповідно елементи головної діагоналі, елементи над та під головною діагоналлю цієї матриці.
Рядки
1. Рядки (string). Дане типу рядок це послідовність довільних символів (тобто елементів типу char). Сталі типу рядок записують за допомогою двох штрих-символів, які охоплюють текст. Рядок може містити від 0 до 255 символів. Наприклад, 'Україна', 'Львівська політехніка', '' порожній рядок нульової довжини, ' ' рядок, що містить один символ-пропуск.
Змінну типу рядок оголошують за допомогою слова string так:
var <змінна>: string[n]; |
де n довжина рядка, n<256. Довжину рядка можна не зазначати.
Приклад.
const slovo=University;
var fraza1: string[45]; fraza2: string;
Над змінними типу рядок визначені операції зєднання (+) та порівняння (<, <=, >, >=, =, <>). Порівняння двох рядків здійснюється зліва направо до перших різних символів, причому 'A'<'B', 'B'<'C' тощо. “Більшим” вважається символ, який розташований в алфавіті далі. Числовий код символу дає функція ord, наприклад, ord('B')=66, ord('A')=65. Зворотну дію виконує функція chr: chr(66) дає 'B'.
Приклад. Нехай t1='New', t2=' Year'. Тоді з'єднанням цих рядків буде s:=t1+t2 (s матиме значення 'New Year'). Тут s > t1.
Приклад. Вивести на екран малі літери латинського алфавіту та їхні коди можна так: for v:= 'a' to 'z' do writeln(v, ord(v):5).
2. Функції та процедури для дій з рядками. Над даними типу рядок визначені такі стандартні функції:
length(<рядок>) визначає кількість символів у рядку; copy(r, m, n) дає n символів рядка r, починаючи з символу з номером m; concat(r1, r2, ..., rn) з'єднує рядки r1, ..., rn в один рядок; pos(r1, r2) визначає номер символу, з якого починається входження рядкаr1 у рядок r2. |
та процедури:
insert(r1, <змінна>, n) вставляє рядок r1 у рядок, заданий змінною, починаючи з позиції n; delete(<змінна>, m, n) вилучає n символів з рядка, заданого змінною, починаючи з позиції m; str(<число>, <змінна>) переводить числове дане в дане типу рядок; |
де зазначена змінна посилає в процедуру вхідне дане типу рядок і отримує назад інший рядок результат виконання процедури.
Приклад. Нехай змінна Lviv має значення 'Львівська політехніка'. Розглянемо приклади функцій та їхні значення:
Функція Значення
length(Lviv) 21;
copy(Lviv, 15, 11) техніка;
concat(Lviv,' 2000') Львівська політехніка 2000;
pos('т', Lviv) 15.
Наступні процедури нададуть змінній Lviv таких значень:
Процедура Значення змінної Lviv
insert('НУ ', Lviv, 1) 'НУ Львівська політехніка'
delete(Lviv, 6, 16) 'Львів'
str(2000, Lviv) '2000'
val('1256', Lviv1, Ozn) Lviv1=1256, Ozn=0
Є два способи опрацювання даних типу string. Перший можна опрацьовувати весь рядок як єдине ціле, застосовуючи до нього функції та процедури, другий можна розглядати рядок як масив, складений з елементів-символів, і опрацьовувати його за правилами роботи з елементами масиву.
Приклад. Деякі значення змінним fraza1 та fraza2 з попереднього прикладу можна надати, а потім вивести тексти на екран так:
fraza1:=Ви любите канікули?;
for i:=1 to 19 do read(fraza2[i]);{Вводимо текст з клавіатури}
writeln(fraza1); writeln(fraza2).
Задача 1. Кодування інформації. Вилучити з фрази а пропуски, коми і крапки, інші символи продублювати. Вивести результат.
program MyCode;
uses Crt;
var a, b, c : string; i : integer;
begin
clrscr;
write('Введіть текст: ');
readln(a); {Вводимо будь-яку фразу}
b := '';
for i := 1 to Length(a) do
begin
c := Copy(a, i, 1); {Зверніть увагу на коментар унизу:}
if (c <> ',') and (c <>'.') and (c <>' ' ) { або так: c := a[i]; }
then b := b + c + c
end;
writeln(b);
readln
end.
Задача 2. Скласти програму, яка скрізь у заданому тексті mytext замінить деяке слово іншим словом такої ж довжини (word1 на word2).
program FindAndChange;
uses Crt;
var mytext, word1,word2 : string; i,k : integer;
begin
clrscr;
write('Введіть текст: '); readln(mytext);
write('Введіть шукане слово: '); readln(word1);
write('Введіть інше слово: '); readln(word2);
k := length(word1);
for i := 1 to length(mytext) - k do
if copy(mytext, i, k) = word1 then
begin
delete(mytext, i, k);
insert(word2, mytext, i)
end;
writeln(mytext);
readln
end.
Задача 3. Нехай задано рядок 'Я люблю інформатику'. Визначити довжину рядка. Вивести на екран друге слово цього рядка.
program Ryadok;
uses Crt;
const r1: string = 'Я люблю інформатику';
var i,k,m,n1,n2: integer;
begin
clrscr;
m:=0;
k:=length(r1); {Визначаємо довжину рядка}
writeln('Довжина рядка k=', k);
for i:=1 to k do {Переглядаємо всі символи рядка}
if r1[i]=' ' then {Шукаємо пропуск}
begin
m:=m+1;
if m=1 then n1:=i; {Визначаємо номер першого та другого пропусків}
if m=2 then n2:=i
end;
for i:=n1+1 to n21 do write(r1[i]); {Виводимо слово між двома пропусками}
readln
end.
Графіка
1. Графічний режим. Графічний екран дисплея складається з точок, які можна засвічувати певним кольором чи гасити, у результаті чого на екрані утворюється деяке зображення. Точки називаються пікселями. Кількість точок на екрані може бути різною, що залежить від якості екрана. Розглянемо екран, який має 640 точок у горизонтальному (x) напрямку і 480 у вертикальному (y). Початок відліку точок є у лівому верхньому куті екрана. Кожна точка характеризується двома координатами (x,y). Приклади розташування на екрані деяких точок показані на рис. 3.
Рис. 3. Координати точок на графічному екрані 640х480
Програми, що виконують графічні побудови, переважно є лінійними і складаються з викликів стандартних графічних процедур та функцій, зібраних у модулі Graph.tpu.
Сам модуль може бути в бiблiотеці Turbo.tpl або в деякому каталозі на диску. В останньому випадку модуль треба приєднати командою uses на початку програми. Потрібний також файл egavga.bgi драйвер для VGA адаптера чи файл cga.bgi для відповідного CGA адаптера монітора тощо.
Графічний режим спочатку треба задати. Це виконують так:
<розділи описів та оголошень конкретної програми>; var driver, mode : integer; {Для характеристик дисплея} begin driver:= detect; {detect - стандартна стала} initgraph (driver, mode, ''); {Задання графічного режиму} if graphresult < > 0 then begin writeln('графічний режим задати не вдалося'); halt {Стоп} end; <текст конкретної програми з графічними командами> end. |
2. Процедури і функції для графічних побудов. Розглянемо процедури модуля Graph, призначені для графічних побудов.
initgraph (driver, mode, <шлях до драйвера>) задає графічний режим. Шляхдо драйвера зазначають (у лапках), якщо він не є в тому ж каталозі, що й файл turbo.exe; detectgraph (<драйвер>, <режим>) повертає значення характеристикдисплея; setcolor (<колір>) задає колір майбутнього зображення; setbkcolor (<колір>) задає колір тла; putpixel (x, y, <колір>) висвітлює точку (x,y) заданим кольором; line (x1, y1, x2, y2) рисує лінію між двома точками; lineto (x, y) рисує лінію від поточної точки до точки (x,y); linerel (dx, dy) рисує лінію від поточної точки з заданими приростами; rectangle (x1, y1, x2, y2) рисує прямокутник з заданими координатами діагонально протилежних вершин (лівої верхньої та правої нижньої); setviewport (x1, y1, x2, y2, true) задає координати нового графічного вікна. Логічна стала true задає режим відсікання зображення, яке виходитиме за межівікна; bar (x1, y1, x2, y2) рисує зафарбований прямокутник; bar3d (x1, y1, x2, y2, <об'ємна глибина>, true) рисує паралелепіпед; circle (x, y, R) рисує коло з радіусом R і центром у (x,y); arc (x, y, <початковий кут>, <кінцевий кут>, <радіус>) рисує дугу; pieslice (x, y, <початковий кут>, <кінцевий кут>, <радіус>) рисує зафарбований сектор; ellipse (x, y, <початковий кут>, <кінцевий кут>, <горизонт. радіус>, <вертик.радіус>) рисує еліпс чи дугу еліпса; setfillstyle (<заповнення>, <колір>) задає спосіб заповнення замкнутоїобласті залежно від значення параметра заповнення: 0 заповнення кольоромфону, 1 суцільне заповнення, 2 заповнення товстими горизонтальнимилініями, 3 заповнення нахиленими лініями, ..., 10 заповнення точками,11щільне заповнення точками; floodfill (x, y, <колір межі>) заповнює замкнену область, що містить точку(x,y); closegraph закриває графічний режим; outtext (<текст>) виводить заданий текст з поточної позиції; outtextxy (x, y, <текст>) виводить текст у заданому місці; settextstyle (<шрифт>, <напрям>, <розмір>) задає вигляд символів,напрямок виведення: 0 горизонтально чи 1 вертикально, і розміри символів: 1,2, 3. |
Розглянемо деякі функції модуля Graph:
graphresult повертає код помилки, якщо неможливо задати графічний режим, і 0 у разі задання; getmaxx повертає значення розміру екрана уздовж осі 0X; getmaxy повертає значення розміру екрана уздовж осі 0Y; getcolor повертає значення поточного кольору; getcolor(x,y) повертає значення кольору точки (x,y); getx, gety повертають координати поточного пікселя. |
black=0 чорний; blue=1 синій; green=2 зелений; cyan=3 блакитний; red=4 червоний; magenta=5 фіолетовий; brown=6 коричневий; lightgray=7 світло-сірий; |
darkgray=8 темно-сірий; lightblue=9 яскраво-синій; lightgreen=10 яскраво-зелений; lightcyan=11 яскраво-блакитн.; lightred=12 яскраво-червоний; lightmagenta=13 яскраво-фіол.; yellow=14 жовтий; white=15 білий. |
Задача 1. Нарисувати різними кольорами десять концентричних кіл, які мають спільний центр по середині екрана, тобто в точці з графічними координатами (320; 240), і описати навколо кіл червоний прямокутник.
program Circle10;
uses Crt, Graph;
var driver, mode, r : integer;
begin clrscr;
driver := detect;
initgraph(driver, mode, '');
r := 10; {Радіус першого кола 10 пікселів}
while r <= 100 do
begin
setcolor(r div 10);
circle(320, 240, r);
r := r + 10
end;
setcolor(red);
rectangle(220, 140, 420,340); readln
end.
Задача 2. Нарисувати емблему. У верхній лівій частині графічного екрана на чорному фоні нарисувати блакитний квадрат, а в ньому чорне коло, зафарбоване жовтим кольором. У центрі емблеми чорними літерами написати слово “Льотниче”.
program Emblema;
uses Crt, Graph;
var driver, mode, i, x1 , y1: integer; x, y: real;
begin clrscr;
driver:=detect;
initgraph(driver,mode,'');
setbkcolor(0);
setcolor(3);
rectangle(100,0,300,200);
setfillstyle(1,3);
floodfill(200,100,3);
setcolor(14);
circle(200,100,100);
setfillstyle(1,14);
floodfill(200,100,14);
setcolor(0);
circle(200,100,100);
settextstyle(0,0,3);
outtextxy(135,95, 'Льотниче'); readln
end.
Задача 3. Нарисувати графік функції y=2sin(2x)+1 на проміжку [0; 2p], табулюючи функцію з кроком h=0,1. У результаті експериментів, міняючи значення амплітуди в пікселях (за допомогою множника М), зобразити графік на екрані якнайкраще.
program GrafikSin;
uses Crt, Graph;
const a=0; b=2*pi; h=0.1; h1=5; x0=60; y0=240; M=50;
var driver, mode,x1,y1:integer; x,y:real;
function f(x:real):real;
begin
f:=2*sin(2*x)+1
end;
begin clrscr;
driver := detect; initgraph(driver,mode,'');
setcolor(14); setbkcolor(1);
line(20,y0,600,y0); line (x0,440,x0,20); {Координатні осі}
x:=a; x1:= x0+trunc(M*x); {x,y математичні координати}
y:=f(x); y1:=y0-trunc(M*y); {x1,y1 графічні координати}
moveto(x1,y1);setcolor(15);
while x<=b do begin
y:= f(x); y1:=y0-trunc(M*y); lineto(x1,y1);
x1:=x1+h1;x:=x+h
end;
settextstyle(0,0,1);
outtextxy(60,245,'0');outtextxy(360,245,'6.3');
settextstyle(0,0,2);
outtextxy(200,380,'Графік функції y=2sin2x+1');readln
end.
ПРИКЛАДИ
У цьому прикладі:
i - параметр циклу;
Часто крок зміни змінної, яка управляє циклом, відрізняється від 1 або -1.
Програма табулює функцію y=1/ e-x в інтервалі значень [a, b] з кроком Step. Зверніть увагу на те, що перед входом у цикл обчислюється N - верхня межа параметра циклу, а в тілі циклу обчислюється наступне значення х.
Коди типових помилок
Тurbo Pascal 7.0 генерує два типи повідомлень про помилки: помилки компіляції і помилки виконання.
Коди помилок компіляції, які найчастіше зустрічаються в процесі налагодження програми, мають такі номери:
3 |
Unknown identifier (Невідомий ідентифікатор). Цей ідентифікатор не був описаний. |
4 |
Duplicate identifier (Повторення ідентифікатора). |
5 |
Syntax error (Синтаксична помилка). |
14 |
Invalid file name (Недопустиме ім'я файлу). Ім'я файлу неправильне або вказано неіснуючий шлях. |
26 |
Type mismatch (Невідповідність типів). |
42 |
Error in expression (Помилка у виразі). |
62 |
Division by zero (Ділення на нуль). |
64 |
Cannot Read or Write variables of this type (Немає можливості зчитати або записати змінні даного типу). |
85 |
";" expected (Очікується символ ";"). |
91 |
":=" expected (Очікується символ ":="). |
94 |
"." expected (Очікується символ "."). |
95 |
".." expected (Очікується символ ".."). |
Повідомлення про помилки виконання: |
|
2 |
Path not found (Шлях не знайдено). |
103 |
File not open (Файл не відкритий). |
104 |
File not open for input (Файл не відкритий для введення). |
105 |
File not open for output (Файл не відкритий для виведення). |
153 |
Unknown command (Невідома команда). |
200 |
Division by zero (Ділення на нуль). |
215 |
Arithmetic overflow error (Помилка під час виконання математичної операції). |