Формати виведення у процедурах Write і WriteLn

1. Запустити інтегроване середовище Turbo Pascal.

2. У вікні редактора ввести програму:

Program VVOD02; Uses WinCRT; Var A, B: Integer; Begin {Введення цілих чисел} Write ('Введіть числа А, B - '); Readln (A, B); WriteLn ('********************'); { 20 символів} WriteLn (A); WriteLn (B); WriteLn (A, А); End.

1 2 3 4 5 6 7 8 9 10 11

У тексті програми рядок №7 використається для того, щоб легше було підраховувати кількість виведених знаків і номер виведеної позиції.

3. Виконати програму, ввести початкові значення А і В: 134 5671

4. Записати у зошит одержані результати у вигляді таблиці, заповнивши перший і другий стовпці:

Оператор звичайного виведення	Результат	Оператор форматованого виведення	Результат
WriteLn (A)		WriteLn (A:6)
WriteLn (B)		WriteLn (B:10)
WriteLn (A,A)		WriteLn (A:8, A: 6)

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

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

6. Зберегти програму у власному каталозі у файлі V02.PAS.

7. Внести зміни до тексту програми:

Var A, B: Real; замість рядка № 3

Begin {Введення дійсних чисел} замість рядка № 4

WriteLn (A/2); замість рядка № 10

8. Виконати програму, ввести початкові значення А і В: 75.432 -1.9156e+01

Записати у зошит одержані результати у вигляді таблиці, заповнивши перший і другий стовпці:

Оператор звичайного виведення	Результат	Оператор форматованого виведення	Результат	Оператор форматованого виведення	Результат
WriteLn (A)		WriteLn (A:15)		WriteLn (A:8:4)
WriteLn (B)		WriteLn (B:10)		WriteLn (B:10:2)
WriteLn (A /2)		WriteLn (A /2:12)		WriteLn (A/2:5:3)

9. Внести зміни до програми, задавши параметр форматного виводу, що вказує на загальну кількість виведених знаків (див. у таблиці стовпець №3). Проаналізувати, як зміняться результати виведення. Записати у зошит одержані результати, заповнивши третій і четвертий стовпці таблиці.

10. Внести зміни до програми, задавши параметр форматного виводу, що додатково вказує на кількість цифр після десяткової крапки (див. у таблиці стовпець №5). Проаналізувати, як зміняться результати виведення. Записати у зошит одержані результати, заповнивши п’ятий та шостий стовпці таблиці.

11. Зберегти програму у власному каталозі у файлі V03.PAS.

12. Внести зміни до тексту програми:

Var A, B: Char; замість рядка № 3

Begin {Введення даних символьного типу} замість рядка № 4

WriteLn (A, A, A); замість рядка № 10

13. Виконати програму, ввести початкові значення А і В: XS

Записати у зошит одержані результати у вигляді таблиці, заповнивши перший і другий стовпці:

Оператор звичайного виведення	Результат	Оператор форматованого виведення	Результат
WriteLn (A)		WriteLn (A:3)
WriteLn (B)		WriteLn (B: 5)
WriteLn (A , A, A)		WriteLn (A:2 , A:4, A:3)

14. Внести зміни до програми, задавши параметр форматного виводу, що вказує на загальну кількість виведених знаків (див. у таблиці стовпець №3). Проаналізувати, як зміняться результати виведення. Записати у зошит одержані результати, заповнивши третій і четвертий стовпці таблиці.

15. Зберегти програму у власному каталозі у файлі V04.PAS.

16. Внести зміни до тексту програми (змінені рядки виділені жирним шрифтом):

Текст програми буде виглядати:

Program VVOD02; Uses WinCRT; Var A, B: Boolean; Begin {Введення даних логічного типу} WriteLn ('********************'); { 20 символів} A:= True; B:= False; WriteLn (A); WriteLn (B); WriteLn (not A, B); End.

1 2 3 4 5 6 7 8 9 10

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

    Оператор звичайного виведення	Результат	Оператор форматованого виведення	Результат
    WriteLn (A)		WriteLn (A:6)
    WriteLn (B)		WriteLn (B:10)
    WriteLn (not A, B)		WriteLn (not A:7, B:3)

18. Внести зміни до програми, задавши параметр форматного виводу, що вказує на загальну кількість виведених знаків (див. у таблиці стовпець №3). Проаналізувати, як зміняться результати виведення. Записати у зошит одержані результати, заповнивши третій і четвертий стовпці таблиці.

19. Зберегти програму у власному каталозі у файлі V05.PAS.