#include <stdlib.h>
#include <stdio.h>
int
generic(int func, int a, int b, int c, int d)
{
        /* Trả lại bit được định bởi a, b, c, d */
        
        return (func >> (a + b*2 + c*4 + d*8)) & 1; /* ">>", "&" là toán tử dịch phải và AND trong C */
}

{
        int func, a, b, c, d;
        /* Lặp lại cho tới khi nhập vào không          */
        
        do
        {          
                
                printf(“Enter function value (hex): “);
                scanf(“%x”, &func);
                
                if (func != 0)
                {
                        printf(“Enter values for d, c, b, & a: “);
                        scanf(“%d%d%d%d”,
                                &d, &c, &b, &a);
                        printf(“The result is %d\n”, generic(func,a,b,c,d));
                        printf(“Func = %x, A=%d, B=%d, C=%d, D=%d\n”,
                                func, a, b, c, d);
                }
                
                
        } while (func !=0);

program GenericFunc(input,output);

type
    gftype = array [0..15] of integer;
var
   a, b, c, d:integer;
   fresult    :integer;
   func       : gftype;

procedure ShiftLeft(shiftin:integer);  { Dịch trái một ví trí và dịch bit shiftin vào bit 0 }
var i         :integer;
begin
     for i := 15 downto 1 do func[i] := func[i-1];
     func[0] := shiftin;
end;

procedure ShiftNibble(d,c,b,a:integer); { Dịch trái bốn vị trí }
begin
     ShiftLeft(d);
     ShiftLeft(c);
     ShiftLeft(b);
     ShiftLeft(a);
end;

procedure ShiftRight;                      { Dịch phải một vị trí và dịch không vào bit 15 }
var i:integer;
begin
     for i := 0 to 14 do func[i] := func[i+1];
     func[15] := 0;
end;

procedure toupper(var ch:char);     { Chuyển thành ký tự hoa }
begin
     if (ch in [‘a’..’z’]) then ch := chr(ord(ch) - 32);
end;

function ReadFunc:integer;           { Đọc số thứ tự hàm }
var ch:char;
    i, val:integer;
begin
     write(‘Enter function number (hexadecimal): ‘);
     for i := 0 to 15 do func[i] := 0;
     repeat
           read(ch);
           if not eoln then begin                   { Khi chưa kết thúc dòng }
                      toupper(ch);
                      case ch of
                           ‘0’: ShiftNibble(0,0,0,0);
                           ‘1’: ShiftNibble(0,0,0,1);
                           ‘2’: ShiftNibble(0,0,1,0);
                           ‘3’: ShiftNibble(0,0,1,1);
                           ‘4’: ShiftNibble(0,1,0,0);
                           ‘5’: ShiftNibble(0,1,0,1);
                           ‘6’: ShiftNibble(0,1,1,0);
                           ‘7’: ShiftNibble(0,1,1,1);
                           ‘8’: ShiftNibble(1,0,0,0);
                           ‘9’: ShiftNibble(1,0,0,1);
                           ‘A’: ShiftNibble(1,0,1,0);
                           ‘B’: ShiftNibble(1,0,1,1);
                           ‘C’: ShiftNibble(1,1,0,0);
                           ‘D’: ShiftNibble(1,1,0,1);
                           ‘E’: ShiftNibble(1,1,1,0);
                           ‘F’: ShiftNibble(1,1,1,1);
                           else write(chr(7),chr(8));
                      end;
           end;
     until eoln;
     val := 0;
     for i := 0 to 15 do val := val + func[i];
     ReadFunc := val;
end;

function Generic(var func:gftype; a,b,c,d:integer):integer;
begin
          Generic := func[a + b*2 + c*4 + d*8];
end;
begin { Chương trình chính }
      repeat
            fresult := ReadFunc;
            if (fresult <> 0) then begin
               write(‘Enter values for D, C, B, & A (0/1):’);
               readln(d, c, b, a);
               writeln(‘The result is ‘,Generic(func,a,b,c,d));
            end;
      until fresult = 0;
end.

program GenericFunc(input,output);
const
     hex = [‘a’..’f’, ‘A’..’F’];
     decimal = [‘0’..’9’];
var
        a, b, c, d:integer;
   fresult:integer;
   func: integer;

function ReadFunc:integer;
var ch:char;
    i, val:integer;
begin
     write(‘Enter function number (hexadecimal): ‘);
     repeat
           read(ch);
           func := 0;
           if not eoln then begin
              if (ch in Hex) then 
                func := (func shl 4) + (ord(ch) and 15) + 9
              else if (ch in Decimal) then 
                func := (func shl 4) + (ord(ch) and 15)
              else write(chr(7));
           end;
     until eoln;
     ReadFunc := func;
end;

function Generic(func,a,b,c,d:integer):integer;
begin
          Generic := (func shr (a + b*2 + c*4 + d*8)) and 1;
end;
begin (* main *)
      repeat
            fresult := ReadFunc;
            if (fresult <> 0) then begin
               write(‘Enter values for D, C, B, & A (0/1):’);
               readln(d, c, b, a);
               writeln(‘The result is ‘,Generic(func,a,b,c,d));
            end;
      until fresult = 0;
end.