Системное программирование в UNIX средствами Free Pascal

       

Комплексный пример


Число возможных комбинаций различных форматов огромно, поэтому для экономии места в одну программу были включены сразу несколько примеров. Функция arctan является стандартной функцией арктангенса из математической библиотеки math.

(* Программа cram - демонстрация процедуры printf *)

uses stdio,math;

const

  weekday:pchar = 'Воскресенье';

  month:pchar = 'Сентября';

  str:pchar = 'Hello, world';

  i:longint = 11058;

  day:longint = 15;

  hour:longint = 16;

  minute:longint = 25;

begin

  (* Вывести дату *)



  printf ('Дата %s, %d %s, %d:%.2d'#$a,

         [weekday, day, month, hour, minute]);

  (* Перевод строки *)

  putchar ($a);

  (* Демонстрация различных комбинаций ширины поля и точности *)

  printf ('>>%s<<'#$a, [str]);

  printf ('>>%30s<<'#$a, [str]);

  printf ('>>%-30s<<'#$a, [str]);

  printf ('>>%30.5s<<'#$a, [str]);

  printf ('>>%-30.5s<<'#$a, [str]);

  putchar ($a);

  (* Вывести число i в разных форматах *)

  printf ('%d, %u, %o, %x, %X'#$a, [i, i, i, i, i]);

  (* Вывести число пи с точностью 5 знаков после запятой *)

  printf ('пи равно %.5f '#$a, [4 * arctan (1.0)]);

end.

Программа генерирует следующий вывод:

Дата Воскресенье, 15 Сентября, 16:25

>>Hello, world<<

>>  Hello, world<<

>>Hello, world  <<

>>              Hello<<

>>Не11о         <<

11058, 11058, 25462, 2b32, 2B32

пи равно 3.14159



Содержание раздела