Процедури виведення write і writeln

Процедури виведення WRITE і WRITELN служать для виведення на екран констант (як числових, так і текстових), значень змінних і виразів. Вони викликаються за допомогою однойменних операторів виклику процедур, наприклад:

WRITE ( 'програма', X, Y - Z * 3).

З цього оператору на екран буде виведено в одному рядку слово «програма» і далі без пробілів значення змінної X і вирази Y - Z * 3. Наприклад, якщо маємо X = -3, Y = -5, Z = 12, то на екран буде виведено: програма-3-41.

Щоб відокремити елементи виведення один від одного, використовується прийом форматування виводу. Так, WRITE (А: 20) - одиночне форматування - показує, що значення змінної А відводиться 20 позицій на екрані монітора. Якщо в значення змінної А входить менше 20 символів, то вони зсуваються вправо, а зліва рядок заповнюється пропусками.

Подвійне форматування використовується тільки для виведення речових значень. Наприклад, WRITE (C: 17: 7) означає, що для виведення значення змінної C відведено всього 17 позицій, з них 7 позицій призначені для подання дробової частини. Якщо формат не вказано, то речові константи виводяться на екран в експоненційної формі. Зауважимо також, що форматувати в операторах WRITE можна не тільки змінні, але і вираження, наприклад:

WRITE (cos (x + 4). 5. 2);

Робота оператора WRITE відрізняється від роботи оператора WRITELN тим, що по завершенні виведення у WRITE курсор залишається в кінці списку висновку, а у WRITELN він переходить на наступний рядок. Часто використовують оператор WRITELN без списку виведення для виведення на екран порожній рядки.

Проілюструємо роботу цих операторів на наступному прикладі:

var FIRST, SECOND, TROIS, SUM: integer;

writeln ( 'Введіть 3 числа');

readln (FIRST, SECOND, TROIS);

SUM: = FIRST + SECOND + TROIS;

writeln ( 'Середнє значення', FIRST: 4, ',', SECOND: 4, ',');

write (TROIS: 4, 'одно'; (SUM div 3): 3)

На екран буде виведено:

Введіть 3 числа 2 12 9 Середнє значення 3, 12, 9 дорівнює 8

Лабораторна робота № 1

Мета роботи. виробити практичні навички використання системи програмування Borland Pascal або Delphi, навчитися створювати, вводити, відправляти на виконання і виправляти найпростіші програми на мові Паскаль, познайомитися з діагностичними повідомленнями компілятора про помилки на прикладі програм, що реалізують лінійні алгоритми.

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

Перед виконанням роботи необхідно ознайомитися з теоретичним матеріалом за темами «Опис мови Паскаль», «Прості оператори. Введення / висновок даних ».

Приклад. Визначити відстань на площині між двома точками із заданими координатами M1 (x1, y1) і M2 (x2, y2).

У цьому прикладі проведемо повний розбір рішення задачі.

Математична модель: відстань на площині між двома точками M1 (x1, y1) і M2 (x2, y2) вираховується за формулою:

Складемо блок-схему алгоритму, а потім уточнимо вміст блоків "Обчислення відстані" і "Висновок відстані" (див. Рис.1):

Мал. 1. Блок-схема алгоритму

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

var x1, x2, y1, y2: Integer;

Writeln ( 'Ця програма обчислює відстань між двома точками на площині');

Writeln ( 'Введіть координати двох точок:');

Завдання 2. Скласти програму для вирішення наступного завдання:

a) Дана довжина ребра куба. Знайти об'єм куба і площа його бічної поверхні.

b) Відома довжина кола. Знайти площу круга, обмеженого цим колом.

c) Обчислити висоту трикутника, опущену на сторону а. за відомими значеннями довжин його сторін a, b, c.

d) За даними сторонам прямокутника обчислити його периметр, площа і довжину діагоналі.

Завдання 3. Вивести значення true. якщо наведене висловлювання для запропонованих вихідних даних є істинним, і значення false в іншому випадку (всі числа, для яких не вказано інше, є дійсними):

a) дане число x належить відрізку [-a, a];

b) дане число x не належить інтервалу (a, b);

c) дане ціле число x є непарною;

d) дане число x є коренем рівняння: ax2 + bx + c = 0;

1. Учень почав вирішувати завдання даного уроку програмування, коли електронний годинник показували h1 годин і min1 хвилин, а закінчив, коли було h2 годин і min2 хвилин. Складіть програму, що дозволяє визначити, скільки часу (в годинах і хвилинах) учень вирішував ці завдання.

2. Дано дійсне число а. Чи не користуючись ніякими іншими операціями, крім множення, отримати: а) а4 за дві операції; б) А6 за три операції; в) А7 за чотири операції; г) А8 за три операції.