Битовый код в Паскале

Содержимое статьи:

• Бит: Одиночный бит (0 или 1)
• Байт: Последовательность из 8 бит
• Слово: Последовательность из 16 бит
• Длинное слово: Последовательность из 32 бит
  Операции с битами
• AND: Логическое И
• OR: Логическое ИЛИ
• NOT: Логическое НЕ
• XOR: Логическое ИСКЛЮЧАЮЩЕЕ ИЛИ
• SHL: Сдвиг влево
• SHR: Сдвиг вправо
  Функции работы с битами
• Ord(x): Возвращает порядковый номер бита x
• Chr(x): Преобразует байт x в символ
• Val(x, radix): Преобразует строку x в целое число с основанием radix Пример программы: Задача: Построить строку, содержащую инициалы человека (первые буквы имени и фамилии с точками после них) и через пробел фамилию.
  Программа:

  program InitAndLast;
  
  uses
  
  Winapi.Windows,
  
  System.SysUtils;
  
  var
  
  FirstName, LastName, MiddleName: string;
  
  Input: string;
  
  begin
  
  Write('Введите фамилию, имя и отчество: ');
  
  Readln(Input);
  
  FirstName := Copy(Input, Pos(' ', Input) + 1, Length(Input) - Pos(' ', Input));
  
  LastName  := Copy(Input, 1, Pos(' ', Input) - 1);
  
  MiddleName := Copy(Input, Pos(' ', Input, Pos(' ', Input) + 1) + 1,
  
  Length(Input) - (Pos(' ', Input, Pos(' ', Input) + 1) + 1));
  
  Writeln(FirstName[1] + '. ' + MiddleName[1] + '. ' + LastName);
  
  end.