Оператор присвоювання

Значення змінної може бути задано або змінена за допомогою оператора присвоєння, який має вигляд:
<Ім'я>: = <вираз>;
де <ім'я> - це ім'я змінної або функції;
: = - Знак операції привласнення.
Оператор присвоювання дозволяє замінити поточне значення змінної, що стоїть ліворуч від знака присвоювання, новим значенням, що задається виразом, що стоять справа.
З правого боку розташовується вираз, який після обчислення дає деяке значення. З лівого боку вказується ім'я змінної, якій це значення присвоюється. Дана обставина дозволяє використовувати з лівого і правого боку знака присвоювання ім'я однієї і тієї ж змінної. Нехай, наприклад, є наступні оператори:
Var
х, а: real;
.....
х: = 2.5;
а: = 1.25;
х: = х + а;
Після виконання цих операторів мінлива х буде мати значення 3.75, тому що спочатку відбудеться обчислення вираження х + а у вигляді суми двох констант: 2.5 + 1.25 = 3.75, а потім це значення присвоюється змінної х (попереднє значення х, рівне 2.5, заміниться новим - 3.75).
Слід звернути увагу на наступне правило: типи змінної та вирази повинні бути однаковими. Виняток становить випадок, коли вираз має цілий тип, а змінна - речовий.

Прості оператори в Паскалі

Питання 1.

Рішення найпростішої задачі на комп'ютері не обходиться без операцій вводу-виводу інформації. Введення даних - це передача інформації з зовнішнього носія в оперативну пам'ять для обробки. Висновок - зворотний процес, коли дані передаються після обробки з оперативної пам'яті на зовнішній носій.

Процедура читання READ.

Забезпечує введення числових даних, символів, рядків і т.п. для подальшої обробки програмою. Формат:

Read (x1, x2,..., xN);

Readln (x1, x2,..., xN);

Де х1, х2,... - змінні допустимих типів даних. Ці значення вводяться з клавіатури і відображаються на екрані. Значення повинні вводиться в суворій відповідності з синтаксисом мови Паскаль.

Наприклад.

Var

I: real;

P: integer;

K: char;

Begin

Read (I, P, K);

........

Варіант вводу: 221.23 34 'П'

Процедура читання Readln аналогічна процедурі Read, відмінність полягає в тому, що після зчитування в списку одного значення, такі дані зчитуються з початку нового рядка.

Якщо у прикладі замінити Read на Readln, то після введення з клавіатури перше значення курсор перейде на новий рядок.

Процедура запису WRITE.

Виробляє висновок числових даних, символів, рядків і т.п. Формат:

Write (y1, y2,..., yN);

Writeln (y1, y2,..., yN);

Де y1, y2,... - вирази типу integer, real, char, byte і т.д.

Формати виведення числа.

Значення Х

Вираз

Результат

Write (x)

134 (з позиції курсору)

Write (x: 10)

******* 134 (крайня права позиції поля шириною 10)

234,36

Write (x)

2.3436000000E +02 (з плаваючою точкою)

234,36

Write (x: 8: 2)

** 234.36 (з фіксованою крапкою)

234,36

Write (x: 8: 4)

234.3600

234,36

Write (x: 10: 1)

***** 234.4

(* означає пробіл)

Формати виводу чисел.

Значення A, B

Вираз

Результат

3 і 45

Write (A, B)

345 (з позиції курсору)

3 і 45

Write ('A =', A, '* B =', B)

A = 3 B = 45

3 і 45

Writeln (A, B)

3 і 45

Write (A: 4, B: 4)

*** 3 ** 45 (крайня права позиція)

3 і 45

Writeln (A: 4, B: 4)

*** 3

** 45

3 і 45

Writeln ('A =', A: 4, 'B =', B: 4)

A =*** 3

B =** 45

3 і 45

Write (A: 4);

Write (B: 4);

*** 3

** 45

Питання 2.

Оператор безумовного переходу GO TO.

Це оператор означає «перейти до» і застосовується у випадках, коли після виконання деякого оператора треба виконати не наступний один по одному, а який-небудь інший оператор, зазначений міткою.

Формат:

Go to N;

Де N - мітка, мітка може містити як цифрові, так і літерні символи.

Використання безумовної передачі керування в програмі вважається теоретично надлишкової, тому що сприяє створенню малозрозумілих і заплутаних програм, які викликають великі складності при налагодженні та супроводі. Тому рекомендується мінімальне використання оператора з дотриманням таких правил:

