Вступ. | Середовище програмування Turbo Pascal. | Типи даних в мові Pascal. | Речовий поділ Целочисленное розподіл Розподіл по модулю | Умовний оператор. | Оператор вибору. | Практична робота | Циклом з умовою поста. | Факторіал негативного числа не існує. | Практична робота |

загрузка...
загрузка...
На головну

Мені 16 років

Для виведення дійсних чисел в звичному для нас форматі можна використовувати наступний формат:

Write (n: s: d);

Тут n - це змінна дійсного типу;

s - кількість позицій для виведення значення змінної n;

d - дрібна частина виводиться числа (а точніше кількість знаків після коми).

Оператори Read і Readln виконують одну й ту ж саму функцію - здійснюють введення даних. Різниця полягає в тому, що оператор Readln здійснює введення даних з нового рядка.

Оператор Write виводить рядок і залишає курсор в кінці цього рядка. Оператор Writeln виводить рядок і переводить курсор на початок нового рядка.

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

У Паскалі в якості оператора присвоєння служить пара символів : =.

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

<Ідентифікатор>: = <вираз>;

Як вираження може бути використано:

<Ідентифікатор>: = <числова константа>;

<Ідентифікатор>: = <символьний константа>;

<Ідентифікатор>: = <строкова константа>;

<Ідентифікатор>: = <числова змінна>;

<Ідентифікатор>: = <символьний змінна>;

<Ідентифікатор>: = <строкова змінна>;

<Ідентифікатор>: = <арифметичне вираз>;

Принцип дії оператора присвоювання:

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

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

Слід враховувати також і те, що ідентифікатор і спеціальне вираз повинні належати одному і тому ж типу.

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

приклад 1

Program My_Program_1;

Var x, y, z:integer;

Begin

Write( 'Введіть перше число:');

Readln(X);

Write( 'Введіть друге число:');

Readln(Y);

z: = x + y;

Write( 'Сума чисел', x, 'і', y, 'дорівнює =', z);

End.

Натисніть F9. Виконається компіляція програми. Якщо компілятор не повідомила Вам про наявність помилок, то натисніть комбінацію клавіш Ctrl + F9 і запустіть програму на виконання. Після виконання програми натисніть комбінацію клавіш Alt + F5 і перегляньте отриманий результат.

Дамо пояснення до програми. Після службового (зарезервованого) слова Program слід ім'я програми. Далі в розділі опису змінних, після слова Var, ми перераховуємо всі змінні, які присутні у нас в програмі із зазначенням типу змінних. В даному випадку ми вказали, що всі наші змінні матимуть цілий тип.

Потім починається основне тіло програми, укладену в операторні дужки Begin ... End. Виконується оператор виведення Write, який виводить на екран напис «Введіть перше число:». Потім виконується оператор Readln, який очікує поки Ви введете якесь число, яке запам'ятається в змінної х. Потім аналогічно спрацьовують другі оператори Write і Readln.

Після того, як введені значення запам'яталися в змінних, вони підставляються в вираз x + y і обчислюється сума цих чисел. Отриманий результат присвоюється змінної z. Потім виконується оператор Writeln, який виводить відповідний напис, підставляючи замість x и y введені значення, а замість z отриману суму.


3.9. Складовою і порожньою оператор.

Лінійні програми і алгоритми.

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

складовою оператор - Це послідовність довільних операторів програми, укладена в операторні дужки Begin ... End.

Синтаксис і семантика мови Паскаль не накладає ніяких обмежень на характер операторів, що входять в складений оператор. Серед них можуть бути і інші складові оператори - Паскаль допускає довільну глибину їх вкладеності.

Формат складеного оператора:

Begin

<Оператор 1>;

<Оператор 2>;

<Оператор 3>;

...

...

<Оператор N>;

End.

Складовою оператор може складатися і тільки з одного оператора:

Begin

<Оператор>;

End.

Як було сказано вище в складовою оператор може бути вкладений і іншої складової оператор.

Begin

<Оператор 1>;

<Оператор 2>;

<Оператор 3>;

...

<Оператор N>;

Begin

<Оператор 1>;

<Оператор 2>;

<Оператор 3>;

...

<Оператор N>;

End;

End.

Фактично, весь розділ операторів, обрамлений словами Begin ... End, являє собою один складений оператор. Оскільки зарезервоване слово End є закриває операторної дужки, воно одночасно вказує і кінець попереднього оператора, тому ставити перед ним символ ; не обов'язково. Наявність крапки з комою перед End означає, що між останнім оператором і операторної дужки End розташовується порожній оператор. Порожній оператор не містить ніяких дій, просто в програму додається зайва крапка з комою. В основному порожній оператор використовується для передачі управління в кінець складеного оператора.

Складовою оператор використовується в основному для формування лінійних алгоритмів і програм.

Нагадаємо, що лінійним алгоритмом (програмою) називається такий алгоритм, який не містить логічних умов, має одну гілку обробки і всі команди (оператори) його виконуються одна за одною.

приклад 1 з попереднього пункту є прикладом лінійного алгоритму обчислення суми двох чисел.

Наведемо ще приклади лінійних програми.

Приклад 2:скласти програму для обчислення значення функції:

Program My_Program_2;

Var

x, a, b:integer;

y:real;

Begin

Write( 'Введіть значення х:');

Readln(Х);

Write( 'Введіть значення a:');

Readln(A);

Write( 'Введіть значення b:');

Readln(B);

y: = (sqr (x) + a * x) / (sqrt (sqr (a) + sqr (b) +1));

Writeln( 'Значення функції y =', y);

End.

Приклад 3:написати програму обчислення середнього значення.

Program My_Program_3;

Var first, second, third:integer;

sr:real;

Begin

Writeln( 'Введіть три числа:');

Readln(First, second, third);

sr: = (first + second + third) / 3;

Writeln( 'Середнє значення (', first, '+', second, '+', third, ') / 3 =', sr);

End.

Приклад 4:обчислити значення тригонометричних функцій sin та cos для будь-якого кута.

Program My_Program_4;

Var angle, Result1, Result2:real;

Begin

Write ( 'Ввести значення кута в радіанах');

Readln (Angle);

Result1: = Sin (angle);

Result2: = Cos (angle);

Writeln( 'Синус дорівнює', result1: 6: 3);

Writeln ( 'Косинус дорівнює', result2: 6: 3);

End.

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

Приклад 5:обчислити площу і довжину окружності.

Program My_Program_5;

Const pi = 3. 14159;

Var radius:real;

Begin

Write( 'Ввести радіус кола:');

Readln(Radius);

Writeln( 'Довжина кола =', (2 * pi * radius): 6: 2);

Writeln( 'Площа кола =', (pi * sqr (radius): 6: 2);

End.

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

Приклад 6:Дано натуральне двозначне число. Знайти суму, твір і проміняти місцями цифри цього числа.

Program My_Program_5;

Var n, n1, n2, s, p: integer;

Begin

Write( 'Введіть натуральне двозначне число:');

Readln(N);

n1: = n div 10;

n2: = n mod 10;

s: = n1 + n2;

p: = n1 * n2;

n: = n2 * 10 + n1;

Writeln( 'S =', s);

Writeln( 'P =', p);

Writeln( 'N =', n);

End.




Оператори ТР7. | Практична робота
загрузка...
© um.co.ua - учбові матеріали та реферати