УРОК 8. ФОРМАТИРОВАНИЕ ВЫВОДА.

ДАВАЙТЕ ПОГОВОРИМ О ФОРМАТИРОВАНИИ. ДОПУСТИМ, ЧТО ВАМ НЕОБХОДИМО ОТОБРАЗИТЬ ЧИСЛО В ФОРМЕ С ФИКСИРОВАННОЙ ТОЧКОЙ. ДЛЯ ЭТОГО ИСПОЛЬЗУЕТСЯ ТАКОЕ ОПИСАНИЕ:

WRITELN (Wages:6:2);

ФОРМАТ «6:2» ОПРЕДЕЛЯЕТ ПОЛЕ ДЛИНОЙ 6 СИМВОЛОВ, ВКЛЮЧАЯ ДВА ДЕСЯТИЧНЫХ ЗНАКА. ПРИВЕДУ ПРИМЕР, ЕСЛИ ПЕРЕМЕННАЯ Wages РАВНА 45.5, ТО ОНА БУДЕТ ИМЕТЬ ВИД:

В45.50

ГДЕ БУКВА «В» ОБОЗНАЧАЕТ ПРОБЕЛ.

ЕСЛИ КОЛИЧЕСТВО ЧИСЕЛ В ВЫВОДИМОМ ЧИСЛЕ МЕНЬШЕ ШИРИНЫ ПОЛЯ ВЫВОДА, РЕЗУЛЬТАТ БУДЕТ СДВИНУТ ВПРАВО. ЕСЛИ ЧИСЛО НЕ ПОМЕЩАЕТСЯ В ПОЛЕ ВЫВОДА, ПОЛЕ БУДЕТ УВЕЛИЧЕНО И НА ЭКРАН ВЫВЕДЕТСЯ ЧИСЛО ЦЕЛИКОМ. НИЖЕ ПРИВЕДЁН ПРИМЕР, В КОТОРОМ ДОБАВЛЕН СИМВОЛ ДОЛЛАРА СЛЕВА ОТ ЧИСЛА $:

WRITELN (‘$’,Wages:6:2);

РЕЗУЛЬТАТ БУДЕТ ВЫГЛЯДЕТЬ ВОТ ТАК:

$  45.50

ИСПОЛЬЗУЯ МЕНЬШИЮ ШИРИНУ ПОЛЯ, МОЖНО СДВИНУТЬ ЧИСЛО ВЛЕВО, К СИМВОЛУ ДОЛЛАРА:

WRITELN (‘$’,Wages:0:2);

РЕЗУЛЬТАТ БУДЕТ:

$45.50

ТАКИМ ОБРАЗОМ МОЖНО ФОРМАТИРОВАТЬ ЛЮБОЙ ТИП ДАННЫХ, ИСКЛЮЧЕНИЕ СОСТАВЛЯЮТ ЦЕЛЫЕ ЧИСЛА И ТЕКСТОВЫЕ СТРОКИ, КОГДА ШИРИНА ПОЛЯ ОПРЕДЕЛЯЕТСЯ БЕЗ ДЕСЯТИЧНЫХ ЗНАКОВ.

ВНИЗУ ПРИВЕДЁН ПРИМЕР ПРОГРАММЫ, ИЗ КОТОРОЙ ВЫ СМОЖЕТЕ НАГЛЯДНО РАЗОБРАТЬ ПРАВИЛА ФОРМАТИРОВАНИЯ:

PROGRAM Format (OUTPUT);

VAR

A: INTEGER;

B: REAL;

BEGIN

A:=320;

B:=1.2E+02;

WRITELN (‘ЭТО ТЕКСТОВАЯ СТРОКА, НАЧИНАЮЩАЯСЯ С ПОЗИЦИИ 1.’);

WRITELN (‘ЭТО ТЕКСТОВАЯ СТРОКА СДВИНУТА К ПРАВОМУ КОНЦУ ПОЛЯ.’:50);

WRITELN (‘ЭТО НЕФОРМАТИРОВАННОЕ ЦЕЛОЕ:’,A);

WRITELN (‘ЭТО ЦЕЛОЕ, ЗАПИСАННОЕ В ПОЛЕ ШИРИНОЙ 6 СИМВОЛОВ:’,A:6);

WRITELN (‘ЭТО КОЛИЧЕСТВО ДОЛЛАРОВ, ЗАПИСАННОЕ В ПОЛЕ ШИРИНОЙ 8 СИМВОЛОВ:$',B:0:2)

END.

НУ КАК, ПРИНЦИП ВАМИ СХВАЧЕН?! J ИДЁМ ДАЛЬШЕ, К СЛЕДУЮЩЕМУ УРОКУ.