слід прагнути застосовувати оператор переходу для керування тільки вниз по тексту програми;

відстань між міткою і оператором переходу на неї не повинно перевищувати однієї сторінки тексту (або екрана).

Оператор очищення екрана.

Формат: ClrScr;

Структурні оператори.

Такі оператори являють собою конструкції, побудовані з інших операторів по суворо визначеними правилами. Всі структурні оператори можна розділити на три групи: складові, умовні, повтору.

Складовою оператор пс групу з довільного числа операторів, відокремлених один від одного крапкою з комою, і обмежену операторними дужками begin end. Складовою оператор сприймається як єдине ціле і може знаходитися в будь-якому місці програми, де синтаксис мови допускає наявність операторів.

Умовні оператори призначені для вибору на виконання одного з можливих дій (операторів) в залежності від деякої умови (при цьому одну з таких дій може бути порожнім або відсутнім). В якості умов вибору використовується значення логічного виразу. У Паскалі є два умовних оператора.

Оператор умови IF.

Це оператор є одним з найпопулярніших засобів, які змінюють природний порядок виконання операторів програми. Синтаксично оператор умови IF виглядає наступним чином:

If <умова> then <оператор1> else <оператор2>; (оператор повної форми)

If <умова> then <оператор>; (оператор скороченої форми)

Оператор виконується таким чином. Спочатку обчислюється вираз, записане в умови. У результаті його обчислення виходить значення, якщо воно істинно, то виконується оператор 1, якщо результат помилковий, то виконується оператор 2 або оператор, наступний за оператором IF. Оператори IF можуть бути вкладеними.

Приклад. Скласти алгоритм і програму обчислення приватного двох цілих чисел

Program delenie;

Uses Crt;

Var a, b: integer;

Result: real;

Begin

ClrScr; (оператор очищення екрана)

Writeln ('Введіть значення ділене А');

Readln (a);

Writeln ('Введіть значення дільника В');

Readln (b);

If b = 0 then writeln ('на нуль ділити не можна')

Else begin (початок складеного оператора)

Result: = a/b;

Writeln ('Приватне чисел одно', Result: 8:2);

End; (Кінець складеного оператора)

Readln (затримка результату)

End.

Оператор вибору CASE.

