Учебник Turbo Pascal. Введение - Вывод таблицы значений функции на экран

Вывод таблицы значений функции на экран

В программе 1.12 вывод производится на экран.

Листинг 1.12. Вывод таблицы значений функции на экран

program table_of_values;
var
    х: Real;
    k: Word;

function F(x: Real): Real; 
begin
    F := x/(1.0 + x);
end;

begin
    x := 0.0;
    WriteLn('Таблица значений функции F(x) = x/(l + x)');
    WriteLn;
    WriteLn('x':10, 'F(x)':20);
    WriteLn;
    
    for k := 0 to 50 do 
    begin
        WriteLn(x:10:4, F(x):20:10);
        x := x + 0.1;
        if k mod 10 = 9 then ReadLn; 
    end;
    
    WriteLn;
    Write('Нажмите <Enter>'); 
    ReadLn; 
end.

Обратите внимание на то, что программа приостанавливает вывод через каждые 10 строк и ожидает нажатия клавиши Enter. Для этого при каждом проходе цикла вычисляется остаток от деления (операция mod) счетчика строк (переменная k) на 10. В операторах вывода после элементов вывода идут целые беззнаковые значения, разделяемые двоеточиями. Эти значения задают формат вывода. Первое значение, отделяемое двоеточием от элемента вывода (идентификатора переменной), определяет количество позиций в строке, отводимое под данное значение. Второе число, если оно присутствует, определяет количество позиций, отводимых под мантиссу числа (его дробную часть).