Якщо один оператор IF може забезпечити вибір з двох альтернатив, то оператор вибору дозволяє зробити вибір з довільного числа наявних варіантів. Він складається з вираження, званого селектором, і списку параметрів, кожному з яких передує список констант вибору (список може складатися з однієї константи.

Формат оператора:

Case <вираз - селектор> of

<список 1>: <оператор 1>;

<список 2>: <оператор 2>;

............

<список N>: <оператор N>;

Else <оператор>;

End;

Оператор Case працює таким чином. Спочатку обчислюється значення вирази-селектора, потім забезпечується реалізація того оператора, константа вибору якого дорівнює поточному значенню селектора. Якщо жодна з констант НЕ рана поточному значенню селектора, то виконується оператор що стоїть за словом Else. Якщо слово Else відсутній, то активується оператор, що знаходиться за словом End, тобто перший оператор за кордоном Case.

Селектор повинен відноситься до одного з цілочисельних типів. Список констант вибору складається з довільної кількості значень, або діапазонів, відокремлених один від одного комами. Межі діапазону записуються двома константами через розмежувачами «..». Тип константи повинен збігатися з типом селектора.

При використання оператора вибору повинні виконуватися наступні правила:

Значення виразу «перемикача» записаного після слова Case, повинні належати дискретного типу, для цілого типу вони повинні лежати в діапазоні integer;

Всі константи, що передують операторам альтернатив, повинні мати тип, сумісний з типом вирази;

Всі константи в альтернативи повинні бути унікальні в межах оператора варіанту, діапазони не повинні перетинатися і не повинні містити констант, зазначених у даній або інших альтернативи.

Приклад: скласти програму виводу назви дня тижня за його номером.

Program DAY;

Var D: byte;

Begin

Write ('Введіть номер дня тижня');

Readln (D);

Case D of (обчислення значення селектора і вибір)

1: writeln ('понеділок');

2: writeln ('вівторок');

3: writeln ('середа');

4: writeln ('четвер');

5: writeln ('п'ятниця');

6: writeln ('субота');

Else

Writeln ('Неділя');

End;

Readln;

End.

Питання 3.

Якщо в програмі виникає необхідність кількаразового виконання деяких операторів, то використовуються оператори повтору (або циклу). У мові Паскаль розрізняють три види операторів циклу: while, repeat, for. Вони використовуються для організації циклів різних типів.

Якщо кількість повторень оператора заздалегідь невідомо, а задано лише умова його повторення (або закінчення), використовуються оператори while, repeat. Оператор for використовується, якщо кількість повторень відомо заздалегідь.

Оператор WHILE.

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

Формат оператора:

While <умова продовження циклу> do

<тіло циклу>;

Умова - Булевського вираз, тіло циклу - простий або складової оператор. Перед кожним виконанням тіла циклу обчислюється значення виразу умови, якщо результат істина, то тіло циклу виконується. Якщо результат брехня, то відбувається вихід з циклу і перехід до першого оператору після while оператора.

Оператор повтору REPEAT.

Цей оператор відрізняється від попереднього тим, що умова перевіряється після чергового виконання операторів тіла циклу і таким чином гарантується хоча б одноразове виконання циклу. Друга відмінність від першого оператора: припиненням циклу є рівність вирази константі істина. За цей оператор repeat часто називають циклом з постусловіем.

Формат оператора:

Repeat

<оператор>;

................

<оператор>;

Until <умова закінчення циклу>;

Оператори, укладені між словами repeat/until, є тілом циклу. Спочатку виконується тіло циклу, потім перевіряється умова виходу з циклу.

Оператор повтору FOR.

В разі коли кількість повторень відомо, для організації циклічної обробки інформації застосовується оператор повтору For. Часто цей оператор називають оператором циклу з параметром, тому що кількість повторень задається змінною, яку називають параметром циклу (або керуючої змінної). Цей оператор складається із заголовка і тіла циклу.

Формат оператора:

For <параметр циклу>: = A1 to A2 do <оператор>; (за зростанням)

For <параметр циклу>: = A1 downto A2 do <оператор>; (за спаданням)

Де А1 і А2 - вирази, що визначають відповідно початкове та кінцеве значення параметра циклу.

Тіло циклу може бути простим або складеним оператором. Оператор For забезпечує виконання тіла циклу до тих пір, поки не будуть перебрано все значення параметра циклу від початкового до кінцевого.

Заголовок оператора повтору For визначає:

діапазон зміни значень керуючої змінної та одночасне кількість повторень оператора, що міститься в тілі циклу;

напрям зміни параметра циклу (зростання - to Порядок нумерації - downto).

На використання параметра циклу накладаються наступні обмеження:

В як параметр повинна використовуватися проста змінна, описана в поточному блоці.

Управляюча мінлива повинна мати дискретний тип.

Початкове і кінцеве значення діапазону повинні мати сумісний тип з параметром циклу. При цьому допускаються будь-які скалярні типи, крім речового.

В тілі циклу забороняється явне зміна значення керуючої змінної.

Значення керуючої змінної змінюється на +1 або -1, тобто крок дорівнює одиниці.

Приклад. Скласти програму для перекладу відстаней з дюймів в сантиметри (1дюйм = 2,5 см) для значень довжин від 1 до 20 дюймів.

Нехай R1 - відстань у дюймах, а R2 - це відстань в см.

1 спосіб.

Program sb1;

Var

R2: real;

R1: Integer;

Begin

Writeln ('Таблиця перекладу відстаней з дюймів в сантиметри');

For R1: = 1 to 20 do

Begin

R2: = 2.5 * R1;

Writeln (R1: 6, '', R2: 8:2);

End;

Readln;

End.

2 спосіб.

Program sb2;

Var

R2: real;

R1: Integer;

Begin

Writeln ('Таблиця перекладу відстаней з дюймів в сантиметри');

R1: = 1;

While R1 <= 20 do

Begin

R2: = 2.5 * R1;

Writeln (R1: 6, '', R2: 8:2);

R1: = R1 + 1;

End;

Readln;

End.

3 спосіб.

Program sb3;

Var

R2: real;

R1: integer;

Begin

Writeln ('Таблиця перекладу відстаней з дюймів в сантиметри');

R1: = 1;

Repeat

R2: = 2.5 * R1;

Writeln (R1: 6, '', R2: 8:2);

R1: = R1 + 1;

Until R1> 20;

Readln;

End.

Дата добавления: 2015-05-24